Public Class Form1
Private tokens As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'100 tokens
tokens = 100
lblTokens.Text = tokens
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPull.Click
Randomize()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
num1 = Int(3 * Rnd() + 1)
num2 = Int(3 * Rnd() + 1)
num3 = Int(3 * Rnd() + 1)
Lblrannum1.Text = num1
lblrannum2.Text = num2
Lblrannum3.Text = num3
' Subracts the 1 token for the pull
tokens = tokens - 1
' Calls checkWin to see if you won, gives 4,8,12 tokens. Or gives none
tokens = tokens + checkWin(num1, num2, num3)
lblTokens.Text = tokens
End Sub
Private Function checkWin(ByVal num1 As Integer, ByVal num2 As Integer, ByVal num3 As Integer) As Integer
If num1 = 1 And num2 = 1 And num3 = 1 Then
MessageBox.Show("You get 4 tokens!")
Return 4
End If
If num1 = 2 And num2 = 2 And num3 = 2 Then
MessageBox.Show("You get 8 tokens!")
Return 8
End If
If num1 = 3 And num2 = 3 And num3 = 3 Then
MessageBox.Show("You get 12 tokens!")
Return 12
End If
Return 0
End Function
End Class