Monday, September 9, 2013

Simple Slot Machine- 3 Labels, Button and Money

'Simple Slot Machine
Dim x, y, z As Integer
        Randomize()
picMoney.Visible = False
        x = Int(Rnd() * 7) + 1
        y = Int(Rnd() * 7) + 1
        z = Int(Rnd() * 7) + 1
        lblBox1.Text = x
        lblBox2.Text = y
        lblBox3.Text = z
       If x=7 or y=7 and z= 7 Then
            picMoney.Visible = True
       End If

No comments:

Post a Comment