Technology Zone

[yuvi100]

I found the following code on the internet FOR MAKING A POKIE MACHINE, and i wanna go about completing it.

1)
Try
If lblTotalValue.Text <= 0 or Val(txtBetAmount.Text) > Val(lblTotalValue.Text) Then
MsgBox("You do not have enough money to make such a bet!" & vbCrLf & "Either reduce the bet amount or start a new game", MsgBoxStyle.Critical, "Important Notice")
Elseif txtBet Amount.Text <=0 Then
MsgBox("You cannot bet nothing!", MsgBoxStyle.Critical, "Important Notice")
Else
tmrTumbler1.Interval = 10
tmrTumbler2.Interval = 10
tmrTumbler3.Interval = 10
txtBetAmount.Enabled = False
tmrHandle.Enabled = True
End if
Catch ex As System.InvalidCastException
MsgBox("You must enter a number in the bet amount", MsgboxStyle.Critical, "Important Notice")
End Try

End Sub

2)

Randomize()
intSpin1 = Int(Rnd() * 3)
Select Case intSpin1 <----- what is required of me to do for this to work
Case 0
picTumbler1.Image = imlTumbler.Images(0)
Case 1
picTumbler1.Image = imlTumbler.Images(1)
Case 2
picTumbler1.Image = imlTumbler.Images(2)
End Select
SlowTimers() <------------ We cant get this line to work ( how do we slow the timers with this code)

And 3)

Select Case intHandleCounter
Case 0
picHandle.Image = imlHandle.Images(intHandleCounter) <--------- whats intHandleCounter and what should it do?
intHandleCounter = intHandle Counter + 1
Case 1
picHandle.Image = imlHandle.Images(intHandleCounter)
intHandleCounter = intHandle Counter + 1
Case 2
picHandle.Image = imlHandle.Images(intHandleCounter)
intHandleCounter = intHandle Counter + 1
Case 3
picHandle.Image = imlHandle.Images(intHandleCounter)
intHandleCounter = intHandle Counter + 1
Case 4
picHandle.Image = imlHandle.Images(intHandleCounter)
intHandleCounter = intHandle Counter + 1
Case 5
picHandle.Image = imlHandle.Images(intHandleCounter)
intHandleCounter = intHandle Counter + 1
Case 6
picHandle.Image = imlHandle.Images(intHandleCounter)
intHandleCounter = intHandle Counter + 1
Case 7
picHandle.Image = imlHandle.Images(intHandleCounter)
tmrTumbler1.Enabled = True
tmrTumbler2.Enabled = True
tmrTumbler3.Enabled = True
intHandleCounter = intHandle Counter + 1
Case 8
picHandle.Image = imlHandle.Images(intHandleCounter -2)
intHandleCounter = intHandle Counter + 1
Case 9
picHandle.Image = imlHandle.Images(intHandleCounter -4)
intHandleCounter = intHandle Counter + 1
Case 10
picHandle.Image = imlHandle.Images(intHandleCounter -6)
intHandleCounter = intHandle Counter + 1
Case 11
picHandle.Image = imlHandle.Images(intHandleCounter -8)
intHandleCounter = intHandle Counter + 1
Case 12
picHandle.Image = imlHandle.Images(intHandleCounter -10)
intHandleCounter = intHandle Counter + 1
Case 13
picHandle.Image = imlHandle.Images(intHandleCounter -12)
intHandleCounter = intHandle Counter + 1
Case 14
picHandle.Image = imlHandle.Images(intHandleCounter -14)
intHandleCounter = 0
tmrHandle.Enabled = False
End Select

End Sub

Could anyone please shed some light on how i could go about doing this?, i have NO IDEA!!! Any help would be greatful!
Thanks,
Yuvi100

[Travy92]

I'm not sure what you mean. But first off you should start by making the form.
For 1) Looks like you need 2 TextBoxes (Named: "txtBetAmount" and "lblTotalValue") and 3 Timers (Named: "tmrTumbler1", "tmrTumbler2" and "tmrTumbler3") the intervals are already stated in the code. Those are the basic ones you need.

For 2) You need:
1 PictureBox named: "picTumbler1"

For 3) You need:
2 PictureBoxs? Named: "picHandle" and "imlHandle" <- Not sure about this, it's ending is ".images"
Then you'd need to declare "intHandleCounter" and "intHandle".
And a Timer named: "tmrHandle" but not sure what intervals.

Please explain this bit: "Select Case intHandleCounter" <- What is it referring to?

P.S - What VB version you using?
If it's not VB2008 (VB9) then this code won't work for you.

------------------------------------
Edit - Ok now I understand a bit more:
I'm thinking you need to declare intSpin1 (I think it's declared one line above it but I can't remember the correct syntax).
Basically what it means is intSpin1 = a random number from 1 - 3 (this changes periodically). And under it, it says "if intSpin1 = 1, 2 or 3 then.. make the picturebox have 3 different images (depending on which number from 1 - 3 it was.. if it was 1, then image 1 would appear, if it was 2 then image 2 and so on).

For slowTimers : I think this is a private sub.
I'm guessing this is the code for the private sub:

Private Sub SlowTimers
tmrTumbler1.Interval = 5
tmrTumbler2.Interval = 5
tmrTumbler3.Interval = 5
End Sub

Since the name is "SlowTimers" i'm guessing it actually slows them, so I reduced their intervals by 5.

[dirky00018]

sorry if this is a noob question. but what is a pokies machine??? =X

[Travy92]

It's for gambling, Google it or something.
Don't get into gambling.

[+touche_]

SlowTimers() <------------ We cant get this line to work ( how do we slow the timers with this code)

probably a missing function , you've got to code it yourself

eg.

private sub Slowtimers()
*code to slow timers , eg 1 master timer to control everyone else's speed*
end sub

and for the intspin1 , i guess you just have to add "dim intspin1 as integer" above that line


although this code doesnt really look too vb8-ish to me

[yuvi100]

how do i declare "intHandleCounter" and "intHandle".
WHAT DO I TTYPE FOR IT AND WER

thnx for tha help so far (Travy92)

[+Mario]

you can at the top below your form name type


public inthandlecounter as single or long
public inthandle as (idk maby)handle or single or long


im not sure fully just my guess.

[yuvi100]

Aiight ppl i hav screenshots of my process so far tell me if there is anything to FIX AND ADD !!! My tmrTumblers are not acting with intSpin1 , meaning i cant get SlowTimers to work (could any1 help with this aswell) !!!


[/IMG]

[/IMG]




ANY HELP WOULD BE APPRECIATED
Thnx,
Yuvi100

[Travy92]

Private Sub SlowTimers ()
TmrTumbler1.Interval = 5
TmrTumbler2.Interval = 5
TmrTumbler3.Interval = 5
End Sub

Looks like you forgot the capital T in your code.
Add them to make them look like this.
----------------------------------
You don't need this:

Private Sub PicTumbler1_Click [blah blah]
TmrTumbler1.Enabled = True
End Sub

Since above this code block there is another sub enabling those 3 Timers.
Unless you wanted this so that when the user clicks one of the images, the Timer is enabled.

Where's the code for the TmrTumler1/2/3's?

[yuvi100]

I didn't put any code for:
TmrTumbler1
TmrTumbler2
TmrTumbler3

What code do i need to put in their ???

What does the tmrTumblers supposed to do,
Examples:
-Spin the images
-Set a time for how long the PicTumblers should spin for
-..........

Thnx