PROGRAM GAME SLOT ANGKA

KONSEP PROGRAM GAME SLOT ANGKA

Pada jurnal modul 3 ini kami akan menjelaskan garis besar mengenai game yang kami buat menggunakan Visual Basic 2010. Game ini semacam game slot sederhana yang mungkin kita semua sudah tahu. Game slot yang kami buat ini adalah game slot angka, maksudnya yang diacak dan dicari kesamaannya adalah angka-angka yang sebelumnya diacak.

Pada tahap ini game kami hanya mencari kesamaan dua angka diantara tiga angka yang diacak. Game ini akan mengacak angka secara otomatis jika kita meng-klik ‘START’ dan akan berhenti mengacak saat kita neng-klik ‘STOP’ sekaligus akan mengeluarkan hasil acakan kita.

Untuk lebih rincinya kami akan menjelaskan game pada tiap form

♣ Form 1

Form 1 adalah form pembuka sebelum masuk ke game. Form yang kami beri judul ‘Welcome’ ini berisi kata-kata ‘Welcome to 8 Game’ . Mengapa 8 ? Karena kami kelompok 8. Pada Form 1 ini kami menggunakan 2 tool Label untuk ‘Welcome to’ dan ‘Game’ sedangakan untuk ‘8’ kami menggunakan PictureBox.  Lalu kami menggunakan 2 tool Button yang masing-masing memiliki fungsi. Button1 dengan nama Text ‘Goes to Game’ jika diklik akan nmembuka Form 2 yang beri ini dari progam ini yaitu game. Sedangkan Button2 dengan nama Text ‘Exit’ akan menutup program.

Inilah gambaran Form 1 pada program game kami :

♣ Form2

Form2 adalah inti dari program ini. Game slot yang kami buat, seperti yang sudah kami jelaskan di pembuka, pada tahap ini masih mencari kesamaan dua angka. Cara memainkan game ini adalah dengan meng-klik Button1 yaitu ‘START’, dengan begitu angka akan mengacak memutar, itu disebabkan kami menggunakan Tool Timer. Lalu angka akan berhenti jika kita meng-klik Button3 yaitu ‘STOP’, itu sekaligus akan mengeluarkan hasil yang kita dapat dalam game ini. Seperti yang sudah kami jelaskan tadi, kami hanya memberikan syarat untuk kesamaan 2 angka dari 3 angka yang tersedi, jadi  jika terdapat 2 angka kembar maka akan mengeluarkan MessageBox ‘Congratulation!!! :D’ . Kami memberikan kesempatan atau bisa disebut nyawa bagi pemain game kami sebanyak 5  kali. Setiap berhasil menemukan 2 angka kembar maka akan menambah 1 nyawa dan menambah score 100 poin. Jika kesempatan telah habis maka akan keluar MessageBox ‘Game Over’, dan muncul score sesuai score yang didapat oleh pemain. Jika sudah Game Over maka Form2 akan tertutup otomatis dan membuka Form3. 

Inilah gambaran Form2 pada program kami :

 ♣ Form3

Form 3 merupakan penutup dari program kami ini. Hanya berisi tool Label1 yang bernama ‘Do You Want to Try Again?’  dan terdapat 2 tool Button yang berfungsi masing-masing, Button1 yaitu ‘YES’ maka akan kembali ke Form2 dan bermain game. Button2 yaitu ‘NO’ jika diklik akan memunculkan Form1.

Inilah gambaran Form3 program kami :

FLOWCHART PROGRAM GAME SLOT ANGKA

TUTORIAL PROGRAM GAME SLOT ANGKA

Setelah membuka program Visual Basic 2010, lalu pilih New Project

Lalu pilih Windows Forms Application

Kita mulai membuat program dengan Form 1

♠ FORM 1

Komponen Toolbox yang digunakan :

NO.	KOMPONEN	PROPERTIES	KETERANGAN
1.	Form 1	Name Text	Form1 WELCOME
2.	Label 1	Name Text	Label1 WELCOME TO
3.	Label 2	Name Text	Label2 GAME
4.	PictureBox 1	Name	PictureBox1
5.	Button 1	Name Text	Button1 GOES TO GAME
6.	Button 2	Name Text	Button2 EXIT

Setelah memasukkan komponen ToolBox seperti yang ada di atas, edit komponen ToolBox sesuai keinginan, misal mengganti jenis dan ukuran font serta background.

Setelah diedit maka tampil Form1 akan menjadi seperti di bawah ini :

 

Lalu masukkan listing di bawah ini :

Public Class Form1

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

        End

    End Sub

• Maksud dari listing di atas adalah jika button2 diklik maka akan menutup semua Form dan mengakhiri program game ini

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

        Form2.Show()

        Me.Hide()

    End Sub

