Visual Basic code

Private Sub cmdLopeta_Click()
    MsgBox ("Ohjelma lopetetaan")
    Unload Me

End Sub

Private Sub cmdMka_Click()

    lblKirje1.Caption = " "
    lblKirje2.Caption = " "
    lblKirje3.Caption = " "

    If optKirje1.Value = True Then
    aliohjelma_10_1
    ElseIf optKirje2.Value = True Then
    aliohjelma_10_2
    ElseIf optKirje3.Value = True Then
    aliohjelma_10_3
    Else
    MsgBox ("Valitse oikein!")
    End If

End Sub

Public Sub aliohjelma_10_1()
    optKirje1.Value = "False"
    mk = txtRahaa.Text
    kerta = txtKerta.Text

    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 1 Then
    lblKirje1.Caption = "Oikein!"
    mk = mk + 10
    Else
    lblKirje1.Caption = "Väärin!"
    mk = mk - 10
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If

End Sub

Private Sub cmdMkb_Click()

    lblKirje1.Caption = " "
    lblKirje2.Caption = " "
    lblKirje3.Caption = " "

    If optKirje1.Value = True Then
    aliohjelma_20_1
    ElseIf optKirje2.Value = True Then
    aliohjelma_20_2
    ElseIf optKirje3.Value = True Then
    aliohjelma_20_3
    Else
    MsgBox ("Valitse oikein!")
    End If

End Sub

Private Sub cmdMkc_Click()

    lblKirje1.Caption = " "
    lblKirje2.Caption = " "
    lblKirje3.Caption = " "

    If optKirje1.Value = True Then
    aliohjelma_50_1
    ElseIf optKirje2.Value = True Then
    aliohjelma_50_2
    ElseIf optKirje3.Value = True Then
    aliohjelma_50_3
    Else
    MsgBox ("Valitse oikein!")
    End If

End Sub

Private Sub cmdMkd_Click()

    lblKirje1.Caption = " "
    lblKirje2.Caption = " "
    lblKirje3.Caption = " "

    If optKirje1.Value = True Then
    aliohjelma_100_1
    ElseIf optKirje2.Value = True Then
    aliohjelma_100_2
    ElseIf optKirje3.Value = True Then
    aliohjelma_100_3
    Else
    MsgBox ("Valitse oikein!")
    End If

End Sub

Private Sub cmdTyhjenna_Click()
    lblKirje1.Caption = " "
    lblKirje2.Caption = " "
    lblKirje3.Caption = " "
    optKirje1.Value = False
    optKirje2.Value = False
    optKirje3.Value = False

    aliohjelma_scores
End Sub

Private Sub Form_Load()
    txtRahaa.Text = "100"
    txtKerta.Text = "0"
    txtPisteet.Text = "0"

    lblKirje1.Caption = " "
    lblKirje2.Caption = " "
    lblKirje3.Caption = " "
    optKirje1.Value = False
    optKirje2.Value = False
    optKirje3.Value = False

End Sub

Public Sub aliohjelma_10_2()
    optKirje2.Value = False
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 2 Then
    lblKirje2.Caption = "Oikein!"
    mk = mk + 10
    Else
    lblKirje2.Caption = "Väärin!"
    mk = mk - 10
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_10_3()
    optKirje3.Value = False
     mk = txtRahaa.Text
     kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 3 Then
    lblKirje3.Caption = "Oikein!"
    mk = mk + 10
    Else
    lblKirje3.Caption = "Väärin!"
    mk = mk - 10
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If

End Sub

Public Sub aliohjelma_20_1()
    optKirje1.Value = "False"
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 1 Then
    lblKirje1.Caption = "Oikein!"
    mk = mk + 20
    Else
    lblKirje1.Caption = "Väärin!"
    mk = mk - 20
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_20_2()
    optKirje2.Value = False
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 2 Then
    lblKirje2.Caption = "Oikein!"
    mk = mk + 20
    Else
    lblKirje2.Caption = "Väärin!"
    mk = mk - 20
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_20_3()
    optKirje3.Value = False
     mk = txtRahaa.Text
     kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 3 Then
    lblKirje3.Caption = "Oikein!"
    mk = mk + 20
    Else
    lblKirje3.Caption = "Väärin!"
    mk = mk - 20
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_50_1()
    optKirje1.Value = "False"
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 1 Then
    lblKirje1.Caption = "Oikein!"
    mk = mk + 50
    Else
    lblKirje1.Caption = "Väärin!"
    mk = mk - 50
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_50_2()
    optKirje2.Value = False
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 2 Then
    lblKirje2.Caption = "Oikein!"
    mk = mk + 50
    Else
    lblKirje2.Caption = "Väärin!"
    mk = mk - 50
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_50_3()
    optKirje3.Value = False
     mk = txtRahaa.Text
     kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 3 Then
    lblKirje3.Caption = "Oikein!"
    mk = mk + 50
    Else
    lblKirje3.Caption = "Väärin!"
    mk = mk - 50
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_100_1()
    optKirje1.Value = "False"
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 1 Then
    lblKirje1.Caption = "Oikein!"
    mk = mk + 50
    Else
    lblKirje1.Caption = "Väärin!"
    mk = mk - 50
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_100_2()
    optKirje2.Value = False
    mk = txtRahaa.Text
    kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 2 Then
    lblKirje2.Caption = "Oikein!"
    mk = mk + 100
    Else
    lblKirje2.Caption = "Väärin!"
    mk = mk - 100
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_100_3()
    optKirje3.Value = False
     mk = txtRahaa.Text
     kerta = txtKerta.Text
    Randomize
    arv = Int((3) * Rnd + 1)

    If arv = 3 Then
    lblKirje3.Caption = "Oikein!"
    mk = mk + 100
    Else
    lblKirje3.Caption = "Väärin!"
    mk = mk - 100
    End If

    txtRahaa.Text = mk

    kerta = kerta + 1

    pisteet = mk * kerta
    txtPisteet.Text = pisteet
    txtKerta.Text = kerta

    If mk < 0 Then
    aliohjelma_loppu
    Else
    End If
End Sub

Public Sub aliohjelma_loppu()

    MsgBox ("Rahat loppuivat")
    Form_Load

End Sub

Public Sub aliohjelma_scores()
    si1 = lblEka.Caption
    si2 = lblToka.Caption
    si3 = lblKolmas.Caption
    si4 = lblNeljas.Caption
    si5 = lblViides.Caption

    pisteet = txtPisteet.Text

    If pisteet >= si1 Then
    ao_sij1
    ElseIf pisteet >= si2 Then
    ao_sij2
    ElseIf pisteet >= si3 Then
    ao_sij3
    ElseIf pisteet >= si4 Then
    ao_sij4
    ElseIf pisteet >= si5 Then
    ao_sij5
    Else
    Form_Load
    End If

End Sub

Public Sub ao_sij1()
    si1 = lblEka.Caption
    si2 = lblToka.Caption
    si3 = lblKolmas.Caption
    si4 = lblNeljas.Caption
    si5 = lblViides.Caption

    pisteet = txtPisteet.Text

    lblEka.Caption = pisteet
    lblToka.Caption = si1
    lblKolmas.Caption = si2
    lblNeljas.Caption = si3
    lblViides.Caption = si4

    Form_Load

End Sub

Public Sub ao_sij2()
    si1 = lblEka.Caption
    si2 = lblToka.Caption
    si3 = lblKolmas.Caption
    si4 = lblNeljas.Caption
    si5 = lblViides.Caption

    pisteet = txtPisteet.Text

    lblToka.Caption = pisteet
    lblKolmas.Caption = si2
    lblNeljas.Caption = si3
    lblViides.Caption = si4

    Form_Load
End Sub

Public Sub ao_sij3()
    si1 = lblEka.Caption
    si2 = lblToka.Caption
    si3 = lblKolmas.Caption
    si4 = lblNeljas.Caption
    si5 = lblViides.Caption

    pisteet = txtPisteet.Text

    lblKolmas.Caption = pisteet
    lblNeljas.Caption = si3
    lblViides.Caption = si4

    Form_Load

End Sub

Public Sub ao_sij4()
    si1 = lblEka.Caption
    si2 = lblToka.Caption
    si3 = lblKolmas.Caption
    si4 = lblNeljas.Caption
    si5 = lblViides.Caption

    pisteet = txtPisteet.Text

    lblNeljas.Caption = pisteet
    lblViides.Caption = si4

    Form_Load
End Sub

Public Sub ao_sij5()
    si1 = lblEka.Caption
    si2 = lblToka.Caption
    si3 = lblKolmas.Caption
    si4 = lblNeljas.Caption
    si5 = lblViides.Caption

    pisteet = txtPisteet.Text
    lblViides.Caption = pisteet

    Form_Load

End Sub

TAKAISIN