this is a slot machian sample code for the first comand button

by a.kibz (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 28^th May 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate 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

Download this snippet Add to My Saved Code

this is a slot machian sample code for the first comand button Comments

No comments have been posted about this is a slot machian sample code for the first comand button. Why not be the first to post a comment about this is a slot machian sample code for the first comand button.

this is a slot machian sample code for the first comand button

this is a slot machian sample code for the first comand button Comments

Post your comment

Difficulty