craps.vb

Public Class Form1

    Public funds As Integer
    Public generator As New Random


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblDi1.Text = ""
        lblDi2.Text = ""
        lblMsg.Text = ""
        funds = 100



    End Sub

    Private Sub btnRoll_Click(sender As Object, e As EventArgs) Handles btnRoll.Click
        Dim roll1 As Integer
        Dim roll2 As Integer
        Dim total As Integer
        Dim bet As Integer

        'get bet amount from textbox
        bet = txtBet.Text

        'roll the die!!
        roll1 = generator.Next(1, 7)
        roll2 = generator.Next(1, 7)

        'display the rolls
        lblDi1.Text = roll1
        lblDi2.Text = roll2

        'update funds
        total = roll1 + roll2
        If total = 7 Or total = 11 Then
            funds = funds + bet
            lblMsg.Text = "You have $" & funds
        ElseIf total = 2 Or total = 3 Or total = 6 Then
            funds = funds - bet
            lblMsg.Text = "You have $" & funds
        End If

        'check if broke
        If funds <= 0 Then
            lblMsg.Text = "Go home, literal loser!"
            btnRoll.Enabled = False
        End If

    End Sub

    Private Sub btnAll_Click(sender As Object, e As EventArgs) Handles btnAll.Click
        txtBet.Text = funds
    End Sub
End Class