Public Class Form

Dim BegChance As Integer
Dim RouletteNumber As Integer
Dim RouletteColour As Double
Dim Money s Double = 20.0
Const intMin As Integer = 1
Const intNumberMax As Integer = 35
Const intMax As Integer = 100

    'Generates Beg Chance
    Function getBegChance()
        BegChance = ((intMax - intMin + 1) * Rnd()) + intMin
    End Function

    'Generates Roulette Number
    Function getRouletteNumber()
        RouletteNumber = ((intNumberMax- intMin + 1) * Rnd()) + intMin
    End Function

    'Generates Roulette Colour
    Function getRouletteColour()
        RouletteColour = ((intMax - intMin + 1) * Rnd()) + intMin
    End Function

    'Gives and displays $20.00 to the user when application loads.
    Private Sub Form_Load(sender As Object, e as EventArgs) Handles MyBase.Load
        Me.lblMoney.Text = Money
    End Sub

    Private Sub btnSpin_Click(sender As Object, e As EventArgs) Handles btnSpin.Click

        Try
            'Converts user input to a double variable
            Convert.ToDouble(txtBet.Text)

            Static Earnings As Double

            Randomize()
            'Generates Roulette Number
            getRouletteNumber()
            'Generates Roulette Colour
            getRouletteColour()

            'Prevents user from inputting a number equal to or below 0.
            If txtBet.Text <= 0 Then
                MsgBox("Please put a value over 0")
            ElseIf Money <=0 Then
                MsgBox("You don't have any more money")
            Else
                'Displays roulette number.
                Me.lblRoulette.Text = RouletteNumber

                'Changes lblRoulette font colour to red, black, or green with different chances (green most rare).
                Select Case RouletteColour
                    Case 1 To 48.65
                        Me.lblRoulette.ForeColor = Color.Black
                    Case 48.65 To 97.3
                        Me.lblRoulette.ForeColor = Color.Red
                    Case Else
                        Me.lblRoulette.ForeColor = Color.Green
                        Me.lblRoulette.Text = 0
                        RouletteNumber = 0
                End Select

                'Green Bets
                If RouletteNumber = 0 And radGreen.Checked Then
                    lbl.Result.Text = "You won"
                    lblWon.Text = txtBet.Text * 36
                    Earnings = txtBet.Text * 35
                    Money = Money + Earnings

                'Black or Red Bets
                ElseIf Me.lblRoulette.ForeColor = Color.Black and radBlack.Checked Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 2
                    Earnings = txtBet.Text
                    Money = Money + Earnings
                ElseIf Me.lblRoulette.ForeColor = Color.Red and radRed.Checked Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 2
                    Earnings = txtBet.Text
                    Money = Money + Earnings

                'Low or High Bets
                ElseIf RouletteNumber <= 18 and radLow.Checked Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 2
                    Earnings = txtBet.Text
                    Money = Money + Earnings
                ElseIf RouletteNumber >= 19 and radLow.Checked Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 2
                    Earnings = txtBet.Text
                    Money = Money + Earnings

                'Even or Odd Bets
                ElseIf radEven.Checked and (RouletteNumber = 2 Or RouletteNumber = 4 Or RouletteNumber = 6 Or RouletteNumber = 8 Or RouletteNumber = 10 Or RouletteNumber = 12 Or RouletteNumber = 14 Or RouletteNumber = 16 Or RouletteNumber = 18 Or RouletteNumber = 20 Or RouletteNumber = 22 Or RouletteNumber = 24 Or RouletteNumber = 26 Or RouletteNumber = 28 Or RouletteNumber = 30 Or RouletteNumber = 32 Or RouletteNumber = 34 Or RouletteNumber = 36) Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 2
                    Earnings = txtBet.Text
                    Money = Money + Earnings
                ElseIf radOdd.Checked and (RouletteNumber = 1 Or RouletteNumber = 3 Or RouletteNumber = 5 Or RouletteNumber = 7 Or RouletteNumber = 9 Or RouletteNumber = 11 Or RouletteNumber = 13 Or RouletteNumber = 15 Or RouletteNumber = 17 Or RouletteNumber = 19 Or RouletteNumber = 21 Or RouletteNumber = 23 Or RouletteNumber = 25 Or RouletteNumber = 27 Or RouletteNumber = 29 Or RouletteNumber = 31 Or RouletteNumber = 33 Or RouletteNumber = 35) Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 2
                    Earnings = txtBet.Text
                    Money = Money + Earnings

                'Dozen Bets
                ElseIf radFirstDozen.Checked And (RouletteNumber >= 1 And RouletteNumber <= 12) Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 3
                    Earnings = txtBet.Text * 2
                    Money = Money + Earnings
                ElseIf radSecondDozen.Checked And (RouletteNumber >= 13 And RouletteNumber <= 24) Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 3
                    Earnings = txtBet.Text * 2
                    Money = Money + Earnings
                ElseIf radThirdDozen.Checked And (RouletteNumber >= 25 And RouletteNumber <= 36) Then
                    lblResult.Text = "You won"
                    lblwon.Text = txtBet.Text * 3
                    Earnings = txtBet.Text * 2
                    Money = Money + Earnings

            'No results leads to user losing.
            Else
                lbl.Result.Text = "You lost"
                lblWon.Text = txtBet.Text
                Earnings = txtBet.Text
                Money = Money - Earnings
            End If

        'Displays user's money in the wallet section
                lblMoney.Text = Money
        End If

        'Prevents user from using non-numeric values.
        Catch ex As FormatException
            MsgBox("Please put numericvalues")
        End Try

    End Sub

    'Exit Button
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        MsgBox("thank you for playing."
        Me.Close()
    End Sub

    Private Sub btnBeg_Click(sender As Object, e As EventArgs) Handles btnBeg.Click

        Static BegTimes As Integer

        Randomize()
        'Generates Beg Chance
        getBegChance()

        '1% chance for user to receive a dollar when begging.
        If BegChance = 50 Then
            lblBeg.Text = "Someone was generous enough to give you a dollar."
            Money = Money  + 1
        Else
            lbl.Beg.Text - "No luck."
        End If

        'Displays user's money in the wallet section.
        lblMoney.Text = Money

        'Beg Counter
        BegTimes = BegTimes + 1

        'Kicks user after begging 100 times
        If BegTimes = 100 Then
            MsgBox("You have been kicked out of the casino.")
            Me.Close()
        End If

    End Sub
End Class