Ir para conteúdo
Fórum Script Brasil

Junior sakugawa

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Junior sakugawa

Junior sakugawa's Achievements

0

Reputação

  1. ' tentei assim mas não entra no condicional par() na posição 2 '(d1.text) e (d2.text) e (d3.text) são o par 'dezenas a guardar na matriz e sua posicao 'no registro do banco de dados(dis.text) 'montando a matriz Do While Data1.Recordset.EOF = False If pp(Val(d1.Text), Val(d2.Text), 1) = 0 Then pp(Val(d1.Text), Val(d2.Text), 1) = Val(dis.Text) If pp(Val(d1.Text), Val(d3.Text), 1) = 0 Then pp(Val(d1.Text), Val(d3.Text), 1) = Val(dis.Text) 'essa rotina não entra em nenhuma 'conndicional ' incluiro 2 par If pp(Val(d1.Text), Val(d2.Text), 2) = 0 And pp(Val(d1.Text), Val(d2.Text), 1) <= dis.Text Then pp(Val(d1.Text), Val(d2.Text), 2) = Val(dis.Text) If pp(Val(d1.Text), Val(d2.Text), 2) = 0 And pp(Val(d1.Text), Val(d3.Text), 1) <= dis.Text Then pp(Val(d1.Text), Val(d3.Text), 2) = Val(dis.Text) Data1.Recordset.MoveNext Loop 'imprime a posicao do par de dezenas For z = 200 To 1 Step -1 For X = 1 To 31 Step 1 For y = 1 To 31 Step 1 If X < y And pp(X, y, 1) <> 0 Then If pares2(X, y) = z Or pares2(y, X) = z Then par2.Text = par2.Text & Format(pp(X, y, 2), "000") & "-" & Format(X, "00") & "." & Format(y, "00") & " " End If Next y Next X Next z
  2. '(d1.text) e (d2.text) e (d3.text) são o par 'dezenas a guardar na matriz e sua posicao 'no registro do banco de dados(dis.text) 'montando a matriz Do While Data1.Recordset.EOF = False If pp(Val(d1.Text), Val(d2.Text), 1) = 0 Then pp(Val(d1.Text), Val(d2.Text), 1) = Val(dis.Text) If pp(Val(d1.Text), Val(d3.Text), 1) = 0 Then pp(Val(d1.Text), Val(d3.Text), 1) = Val(dis.Text) 'essa rotina não entra em nenhuma 'conndicional ' incluiro 2 par If pp(Val(d1.Text), Val(d2.Text), 2) = 0 And pp(Val(d1.Text), Val(d2.Text), 1) <= dis.Text Then pp(Val(d1.Text), Val(d2.Text), 2) = Val(dis.Text) If pp(Val(d1.Text), Val(d2.Text), 2) = 0 And pp(Val(d1.Text), Val(d3.Text), 1) <= dis.Text Then pp(Val(d1.Text), Val(d3.Text), 2) = Val(dis.Text) Data1.Recordset.MoveNext Loop 'imprime a posicao do par de dezenas For z = 200 To 1 Step -1 For X = 1 To 31 Step 1 For y = 1 To 31 Step 1 If X < y And pp(X, y, 1) <> 0 Then If pares2(X, y) = z Or pares2(y, X) = z Then par2.Text = par2.Text & Format(pp(X, y, 2), "000") & "-" & Format(X, "00") & "." & Format(y, "00") & " " End If Next y Next X Next z
×
×
  • Criar Novo...