[HackFourmIsHelpful]

Alright so we have been doing programs in my computer class, and I can't do this right now, I am trying my best and I know HF will not give me on how to do it, so I would like help. We are to make a slot machine game. This picture looks like this: https://imgur.com/QmFSy1O
It says this in the book: Create a BookMachineGame application that acts as a simple slot machine. The user starts with 100 tokens. With each "pull" of the handle, the user loses 1 token and the computer "spins" three wheels, each consisting of the numbers 1,2, and 3. If all three numbers are 1, the user get 4 tokens; if all are 2 the user gets 8 tokens and if the user get 3 the user gets 12 tokens. The number of tokens that the user has should be displayed on the form and the result of the spin should be displayed in a message box.

Any help? I know I should have: Dim Token as Integer
Dim tokenlost as integer
that's all I got, I am so lost.

[My Computer]

Basically in order to achieve this you must do this.

1. Have an integer that stores the token (since you said they start with 100 tokens the default value of this integer will be 100):

Code

Dim Token as Integer = 100

2. Subtract 1 from the 'Token' integer each time the "Pull" button is clicked.

Code

Token = Tokens - 1

3. After you subtract 1, you should use the Random class to get a random number.

Code

Dim R As Random = New Random()
Dim FirstValue As Integer = R.Next(1, 4)
Dim SecondValue As Integer = R.Next(1, 4)
Dim ThirdValue As Integer = R.Next(1, 4)

What this code does is that it generates a random number for each of these variables.

3. Have a Boolean and check if all three labels or variables are matching. If they are then the Boolean will be true, else false.

Code

Dim FirstValue As Integer = 1
        Dim SecondValue As Integer = 1
        Dim ThirdValue As Integer = 1

        Dim Matching As Boolean = False

        If FirstValue = SecondValue AndAlso SecondValue = ThirdValue Then
            Matching = True
            MessageBox.Show("They are matching!")
        Else
            Matching = False
            MessageBox.Show("They are NOT matching!")
        End If

The output should be that "They are matching!".

4. Check if the Boolean is true, if it is then take the first number of your label or variable and according to the number tell the user how many tokens they got and display it to them.

Code

If Matching Then
            If FirstValue = 1 Then
                MessageBox.Show("You scored 4 tokens!")
            ElseIf FirstValue = 2 Then
                MessageBox.Show("You scored 8 tokens!")
            ElseIf FirstValue = 3 Then
                MessageBox.Show("You scored 12 tokens!")
            Else
                MessageBox.Show("Unknown number...")
            End If
        Else
            MessageBox.Show("Uh oh! They were not matching so you got 0 tokens!")
        End If

5. Add the tokens to the 'Tokens' integer? (This will be easy, just add it in the source code I provided above this step.).

If this is not clear enough, want a better explanation, or you have another problem then just ask.

[VmX5]

2. Subtract 1 from the 'Token' integer each time the "Pull" button is clicked.

Code

Token = Tokens - 1

Easier :

Code

Token -= 1

Just a tip ;)

[My Computer]

Easier :

Code

Token -= 1

Just a tip ;)

Ah yes, forgot that I could of done this. Thanks for reminding me. 😝

[Odus]

Code

Dim R As Random = New Random()

Take the shorthand method instead of declaring and instantiating separately:

Code

Dim r As New Random

Casing for local variables should be camel, not pascal. I'd also redo this bit:

Code

Dim Matching As Boolean = False

        If FirstValue = SecondValue AndAlso SecondValue = ThirdValue Then
            Matching = True
            MessageBox.Show("They are matching!")
        Else
            Matching = False
            MessageBox.Show("They are NOT matching!")
        End If

To:

Code

Dim match As Boolean = first = second AndAlso second = third

If match is false, then display the message box and return. If not, continue. Cleaner that way and you're not displaying a redundant message box. + I think you've been a bit too generous for a homework assignment.

[HackFourmIsHelpful]

Thanks guys for all the help! I really appreciated that.

[Ninja]

Basically in order to achieve this you must do this.

1. Have an integer that stores the token (since you said they start with 100 tokens the default value of this integer will be 100):

Code

Dim Token as Integer = 100

2. Subtract 1 from the 'Token' integer each time the "Pull" button is clicked.

Code

Token = Tokens - 1

3. After you subtract 1, you should use the Random class to get a random number.

Code

Dim R As Random = New Random()
Dim FirstValue As Integer = R.Next(1, 4)
Dim SecondValue As Integer = R.Next(1, 4)
Dim ThirdValue As Integer = R.Next(1, 4)

What this code does is that it generates a random number for each of these variables.

3. Have a Boolean and check if all three labels or variables are matching. If they are then the Boolean will be true, else false.

Code

Dim FirstValue As Integer = 1
        Dim SecondValue As Integer = 1
        Dim ThirdValue As Integer = 1

        Dim Matching As Boolean = False

        If FirstValue = SecondValue AndAlso SecondValue = ThirdValue Then
            Matching = True
            MessageBox.Show("They are matching!")
        Else
            Matching = False
            MessageBox.Show("They are NOT matching!")
        End If

The output should be that "They are matching!".

4. Check if the Boolean is true, if it is then take the first number of your label or variable and according to the number tell the user how many tokens they got and display it to them.

Code

If Matching Then
            If FirstValue = 1 Then
                MessageBox.Show("You scored 4 tokens!")
            ElseIf FirstValue = 2 Then
                MessageBox.Show("You scored 8 tokens!")
            ElseIf FirstValue = 3 Then
                MessageBox.Show("You scored 12 tokens!")
            Else
                MessageBox.Show("Unknown number...")
            End If
        Else
            MessageBox.Show("Uh oh! They were not matching so you got 0 tokens!")
        End If

5. Add the tokens to the 'Tokens' integer? (This will be easy, just add it in the source code I provided above this step.).

If this is not clear enough, want a better explanation, or you have another problem then just ask.

Just a few remarks, the last if statement could be way shorter, and also you shouldn't declare a new random object each time, rather use the same one each time and randomize every now and then.

[My Computer]

Just a few remarks, the last if statement could be way shorter, and also you shouldn't declare a new random object each time, rather use the same one each time and randomize every now and then.

Yea I know, the code I posted was not the greatest. I just quickly typed it up to give OP a general idea on what he has to do to achieve his assignment.