aiuto programma VB6

[The Matrix]

ho provato a scrivere un programma per calcolare la distanza tra una cittą e l'altra, ma non parte...vi posto il codice, per chi mi vuol aiutare

Option Explicit

Private Sub Cbdestinazione_Change()
Dim i As Integer, a As Integer, b As Integer, dist As Integer
Dim part As String, arriv As String
Dim TA(5, 5)

TA(1, 1) = "ANCONA": TA(2, 1) = "AOSTA": TA(2, 2) = 602: TA(3, 1) = "BARI": TA(3, 2) = 470:
TA(3, 3) = 1072: TA(4, 1) = "BOLOGNA": TA(4, 2) = 208
TA(4, 3) = 394: TA(4, 4) = 678: TA(5, 1) = "BOLZANO": TA(5, 2) = 477: TA(5, 3) = 445: TA(5, 4) = 947:
TA(5, 5) = 276



part = cbpartenza.Value
arriv = cbdestinazione.Value
If part = arriv Then
Tbdistanza.Text = "distanza nulla poichč la partenza coincide con la destinazione"

Else

For i = 1 To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
a = 1
Exit For
End If
Next i

For i = (a + 1) To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
b = 1
Exit For
End If
Next i

dist = TA(b, a + 1)

Tbdistanza.Text = "La distanza tra " & part & " e " & arriv & " č uguale a " & dist & "KM"
End If
End Sub

Private Sub cbpartenza_Change()

Dim i As Integer, a As Integer, b As Integer, dist As Integer
Dim part As String, b As String
Dim TA(5, 5)

TA(1, 1) = "ANCONA": TA(2, 1) = "AOSTA": TA(2, 2) = 602: TA(3, 1) = "BARI": TA(3, 2) = 470:
TA(3, 3) = 1072: TA(4, 1) = "BOLOGNA": TA(4, 2) = 208
TA(4, 3) = 394: TA(4, 4) = 678: TA(5, 1) = "BOLZANO": TA(5, 2) = 477: TA(5, 3) = 445: TA(5, 4) = 947:
TA(5, 5) = 276



part = cbpartenza.Value
arriv = cbdestinazione.Value
If part = arriv Then
Tbdistanza.Text = "distanza nulla poichč la partenza coincide con la destinazione"

Else

For i = 1 To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
a = 1
Exit For
End If
Next i

For i = (a + 1) To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
b = 1
Exit For
End If
Next i

dist = TA(b, a + 1)

Tbdistanza.Text = "La distanza tra " & part & " e " & arriv & " č uguale a " & dist & "KM"
End If
End Sub

[The Matrix]

nessuno ?

[bottomap]

Ciao,

I problemi sono nello spezzone di codice seguente:

For i = 1 To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
a = 1
Exit For
End If
Next i

For i = (a + 1) To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
b = 1
Exit For
End If
Next i

dist = TA(b, a + 1)

Se noti bene:
1) Qualunque cosa trovi nella tabella alla prima for a vale 1.
2) Nella seconda for il ciclo parte sempre da 2 e b vale 1 indipendentemente da quello che trova.
3) La dist sarą quindi sempre uguale a TA(1,2)... indipendentemente dalle cittą che scegli...

Ciaociao

[The Matrix]

Ciao,

I problemi sono nello spezzone di codice seguente:

For i = 1 To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
a = 1
Exit For
End If
Next i

For i = (a + 1) To 5
If TA(i, 1) = part Or TA(i, 1) = arriv Then
b = 1
Exit For
End If
Next i

dist = TA(b, a + 1)

Se noti bene:
1) Qualunque cosa trovi nella tabella alla prima for a vale 1.
2) Nella seconda for il ciclo parte sempre da 2 e b vale 1 indipendentemente da quello che trova.
3) La dist sarą quindi sempre uguale a TA(1,2)... indipendentemente dalle cittą che scegli...

Ciaociao

Ciao, grazie