Help a university student, PT 2

[Schizophonic]

I decided to make a second thread about it. Getting too long

Anyway, this is what i've done so far, and its got to be shown on a week on thusday.

Option Explicit
Dim money As Integer
Dim intSpin As Integer
Dim intPicture As Integer
Dim Spin As Integer
Dim Var1 As Integer
Dim Var2 As Integer
Dim Var3 As Integer
Dim winnings
 
 
Private Sub cmdbet_Click()
If money > 0 Then
money = money - 20
txtMoneyamount.Text = money
Else
cmddecrement.Visible = False
MsgBox "Insert more money!"
End If
 
End Sub
 
Private Sub cmdinsertcoin_Click()
money = 100
txtMoneyamount.Text = money
 
 
End Sub
 
Private Sub cmdspin_Click()
     Randomize
Call Form_Load
     txtwinnings.Text = winnings
If Var1 = 1 Then
winnings = 20
End If
If money > 0 Then
money = money - 20
txtMoneyamount.Text = money
Else
cmddecrement.Visible = False
MsgBox "Insert more money!"
End If
tmrspin.Enabled = True
Spin = money / 20
txtturnsavalible.Text = money
End Sub
 
 
Private Sub Form_Load()
Randomize
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
        
End Select
Select Case Int(8 * Rnd)
    Case 0
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
Private Sub imgbox1_Click()
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
 
Private Sub imgbox2_Click()
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
 
Private Sub imgbox3_Click()
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
Private Sub txtMoneyamount_Change()
 
If txtMoneyamount.Text = 0 Then
cmdinsertcoin.Enabled = True
Else
txtMoneyamount.Text = 100
cmdinsertcoin.Enabled = False
End If
txtMoneyamount.Text = money
End Sub

Now one of the basic make i need is to get the winnings to show. So if a melon appears, the winner gets 20 credits and so on. How do i do this?

[ober0330]

OK, I see a giant need for simplifying your code. Do you notice how your code repeats A LOT??

You can put all that code in each click event and the form load event into one procedure or function and call it from the others.

Then, to get the winnings to show correctly, you'll want to set a variable in the case statement to whatever it was that was shown... like in Case 3, set a global variable to 3 or something. Then pass that back to the function that will show the winnings.

[Schizophonic]

umm, i'm a complete new student with VB, so i don't know a thing about vb. Only very simple things.

Would you be able to write the code in aid for this work i have to do?

[Bruce Fox]

Just a side point. As the routine to load your ImagBox is the same (just a different ImageBox each time), you could write ONE sub like:

Option Explicit
 
Private Sub Form_Load()
 
    Load_Reals imgBox1
    Load_Reals imgBox2
    Load_Reals imgBox3
    Load_Reals imgBox4
    Load_Reals imgBox5
    Load_Reals imgBox6
    Load_Reals imgBox7
 
End Sub
 
Private Sub Load_Reals(ByVal imgBox As Image)
 
    Select Case Int(8 * Rnd) ' Generates 0 to 7
        Case 0
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
        Case 1
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
        Case 2
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
        Case 3
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
        Case 4
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
        Case 5
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
        Case 6
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
        Case 7
            imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
    End Select
 
End Sub

Bruce.

[Schizophonic]

right, ive copied all of that and when i load it all up it gives me an error on "vairble not defined"

[ober0330]

can you tell us what variable it is saying is not defined? It's probably because the code Bruce posted refers to 7 image boxes and you only have 3. Take out 4-7.

[Schizophonic]

now it works!

So about the winnings?

Any thing i need to add?

[ober0330]

did you read what I posted before about that?

[Schizophonic]

Then, to get the winnings to show correctly, you'll want to set a variable in the case statement to whatever it was that was shown... like in Case 3, set a global variable to 3 or something. Then pass that back to the function that will show the winnings.

Sorry mate this means nothing to me. All i know by what you say is that:
In my case 3,

imgBox.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")

somehow add a "key" ,so when that picture loads up, it will add 20 credits.
Am i correct?
If so how do it then?

[Schizophonic]

bump

[ober0330]

No need to use the mad smilie... damn. Chill out.

As I said before, (if I'm understanding this), in your select statement, you assign a global variable called "winnings" or something to be whatever value you want so that whenever that picture shows up, a certain amount gets added to the prize.

I don't know... it's hard for me to understand what you're trying to do or how you want to do it. Sorry. Don't get pissed at me. Explain it better.