Simple Slot Machine with Visual Basic

Public Class Form1
    Private rand As New Random()
    Private spinTicks As Integer = 0
    Private totalSpins As Integer = 0
    Private totalWins As Integer = 0

    ' Use 9 labels to simulate the 3x3 slot display
    Private slotLabels() As Label

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        slotLabels = {
            lbl0, lbl1, lbl2,
            lbl3, lbl4, lbl5,
            lbl6, lbl7, lbl8
        }

        Timer1.Interval = 80
        Timer1.Enabled = False

        ResetBoard()
        UpdateScore()
        lblResult.Text = "Press SPIN to play."
    End Sub

    Private Sub btnSpin_Click(sender As Object, e As EventArgs) Handles btnSpin.Click
        spinTicks = 0
        Timer1.Enabled = True
        btnSpin.Enabled = False
        lblResult.Text = "Spinning..."
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        spinTicks += 1

        For i As Integer = 0 To 8
            SetRandomSymbol(slotLabels(i))
        Next

        ' Stop after a short animation cycle
        If spinTicks >= 10 Then
            Timer1.Enabled = False
            btnSpin.Enabled = True
            totalSpins += 1
            CheckWin()
            UpdateScore()
        End If
    End Sub

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        ResetBoard()
        totalSpins = 0
        totalWins = 0
        UpdateScore()
        lblResult.Text = "Press SPIN to play."
    End Sub

    Private Sub SetRandomSymbol(lbl As Label)
        Dim a As Integer = rand.Next(0, 3)

        Select Case a
            Case 0
                lbl.Text = "■"
                lbl.ForeColor = Color.Red
            Case 1
                lbl.Text = "■"
                lbl.ForeColor = Color.Green
            Case 2
                lbl.Text = "●"
                lbl.ForeColor = Color.Blue
        End Select

        lbl.Font = New Font("Arial", 24, FontStyle.Bold)
        lbl.TextAlign = ContentAlignment.MiddleCenter
    End Sub

    Private Function IsMatch(a As Label, b As Label, c As Label) As Boolean
        Return a.Text = b.Text AndAlso
               b.Text = c.Text AndAlso
               a.ForeColor = b.ForeColor AndAlso
               b.ForeColor = c.ForeColor
    End Function

    Private Sub CheckWin()
        Dim hasWin As Boolean = False

        ' Check rows
        If IsMatch(lbl0, lbl1, lbl2) Then hasWin = True
        If IsMatch(lbl3, lbl4, lbl5) Then hasWin = True
        If IsMatch(lbl6, lbl7, lbl8) Then hasWin = True

        If hasWin Then
            totalWins += 1
            lblResult.Text = "Congratulations! You win!"
            picWinner.Visible = True
            MessageBox.Show("You win!", "Slot Machine")
        Else
            lblResult.Text = "No matching row this time. Try again!"
            picWinner.Visible = False
        End If
    End Sub

    Private Sub UpdateScore()
        lblSpinCount.Text = totalSpins.ToString()
        lblWinCount.Text = totalWins.ToString()

        If totalSpins > 0 Then
            Dim rate As Double = (totalWins / totalSpins) * 100
            lblWinRate.Text = Math.Round(rate, 0).ToString() & "%"
        Else
            lblWinRate.Text = "0%"
        End If
    End Sub

    Private Sub ResetBoard()
        lbl0.Text = "■" : lbl0.ForeColor = Color.Red
        lbl1.Text = "■" : lbl1.ForeColor = Color.Green
        lbl2.Text = "●" : lbl2.ForeColor = Color.Blue

        lbl3.Text = "■" : lbl3.ForeColor = Color.Green
        lbl4.Text = "●" : lbl4.ForeColor = Color.Blue
        lbl5.Text = "■" : lbl5.ForeColor = Color.Red

        lbl6.Text = "●" : lbl6.ForeColor = Color.Blue
        lbl7.Text = "■" : lbl7.ForeColor = Color.Red
        lbl8.Text = "■" : lbl8.ForeColor = Color.Green

        For Each lbl As Label In slotLabels
            lbl.Font = New Font("Arial", 24, FontStyle.Bold)
            lbl.TextAlign = ContentAlignment.MiddleCenter
        Next

        picWinner.Visible = False
    End Sub
End Class