Keskustelu: Ohjelmointikysymykset: VB6: Muuttujaongelma

Dim ValittuHP As Integer

If Auto.Valittu = Auto.Id(0) Then
    ValittuHP = Auto.Hevosvoimat(0)
ElseIf Auto.Valittu = Auto.Id(1) Then
    ValittuHP = Auto.Hevosvoimat(1)
ElseIf Auto.Valittu = Auto.Id(2) Then
    ValittuHP = Auto.Hevosvoimat(2)
End If

If optTyyppi(0).Enabled = True Then
    Print #1, "Kisatyyppi = Sarja"
    If optSarja(0).Enabled = True Then
        If ValittuHP > 150 Then
            MsgBox "Autossasi on liikaa hevosvoimia, et voi osallistua."
            frmKisa.Hide
            frmPäävalikko.Show
            GoTo Haihdu
        ElseIf ValittuHP <= 150 Then
            MsgBox "Autosi läpäisi tarkistuksen!"
        End If
    ElseIf optSarja(1).Enabled = True Then
         If ValittuHP > 200 Then
            MsgBox "Autossasi on liikaa hevosvoimia, et voi osallistua."
            frmKisa.Hide
            frmPäävalikko.Show
            GoTo Haihdu
        Else
            MsgBox "Autosi läpäisi tarkistuksen!"
        End If
    ElseIf optSarja(2).Enabled = True Then
         If ValittuHP > 300 Then
            MsgBox "Autossasi on liikaa hevosvoimia, et voi osallistua."
            frmKisa.Hide
            frmPäävalikko.Show
            GoTo Haihdu
        Else
            MsgBox "Autosi läpäisi tarkistuksen!"
        End If
    Else
        MsgBox "Autosi on ok."
    End If
End If

Close #1