by a.kibz (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 28th May 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
this is a slot machian sample code for the first comand button
Randomize
int1 = Int((9 - 1 + 1) * Rnd + 1)
If Val(int1) = 1 Then
pic1.Visible = True
pic2.Visible = False
pic3.Visible = False
pic4.Visible = False
pic5.Visible = False
pic6.Visible = False
pic7.Visible = False
pic8.Visible = False
pic9.Visible = False
Else
If Val(int1) = 2 Then
pic9.Visible = False
pic8.Visible = False
pic7.Visible = False
pic6.Visible = False
pic5.Visible = False
pic4.Visible = False
pic3.Visible = False
pic2.Visible = True
pic1.Visible = False
Else
If Val(int1) = 3 Then
pic9.Visible = False
pic8.Visible = False
pic7.Visible = False
pic6.Visible = False
pic5.Visible = False
pic4.Visible = False
pic3.Visible = True
pic2.Visible = False
pic1.Visible = False
Else
If Val(int1) = 4 Then
pic9.Visible = False
pic8.Visible = False
pic7.Visible = False
pic6.Visible = False
pic5.Visible = False
pic4.Visible = True
pic3.Visible = False
pic2.Visible = False
pic1.Visible = False
Else
If Val(int1) = 5 Then
pic9.Visible = False
pic8.Visible = False
pic7.Visible = False
pic6.Visible = False
pic5.Visible = True
pic4.Visible = False
pic3.Visible = False
pic2.Visible = False
pic1.Visible = False
Else
If Val(int1) = 6 Then
pic9.Visible = False
pic8.Visible = False
pic7.Visible = False
pic6.Visible = True
pic5.Visible = False
pic4.Visible = False
pic3.Visible = False
pic2.Visible = False
pic1.Visible = False
Else
If Val(int1) = 7 Then
pic8.Visible = False
pic7.Visible = True
pic6.Visible = False
pic5.Visible = False
pic4.Visible = False
pic3.Visible = False
pic2.Visible = False
pic1.Visible = False
Else
If Val(int1) = 8 Then
pic9.Visible = False
pic8.Visible = True
pic7.Visible = False
pic6.Visible = False
pic5.Visible = False
pic4.Visible = False
pic3.Visible = False
pic2.Visible = False
pic1.Visible = False
Else
If Val(int1) = 9 Then
pic9.Visible = True
pic8.Visible = False
pic7.Visible = False
pic6.Visible = False
pic5.Visible = False
pic4.Visible = False
pic3.Visible = False
pic2.Visible = False
pic1.Visible = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
spin1.Visible = False
slot2.Visible = True
End Sub