PROGRAM SLOT MACHINE (GAMBAR)

Public Class Form1

    Dim a1, a2, a3 As Integer

-Mendeklarasikan a1, a2, a3 sebagai integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        a1 = Int(1 + Rnd() * 6)

        a2 = Int(1 + Rnd() * 6)

        a3 = Int(1 + Rnd() * 6)

        Select Case a1

            Case 1

                PictureBox4.Image = ImageList1.Images.Item(0)

            Case 2

                PictureBox4.Image = ImageList1.Images.Item(1)

            Case 3

                PictureBox4.Image = ImageList1.Images.Item(2)

            Case 4

                PictureBox4.Image = ImageList1.Images.Item(3)

            Case 5

                PictureBox4.Image = ImageList1.Images.Item(4)

            Case 6

                PictureBox4.Image = ImageList1.Images.Item(5)

       

        End Select

        Select Case a2

            Case 1

                PictureBox3.Image = ImageList1.Images.Item(0)

            Case 2

                PictureBox3.Image = ImageList1.Images.Item(1)

            Case 3

                PictureBox3.Image = ImageList1.Images.Item(2)

            Case 4

                PictureBox3.Image = ImageList1.Images.Item(3)

            Case 5

                PictureBox3.Image = ImageList1.Images.Item(4)

            Case 6

                PictureBox3.Image = ImageList1.Images.Item(5)

          

        End Select

        Select Case a3

            Case 1

                PictureBox2.Image = ImageList1.Images.Item(0)

            Case 2

                PictureBox2.Image = ImageList1.Images.Item(1)

            Case 3

                PictureBox2.Image = ImageList1.Images.Item(2)

            Case 4

                PictureBox2.Image = ImageList1.Images.Item(3)

            Case 5

                PictureBox2.Image = ImageList1.Images.Item(4)

            Case 6

                PictureBox2.Image = ImageList1.Images.Item(5)

          

        End Select

    End Sub

-Listing ini yaitu untuk timer dalam mengacak gambar

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = Val(Label1.Text - 1)

        Button1.Enabled = False

        Button2.Enabled = True

        If Label1.Text = 0 Then Button1.Enabled = False

        Timer1.Enabled = True

        PictureBox4.Visible = True

        PictureBox3.Visible = True

        PictureBox2.Visible = True

    End Sub

-Listing ini yaitu untuk mengacak gambar

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False

        Button2.Enabled = False

        Button1.Enabled = True

        If (a1 = a2) Or (a1 = a3) Or (a2 = a3) Then

            MessageBox.Show("YOU WIN!")

            Label1.Text = Val(Label1.Text + 1)

        End If

        If Label1.Text = 0 Then

            If MsgBox("One More?", vbQuestion + vbYesNo, "END") = vbYes Then

                Label1.Text = 10

                Button1.Enabled = True

                Button2.Enabled = False

            Else

                Label1.Text = 0

                Button1.Enabled = False

                Button2.Enabled = False

            End If

        End If

    End Sub

-Untuk menghentikan gambar yang diacak

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If MsgBox("Are You Sure?", vbQuestion + vbYesNo, "OUT") = vbYes Then

            End

        Else

            Me.Show()

        End If

    End Sub

-Jika kita mengklik tombol end, maka akan muncul message box

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "SLOT MACHINE"

    End Sub

-Menunjukan nama form

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        MsgBox("klik start untuk mengacak gambar. Lalu tekan tombol stop untuk menghentikan acakan. Anda akan menang apabila anda berhasil menyelesaikan dalam 10 putaran")

    End Sub

-Jika kita mengklik help, maka akan muncul message box berisi cara-cara untuk bermain