Jurnal Kasino

Tutorial Membuat Game Kasino Sederhana

Visual Basic merupakan bahasa pemrograman yang dapat digunakan untuk membuat suatu program sederhana. Berikut adalah contoh langkah-langkah penggunaan visual basic 2010 dalam membuat Game Kasino Sederhana

Langkah-Langkah:

1.      Membuka Aplikasi Visual Basic 2010

2.      Klik  Windows Form Application

            

Untuk memunculkan form seperti berikut                  

           

3.      Klik  menu bar-view-other windows-tollbox untuk memunculkan toolbox yang akan digunakan

4.      Membuat  Form seperti di bawah ini dengan menggunakan komponen toolbox di atas

    

 Berikut adalah komponen ToolBox yang digunakan dalam Form kasino ini

No	Komponen	Properties	Keterangan
1	Form1	Name Text	Form1
2	Label1	Name Text	Label1 0
3	Label2	Name Text	Label2 0
4	Label3	Name Text	Label3 0
5	Label4	Name Text	Label4 Tebakan ke
6	Label5	Name Text	Label5 Nyawa
7	Label6	Name Text	Label6 0
8	Label7	Name Text	Label7 5
9	Button1	Name Text	Button1 Spin
10	Button2	Name Text	Button2 Stop
11	Button3	Name Text	Button3 Back to Menu
12	Form 2	Name Text	Form2
13	Label1	Name Text	Label1 Selamat Datang di Game
14	Label2	Name Text	Label2 Pilih Mode Game
15	Button1	Name Text	Button1 Angka
16	Button2	Name Text	Button2 Gambar
17	Form3	Name Text	Form3
18	Label1	Name Text	Label1 Nyawa
19	Label2	Name Text	Label2 5
20	Picturebox1	Name Text	Picturebox1
21	Picturebox2	Name Text	Picturebox2
22	Picturebox3	Name Text	Picturebox3
23	Button1	Name Text	Button1 Start
24	Button2	Name Text	Button2 Stop
25	Button3	Name Text	Button3 Back to Menu

Agar program berjalan, buatlah listing sebagai berikut:

1.    Double click pada design Form1

2. Menentukan deklarasi variabel pada Form1 dan listing timer untuk mengacak angka pada slot

Public Class kasino

    Dim kurang As Integer

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

        'label akan menampilkan bilangan acak 0-9'

        Label1.Text = Int(Rnd() * 10)

        Label2.Text = Int(Rnd() * 10)

        Label3.Text = Int(Rnd() * 10)

    End Sub

3.  Membuat Label1, Label2, dan Label3 sebagai slot angka yang akan diacak dan Label4, Label6 sebagai penunjuk jumlah penebakan serta Label5, Label7 sebagai ‘nyawa’ untuk dapat bermain yang diberi kesempatan hingga 5 kali dalam 1 kali permainan

     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

End Class

4. Membuat Button1 sebagai tombol spin untuk mengaktifkan timer

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

        Static counter As Integer

        counter = counter + 1

        kurang = 5 - counter

        Label6.Text = counter

        Label7.Text = kurang

        If Label6.Text = "" Then

            Label6.Text = ""

            Label7.Text = ""

            counter = ("")

        End If

        Label1.Text = CStr(Int(Rnd() * 10))

        Label2.Text = CStr(Int(Rnd() * 10))

        Label3.Text = CStr(Int(Rnd() * 10))

        'time diaktifkan'

        Timer1.Enabled = True

        'mengosongkan masing-masing label'

        Label1.Text = ""

        Label2.Text = ""

        Label3.Text = ""

    End Sub

5. Membuat Button2 sebagai tombol stop untuk menghentikan pengacakan angka

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

        'time tidak diaktifkan'

        Timer1.Enabled = False

        'label 5 akan menampilkan hasil bilangan acak'

        If Val(Label2.Text) = Val(Label3.Text) Or Val(Label1.Text) = Val(Label2.Text) Or

            Val(Label1.Text) = Val(Label3.Text) Then

            MsgBox("Selamat Anda menang")

            Form2.Show()

            Close()

        Else : MsgBox("coba lagi")

        End If

        If Val(Label7.Text) = 0 Then

            MsgBox("kesempatan anda habis")

            Form2.Show()

            Close()

        End If

    End Sub