• Maksud dari listing di atas adalah jika button2 diklik maka akan memnculkan Form2 (Game) dan menghilangkan atau menyembunyikan Form1 itu sendiri

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

    End Sub

End Class

  

♠ FORM 2

Komponen Toolbox yang digunakan :

NO.	KOMPONEN	PROPERTIES	KETERANGAN
1.	Form 2	Name Text	Form2 GAME
2.	Label 1	Name Text	Label1 0
3.	Label 2	Name Text	Label2 0
4.	Label 3	Name Text	Label3 0
5.	Label 4	Name Text	Label4 SCORE
6.	Label 5	Name Text	Label5 Kesempatan
7.	TextBox 1	Name Text Enabled	TextBox 1 False
8.	TextBox 2	Name Text Enabled	TextBox 2 False
9.	Button 1	Name Text	Button1 START
10.	Button 3	Name Text	Button3 STOP
11.	Timer 1	Name	Timer1

Setelah memasukkan komponen ToolBox seperti yang ada di atas, edit komponen ToolBox sesuai keinginan, misal mengganti jenis dan ukuran font serta background.

Setelah diedit maka tampil Form2 akan menjadi seperti di bawah ini :

 

Kemudian masukkan listing seperti yang ada dibawah ini :

Public Class Form2

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

        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

• Maksud dari listing di atas adalah jika Button1 (START) diklik maka timer akan berjalan dan mengacak angka pada Label1, Label2 dan Label3

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

        'time tidak diaktifkan'

        Timer1.Enabled = False

        'label 5 akan menampilkan hasil bilangan acak'

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

            MsgBox("Congratulation!!! :D", 0, "Reward")

            TextBox1.Text = TextBox1.Text + 1

            TextBox2.Text = Val(TextBox2.Text) + 100

        Else

            TextBox1.Text = TextBox1.Text - 1

        End If

        If TextBox1.Text = "0" Then

            TextBox1.Text = ""

            MsgBox("GAME OVER :(")

            MsgBox("Score Anda" & " " & TextBox2.Text)

            Form3.Show()

        End If

       

        Button1.Enabled = True

    End Sub

• Maksud dari listing di atas adalah jika Button3 (STOP) diklik maka timer akan berhenti sekaligus menghentikan acakan angka pada Label1, Label2 dan Label3. Jika angka pada Label1 dan Label2 atau Label1 dan Label3 atau Label2 dan Label3 kembar maka akan muncul MesaggeBox ‘Congratulation!!! :D’, kesempatan bertambah 1 dan score pemain menjadi 100. Jika tidak kesempatan atau nyawa akan berkurang.

Jika kesempatan habis atau 0 maka akan muncul MesaggeBox ‘Game Over :(’ dan MessageBox ‘Score Anda ‘ dan menampilkan Score pada TextBox2, serta Form3 muncul.

    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

• Maksud dari listing di atas adalah jika timer aktif maka akan mengacak angka 0-9 pada Label1, Label2, dan Label3

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

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

        TextBox1.Text = "5"

    End Sub

• Maksudnya listing di atas adalah saat Form2 muncul otomatis akan menampilkan 5 sebagai kesempatan atau nyawa untuk bermain

End Class

♠ FORM 3

Komponen ToolBox yang digunakan :

NO.	KOMPONEN	PROPERTIES	KETERANGAN
1.	Form 3	Name Text	Form3 PLAY AGAIN
2.	Label 1	Name Text	Label1 Do You Want To Try Again ?
3.	Button 1	Name Text	Button 1 YES
4.	Button 2	Name Text	Button 2 YES

Setelah memasukkan komponen ToolBox seperti yang ada di atas, edit komponen ToolBox sesuai keinginan, misal mengganti jenis dan ukuran font serta background.

Setelah diedit maka tampil Form3 akan menjadi seperti di bawah ini :

 

Kemudian masukkan listing di bawah ini :

Public Class Form3

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

        Form2.Show()

        Form2.TextBox1.Text = "5"

        Form2.TextBox2.Text = ""

        Me.Hide()

    End Sub

• Maksud listing di atas adalah jika Button1 (YES) diklik maka akan menampilkan Form2, TextBox1 (kesempatan) tertulis 5 yang maksudnya 5 nyawa, dan TextBox2 (SCORE) kembali ke nol serta menghilangkan atau menyembunyikan Form3 iyu sendiri.

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

        Form1.Show()

        Form2.Hide()

        Me.Hide()

    End Sub

• Maksud listing di atas adalah jika Button2 (NO) diklik maka akan menampilkan Form 1 sebagai Form pembuka dan penutup dan akan menyembunyikan Form2 dan Form 3 itu sendiri.

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

    End Sub

End Class