• Home
 · 
• Games
 · 
• 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

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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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