I was so bored that I decided to make a program on how fast will you lose money on slot machines.
Now you'll know the answer with my slot machine program
Download link is at the bottom of this post
Not winning? Try lowering the jackpot size, most slot machines have never paid out a million dollar+ jackpot in their entire operation.
The reason why you lose so much money so fast while your chances are supposed to be 80%-98% is because the chances include the jackpot.
Here's the slot machine code if your interested
I just updated this program! It turns out a bug in the previous version would let losing bets play in the jackpot, it doesn't change the statistical outcome though. I also added small $1 winnings which means it will take more tries to win the jackpot. The program's speed was also improved.Code:Private Sub Command1_Click() Randomize Dim i As Currency Dim random1 As Currency Dim random As Currency Dim Money As Currency Dim onetime As Integer Label10.Caption = "No jackpots hit." For i = 0 To Text2.Text - 1 random1 = Round(Rnd * 100) If random1 >= Text3.Text Then Money = Money - 1 GoTo bottom End If random1 = Round(Rnd * 10) If random1 < 3 Then Money = Money - 1 GoTo bottom End If If random1 > 4 And random1 < 8 Then Money = Money + 1 GoTo bottom End If random = Round(Rnd * Text1.Text) If random = 1 Then If onetime = 0 Then Label10.Caption = "First jackpot hit after " & (i + 1) & " tries." onetime = 1 End If Money = Money + Text1.Text Else Money = Money - 1 End If bottom: Next i Label5.Caption = "Amount of tries " & i Label8.Caption = "$" & Money If Money > 0 Then Label8.ForeColor = vbGreen Else Label8.ForeColor = vbRed End If Dim moneyG As Double moneyG = CDbl(Label9.Caption) moneyG = moneyG + Money If moneyG > 0 Then Label9.ForeColor = vbGreen Else Label9.ForeColor = vbRed End If Label9.Caption = "$" & moneyG Dim numberoftries As Double numberoftries = CDbl(Label13.Caption) + i Label13.Caption = numberoftries End Sub
Updated again, this would be the third version of this program. The last one had a bug which made the payback 99%, with the new program you can set the payback % plus it fixes 2 small bugs.