Terdapat 3 kemungkinan dalam permainan ini. Apabila anda menang, maka akan muncul tampilan MessageBox “Selamat Anda Menang”

 

jika anda kalah, yang muncul adalah tampilan MessageBox “Coba lagi”.

Dan jika, nyawa atau kesempatan anda bermain telah habis, maka MessaggeBox yang keluar adalah “Kesempatan Anda Habis”

6. Double click pada design Form2

    

7. Menentukan deklarasi variabel pada Form2

Public Class Form2

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

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

        kasino.Show()

        Me.Hide()

    End Sub

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

        Form3.Show()

        Me.Hide()

    End Sub

End Class

8. Double click pada design Form3

    

9. Menentukan deklarasi variabel pada Form3

Public Class Form3

    Dim m, n1, n2, n3 As Integer

    End Sub

10. Membuat Button1 sebagai tombol start untuk memulai pengacakan gambar

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

        Timer1.Enabled = True

    End Sub

11. Membuat Button2 sebagai tombol stop untuk menghentikan pengecekan

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

        Timer1.Stop()

        If (n1 = n2 Or n2 = n3 Or n3 = n1) Then

            MsgBox("Selamat Anda Menang")

            Form2.Show()

            Me.Close()

        Else

            MsgBox("cobaa lagi!")

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

        End If

        If Label1.Text = "0" Then

            MsgBox("sori bgt nih kalah")

            Close()

            Form2.Show()

        End If

    End Sub

12. Membuat Button3 sebagai tombol back to menu

   

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

        Form2.Show()

        Me.Hide()

End Sub

13. Membuat Label1 dan Label2 sebagai penunjuk ‘nyawa’ beserta PictureBox1, PictureBox2, dan PictureBox3 sebagai slot gambar yang akan diacak

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

End Class

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

 End Sub

14.   Untuk dapat mengacak gambar, ketikkan listing berikut

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

        m = m + 1

        If m < 1000 Then

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

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

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

            Select Case n1

                Case 1

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

                Case 2

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

                Case 3

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

                Case 4

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

                Case 5

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

            End Select

            Select Case n2

                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)

            End Select

            Select Case n3

                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)

            End Select

        End If

    End Sub

 Konsep Program Game Kasino Sederhana

Deskripsi

Program ini dibuat dengan total 3 form. Form1 sebagai game kasino angka, Form2 sebagai pembuka game dan Anda dapat memilih jenis game yang akan dimainkan, apakah game kasino angka atau kasino gambar. Dan Form3 sebagai game kasino gambar. Cara memainkannya pun sangat mudah. Cukup dengan klik tombol spin atau start, makan slot akan mengacak angka atau gambar. Dan Anda  cukup meng-klik tombol stop untuk menghentikan pengacakan. Syarat untuk menang adalah, apabila slot menampilkan minimal 2 angka atau gambar yang sama. Apabila Anda berhasil, maka akan muncul MessageBox berupa ucapan selamat. Sedangkan, jika Anda kalah, MessageBox akan kembali muncul dengan keterangan bahwa Anda kalah. Anda dinyatakan kalah apabila ketiga slot menampilkan gambar yang berbeda-beda (tidak ada yang sama). Dalam game ini, Anda diberikan kesempatan untuk mencoba sebanyak 5 kali atau yang dinamakan nyawa. Maka apabila nyawa Anda telah habis, MessageBox akan keluar dengan keterangan bahwa kesempatan anda memainkan game ini telah habis, dan akan kembali pada Form2 yaitu untuk memulai kembali game ini.

Tujuan

Tujuan dibuatnya program game kasino ini adalah sebagai latihan dan pengajaran untuk membuat game sederhana yaitu kasino.

Manfaat

Manfaat dari pembuatan game kasino sederhana ini tentu sebagaimana dengan game pada umumnya adalah sebagai hiburan dan dapat melatih insting Anda.

Sasaran user

Game kasino sederhana ini dapat digunakan oleh semua kalangan. Terutama anak-anak.