• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 4 di 4

Discussione: aiuto programma VB6

Cambio titolo
  1. #1
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Localitą
    Rapallo (GE)
    Messaggi
    13.504

    aiuto programma VB6

    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
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

  2. #2
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Localitą
    Rapallo (GE)
    Messaggi
    13.504
    nessuno ?
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

  3. #3
    Utente L'avatar di bottomap
    Registrato il
    02-05
    Localitą
    Firenze
    Messaggi
    148
    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
    Venite a visitarci qui: http://www.bottomap.com/

  4. #4
    Mines L'avatar di The Matrix
    Registrato il
    04-03
    Localitą
    Rapallo (GE)
    Messaggi
    13.504
    Citazione 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
    Ciao, grazie
    La tua firma supera il limite massimo di altezza (158 pixel). Ti invitiamo a leggere il regolamento per non ripetere l'errore.

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •