Loaded Sub
How do I create a sub procedure to calculate odds in a slot machine game for Visual Basic?
I am working on a slot machine game for my Visual Basic class. The Form_Load sets up 5 labels for the slots, and I have added two timers, so that when the roll button is clicked, the pictures in each slot changes frequently (every 2/10th's of a second) and then the second timer allows the rolling to stop after 4-5 seconds. I need to create a sub procedure with two parameters (the odds and the number of slots) so that when the second timer ticks, I need to assign pictures to the slots for the final display, where there are 5 slots in total, where I am supposed to get a random number from 1 to 100 for each slot, and if this number is less than the odds (in this case, 80), then it is supposed to be equal to the image of the first slot. Help!!!
Changing the picture in a timer. The easiest way is to use a imagelist, the call a picture from that picture array.
With tmrMain
.Interval = 20
.Enabled = True
.Start()
End With
'In the timer make a counter
'to enable a stoppin point
Sub tmrMain.Tick(...)...
picMain.Image = imgList.Images.Item(Number)
End Sub
Then to create a sub
Sub myNumber(ByVal intOdd as Integer, ByVal RandomNum as Random)
'Statement goes here
If intOdd =< 80 AndAlso intOdd < RandomNum.Next(1,100) Then
pic2.Image = pic1.Image
End If
 |
 KICKER Amplified Loaded SUB BOX W S15L7 ZX10001 AMP $599.95 Time Remaining: 3h 55m Buy It Now for only: $599.95 |
 KICKER POWERED LOADED SUB BOX W S15L7 ZX10001 AMP NEW $629.95 Time Remaining: 3h 58m Buy It Now for only: $629.95 |
 KICKER Car Stereo 12 2 Ohm Sub S12L7 LOADED Vented Subwoofer BOX DX5001 AMP $416.75 Time Remaining: 4h 2m Buy It Now for only: $416.75 |
 Kicker Car STEREO DS12L3 LOADED Ported Sub BOX ZX15001 AMPLIFIER AMP WIRE KIT $816.75 Time Remaining: 4h 2m Buy It Now for only: $816.75 |
 KICKER Car Audio DS12L3 LOADED Vented Sub BOX ZX7501 AMPLIFIER AMP WIRE KIT $619.75 Time Remaining: 4h 5m Buy It Now for only: $619.75 |
 KICKER CAR STEREO 12 2 OHM SUB S12L7 LOADED Sealed Subwoofer BOX DX3002 AMP $419.75 Time Remaining: 4h 39m Buy It Now for only: $419.75 |
 KICKER CAR STEREO DS12L3 LOADED PORTED SUB BOX ZX10001 AMPLIFIER AMP WIRE KIT $654.75 Time Remaining: 5h 2m Buy It Now for only: $654.75 |
 Kicker Loaded Car Sub BOX W S12L5 L5 SUBWOOFERS NEW $179.95 Time Remaining: 5h 10m Buy It Now for only: $179.95 |
 BOSS CAR Audio Loaded SINGLE 10 CHAOS 600W Subwoofer Vented SUB BOX PACKAGE NEW $99.95 Time Remaining: 5h 10m Buy It Now for only: $99.95 |
 KICKER 15 LOADED Powered Sub BOX C10 COMP ZX4001 $301.95 Time Remaining: 5h 12m Buy It Now for only: $301.95 |
 KICKER LOADED AMPED SUB BOX W S12L5 ZX3504 AMPLIFIER $309.95 Time Remaining: 5h 13m Buy It Now for only: $309.95 |
 KICKER LOADED Amplified Sub BOX W S12L5 ZX3504 AMP $289.95 Time Remaining: 5h 13m Buy It Now for only: $289.95 |
 Loaded Kicker 04 06 CHEVY SUB BOX W TWO CVT12 SUBS NEW $239.95 Time Remaining: 5h 14m Buy It Now for only: $239.95 |
 KICKER 10 LOADED SUB CVT10 Subwoofer Enclosure NEW $133.95 Time Remaining: 5h 15m Buy It Now for only: $133.95 |
 KICKER LOADED CAR SUB BOX W 12 S12L5 L5 SUBWOOFER $189.95 Time Remaining: 5h 16m Buy It Now for only: $189.95 |
 KICKER 10 PORTED LOADED SUB C10 SUBWOOFER ENCLOSURE NEW $101.95 Time Remaining: 6h 25m Buy It Now for only: $101.95 |
 JL Audio CS110RG W3v3 Sub Woofer Loaded + PowerWedge Enclosure Box + Grille $269.95 Time Remaining: 1d 54m Buy It Now for only: $269.95 |
 FLI AUDIO FU1 AMPLIFIED SINGLE 10 800W MAX Stereo Sub WOOFER Loaded Enclosure $124.15 Time Remaining: 1d 1h 46m Buy It Now for only: $124.15 |
 AUDIOBAHN ABB122J DUAL 12 800W MAX CAR STEREO LOADED SUB Woofer Enclosure BOX $238.15 Time Remaining: 1d 3h 32m Buy It Now for only: $238.15 |
 NEW AUDIOPIPE 12 750 Watt Amplified Sub Box LOADED AMP $139.95 Time Remaining: 1d 6h 45m Buy It Now for only: $139.95 |
 2011 KICKER 11 PH12 AMPLIFIED POWERED LOADED Sub Enclosure w 12 WOOFER 11PH12 $349.95 Time Remaining: 1d 7h 22m Buy It Now for only: $349.95 |
 New Visonik Dual 6 Inch 200 Watt Loaded Sub Enclosure Speaker System NR $16.74 (4 Bids) Time Remaining: 1d 7h 53m |
 2011 KICKER 11 PHD12 POWERED Loaded Dual WOOFER ENCLOSURE w 2 12 SUBS 11PHD12 $499.95 Time Remaining: 2d 3h 25m Buy It Now for only: $499.95 |
 Chevy Colorado 04 12 Crew Cab BOSS DUAL 10 CHAOS 1200W SUBWOOFER LOADED SUB BOX $169.95 Time Remaining: 2d 3h 40m Buy It Now for only: $169.95 |
 AUDIOBAHN ABB101J 300W RMS SINGLE 10 LOADED CAR Audio Sub WOOFER ENCLOSURE BOX $147.15 Time Remaining: 2d 4h 11m Buy It Now for only: $147.15 |
 BRAND NEW Kicker 10TCVT82 8 Loaded Slim Truck Box with Sub $114.95 Time Remaining: 2d 4h 55m Buy It Now for only: $114.95 |
 POWERBASS PS WB110 LOADED SUBWOOFER ENCLOSURE WITH A SINGLE 10 SUB 500W NEW $149.95 Time Remaining: 2d 6h 19m Buy It Now for only: $149.95 |
 CHEVY COLORADO 04 12 EXT Cab Truck LOADED DUAL 12 CVT12 SUB BOX ZX7501 AMP $520.95 Time Remaining: 2d 6h 34m Buy It Now for only: $520.95 |
 KICKER 15 VENTED LOADED Comp Sub C10 SUBWOOFER BOX NEW $154.95 Time Remaining: 2d 6h 45m Buy It Now for only: $154.95 |
 KICKER 10 LOADED CVT10 SUB LOADED SUBWOOFER BOX NEW $109.95 Time Remaining: 2d 6h 56m Buy It Now for only: $109.95 |
 KICKER DUAL 10 Slot Port LOADED CVT10 SUB BOX PACKAGE ZX7501 AMP AMPLIFIER $494.95 Time Remaining: 2d 6h 56m Buy It Now for only: $494.95 |
 KICKER 15 LOADED COMP C15 SUB LOADED SUBWOOFER BOX NEW $118.95 Time Remaining: 2d 6h 57m Buy It Now for only: $118.95 |
 KICKER LOADED AMPLIFIED SUB BOX 12 S12L5 SUBS ZX6504 $569.95 Time Remaining: 2d 6h 59m Buy It Now for only: $569.95 |
 KICKER DUAL 12 LOADED 2010 CVT12 VENTED SUB BOX NEW $255.95 Time Remaining: 2d 7h Buy It Now for only: $255.95 |
 POWERBASS PS WB112 LOADED SUBWOOFER ENCLOSURE WITH A SINGLE 12 SUB 550W NEW $169.95 Time Remaining: 2d 7h Buy It Now for only: $169.95 |
 KICKER DUAL 15 COMP SUB C15 LOADED ENCLOSURE BOX NEW $214.95 Time Remaining: 2d 7h 5m Buy It Now for only: $214.95 |
 KICKER DUAL 12 LOADED COMP 2010 C12 VENTED SUB BOX NEW $191.95 Time Remaining: 2d 7h 28m Buy It Now for only: $191.95 |
 Chevy Silverado 88 98 Ext Cab TRUCK RHINO LINED LOADED DUAL 12 SUB BOX ZX7501 $550.95 Time Remaining: 2d 7h 30m Buy It Now for only: $550.95 |
 KICKER 12 VENTED LOADED COMP SUB C10 SUBWOOFER BOX NEW $125.95 Time Remaining: 2d 7h 32m Buy It Now for only: $125.95 |
 Ford Mustang CONVERTIBLE KICKER LOADED DUAL 12 CVT12 SUB BOX ZX7501 AMPLIFIER $511.95 Time Remaining: 2d 7h 51m Buy It Now for only: $511.95 |
 KICKER 10 PORTED LOADED SUB CVT10 SUBWOOFER BOX NEW $138.95 Time Remaining: 2d 8h 8m Buy It Now for only: $138.95 |
 KICKER 12 LOADED 2010 C12 Sub Vented SUBWOOFER BOX NEW $100.95 Time Remaining: 2d 8h 17m Buy It Now for only: $100.95 |
 Ford Ranger 83 09 12 LOADED Kicker Sub BOX C12 NEW $129.95 Time Remaining: 2d 8h 23m Buy It Now for only: $129.95 |
 KICKER DUAL 10 COMP SUB CVT10 LOADED SUBWOOFER BOX NEW $197.95 Time Remaining: 2d 8h 28m Buy It Now for only: $197.95 |
 CHEVY CK 88 98 10 KICKER LOADED SUB BOX CVT10 COMP NEW $172.95 Time Remaining: 2d 8h 44m Buy It Now for only: $172.95 |
 KICKER 15 PREMIUM LOADED C15 SUBWOOFER BOX SUB NEW $159.95 Time Remaining: 2d 9h 7m Buy It Now for only: $159.95 |
 KICKER LOADED AMPED SUB BOX 15 SUBWOOFERS ZX10001 NEW $739.95 Time Remaining: 2d 9h 12m Buy It Now for only: $739.95 |
 KICKER 12 CVT12 SUB LOADED VENTED SUBWOOFER BOX NEW $132.95 Time Remaining: 2d 9h 20m Buy It Now for only: $132.95 |
 KICKER 15 LOADED VENTED COMP SUB C15 SUBWOOFER BOX NEW $159.95 Time Remaining: 2d 9h 21m Buy It Now for only: $159.95 |
 Chevy Avalanche 02 11 SUV LOADED DUAL 10 CVT10 SUB BOX ZX7501 AMP AMPLIFIER $513.95 Time Remaining: 2d 9h 22m Buy It Now for only: $513.95 |
 Nissan Titan 05 09 KICKER DUAL 10 LOADED SUB BOX NEW $192.95 Time Remaining: 2d 9h 23m Buy It Now for only: $192.95 |
 KICKER 12 VENTED LOADED SUB CVT10 SUBWOOFER BOX NEW $157.95 Time Remaining: 2d 9h 25m Buy It Now for only: $157.95 |
 KICKER 12 PREMIUM LOADED CVT12 SUBWOOFER BOX SUB NEW $161.95 Time Remaining: 2d 9h 28m Buy It Now for only: $161.95 |
 KICKER 8 LOADED VENTED SUB CVT8 SUBWOOFER BOX NEW $127.95 Time Remaining: 2d 9h 47m Buy It Now for only: $127.95 |
 KICKER 10 PREMIUM LOADED C10 SUBWOOFER BOX SUB NEW $110.95 Time Remaining: 2d 9h 57m Buy It Now for only: $110.95 |
 KICKER 12 PREMIUM LOADED C12 SUBWOOFER BOX SUB NEW $129.95 Time Remaining: 2d 10h 4m Buy It Now for only: $129.95 |
 FORD F 150 99 06 10 KICKER CVT10 LOADED SUB BOX NEW $162.95 Time Remaining: 2d 10h 10m Buy It Now for only: $162.95 |
 KICKER DUAL 12 COMP SUB C12 LOADED ENCLOSURE BOX NEW $166.95 Time Remaining: 2d 10h 15m Buy It Now for only: $166.95 |
 KICKER DUAL 15 LOADED C15 SUB LOADED SUBWOOFER BOX NEW $202.95 Time Remaining: 2d 10h 16m Buy It Now for only: $202.95 |
 KICKER 12 LOADED 2010 C12 Sub Comp SUBWOOFER BOX NEW $91.95 Time Remaining: 2d 10h 16m Buy It Now for only: $91.95 |