Keskustelu: Ohjelmointikysymykset: VB6: IF luku=1 THEN GOTO 5

Joopajoo, käytän VB koodeissani hyvin paljon tuota
raskasta "IF jotain THEN jotain"- menetelmää, siksi kysäisisinkin onko teillä, OHJELMOINTIPUTKASSAolijat tietoa, kuinka sitä tapaa voisi hoitaa kevyemmillä & paremmilla keinoilla ??

Private Sub Command1_Click()
    For I = 1 To 5
        If I = 1 Then GoTo Rivi5
        Print I * 10
        GoTo Rivi6
Rivi5:
        Print "I = 1 " & I * 20
Rivi6:
    Next I

End Sub

Private Sub Command2_Click()
    I = 1
    Do
        If I = 1 Then
            Print "I = 1 " & I * 20
        Else
            Print I * 10
        End If
    I = I + 1
    Loop Until I = 5
End Sub

Käytä mieluummin toisia rekenteita... meilaa jokin esimerkki, niin palautan sen muutettuna... ;)

No on tietysti Select Case -lauseke:

Select Case muuttuja
Case 1
   Tee sitä
Case 2
   Tee tätä
Case 3
   Tee ...
End Select

Ja GOTO:sta kannattaa päästä heti eroon. Sen sijaan voisit käyttää End If -keinoa:

If luku = 1 Then
   Tee sitä
   Tee tätä
End If