How the auto-better works.

 Ok so I was going to write about this a little later, but I decided to do it today because I've already had a few people asking me about how I made the auto-better and how it works. So that's what I'm going to talk about today. I programmed it in visual basic, nothing really special. But in any-case lets take a look...

This is the main interface. 

Now there are 4 main entry text boxes, 3 buttons and 2 list boxes. The 3 top text boxes (basebet, % increase, # of rolls) are linked to the calculate button. Then the multiplier text box is linked to the "project max loss" button to the right. The calculate button prints the output of your rolls onto listbox1 and the "project max loss" button will give an estimate on number of losses to listbox2.  Sounds confusing at first but you'll understand a bit better in a minute.

Here's a quick look at the code...

Public Class Form1
    Private Sub above200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            sumnew = sum * 10000
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sumnew * increasefinal
            sum = rolloutput / 10000
            sumnew = sum
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)


            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub between100and200()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            n += 1
            increasefinal = increase * 0.01
            rolloutput = sum * increasefinal
            sumnew = sum + rolloutput
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)
            sum = nineBillPlus

            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub below100()
        Dim n As Integer
        Dim sum = txtbx_basebet.Text
        Dim rolls = txtbx_rolls.Text
        Dim increase = txtbx_increasepercentage.Text
        Dim increasefinal, rolloutput, sumnew As Decimal
        Dim nineBillPlus As Decimal

        sumnew = 0
        ListBox1.Items.Add("Bet" & vbTab & "Sum")
        ListBox1.Items.Add("------------------")
        ListBox1.Items.Add("Basebet = " & sum)
        Do
            increasefinal = increase * 0.01
            n += 1
            rolloutput = sum * increasefinal
            sumnew = sum + rolloutput
            nineBillPlus = Format$(sumnew, "0.00000000")
            ListBox1.Items.Add(n & vbTab & "%" & increase & vbTab & nineBillPlus)
            sum = nineBillPlus

            If n = rolls Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim increase = txtbx_increasepercentage.Text
        If increase > 200 Then
            Call above200()
        ElseIf increase > 100 And increase < 200 Then
            Call between100and200()
        ElseIf increase < 180 Then
            Call below100()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim multi = txtbx_multipler.Text
        Dim lossx As Single
        Dim lossresult As Single
        lossx = 9.5
        lossresult = (lossx * multi) + 4
        ListBox2.Items.Add("Max losses on x" & multi & " somewhere around " & lossresult & " losses....")
        Panel5.BackColor = Color.Green
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Panel5.BackColor = Color.Black
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        AboutBox1.Visible = True
    End Sub

To be continued....