• Home
 · 
• Games
 · 
• make a cool slot machine game!

make a cool slot machine game!

make a cool slot machine game!

API Declarations


Dim Bankroll As Integer



Rate make a cool slot machine game!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

MsgBox " You ended with" + Str(Bankroll) + " points.", vbOKOnly, "GAME OVER"
End
End Sub

Private Sub cmdSpin_Click()
If Bankroll = 0 Then
    MsgBox " HA! YOU ARE OUT OF MONEY! SUCKER!", vbOKOnly, "GAME OVER"
    End
    End If
    Bankroll = Bankroll - 1
    lblBank.Caption = Str(Bankroll)
    timSpin.Enabled = True
    timDone.Enabled = True
End Sub

Private Sub Form_Load()
Randomize Timer
Bankroll = Val(lblBank.Caption)
End Sub

Private Sub imgBandit_Click(Index As Integer)

End Sub

Private Sub imgChoice_Click(Index As Integer)

End Sub

Private Sub timDone_Timer()
Dim P0 As Integer, P1 As Integer, P2 As Integer
Dim Winnings As Integer
Const FACE = 3
timSpin.Enabled = False
timDone.Enabled = False
P0 = Int(Rnd * 4)
P1 = Int(Rnd * 4)
P2 = Int(Rnd * 4)
imgBandit(0).Picture = imgChoice(P0).Picture
imgBandit(1).Picture = imgChoice(P1).Picture
imgBandit(2).Picture = imgChoice(P2).Picture
If P0 = FACE Then
    Winnings = 1
    If P1 = FACE Then
    Winnings = 3
    If P2 = FACE Then
    Winnings = 10
End If
End If
ElseIf P0 = P1 Then
    Winnings = 2
    If P1 = P2 Then Winnings = 4

    End If
Bankroll = Bankroll = Winnings
lblBank.Caption = Str(Bankroll)
End Sub

Private Sub timSpin_Timer()
imgBandit(0).Picture = imgChoice(Int(Rnd * 4)).Picture
imgBandit(1).Picture = imgChoice(Int(Rnd * 4)).Picture
imgBandit(2).Picture = imgChoice(Int(Rnd * 4)).Picture
End Sub