How fast will you lose money on slot machines?

This is a discussion on How fast will you lose money on slot machines? within the General Chat board part of the General category; I was so bored that I decided to make a program on how fast will you lose money on slot ...

Results 1 to 5 of 5
  1. #1
    NeSuckS is offline Banned User
    Array
    Join Date
    May 2009
    Posts
    389
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    534

    How fast will you lose money on slot machines?

    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
    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
    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.

    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.
    Attached Files
    Last edited by NeSuckS; 06-21-2009 at 11:58 PM. Reason: I'm a winner!

  2. #2
    hendricius's Avatar
    hendricius is offline Administrator

    Array
    Join Date
    Feb 2007
    Location
    Goettingen, Germany
    Posts
    6,312
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    23
    Reputation
    2180
    I have been playing on slot machines for quite a while. Usually doing so when I am on ferries or on vacation somewhere. Once I won 500 NOK.
    You suck. Suck a little less and become a fan on Facebook.

    "D3scene pwns" - Hendrik (PIRATE)

  3. #3
    Bat's Avatar
    Bat
    Bat is offline Premium Member
    Array
    Join Date
    Feb 2007
    Location
    Norway :P
    Posts
    736
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    13
    Reputation
    618
    Wut, where in norway were you?

  4. #4
    NeSuckS is offline Banned User
    Array
    Join Date
    May 2009
    Posts
    389
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    534
    What you can learn with this program is that you have to win the jackpot when you play a slot machine, otherwise you will lose money. Always go for a machine where the highest jackpot is a small one then walk away after (if) you win . Also avoid slot machines where there are a bunch of small winning possibilities, all this does is increase the number of tries required to win the big jackpot which means the chances you'll be in the red are much greater.

  5. #5
    Serverman's Avatar
    Serverman is offline Paranoia!

    Array
    Join Date
    Jan 2008
    Posts
    3,487
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    16
    Reputation
    1301
    Uhm, how can this program help? Slot machines are programmed in different ways, so some may be programmed to make you loose today, and some may be programmed to make you win (Thats a rare one ). The basic tactic would be waiting untill someone has lost alot, then your chance to win is bigger
    My car is not leaking oil?
    Its marking its territory!

Similar Threads

  1. Memoirs of World of Warcraft
    By Hallowsend in forum WoW forum
    Replies: 21
    Last Post: 08-28-2013, 10:34 AM
  2. Complete Human Guide
    By Qtpie in forum Warcraft 3 Strategies
    Replies: 8
    Last Post: 10-03-2011, 10:35 AM
  3. War Rock Info
    By Xoyse in forum WarRock
    Replies: 1
    Last Post: 06-26-2009, 07:12 PM
  4. ArcEmu Compiles with Sun++
    By Neuron in forum WoW Private Servers
    Replies: 0
    Last Post: 09-11-2008, 01:31 PM
  5. Navyfield Kriegsmarine guide
    By hendricius in forum Other Games
    Replies: 0
    Last Post: 09-07-2008, 08:54 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •