THE IFD TWENTY : Tutorial modul 3 "GAME"

KONSEP GAME “GET YOR 999!”

Pada game “GET YOUR 999!” ini konsepnya sama dengan permaina jackpot dengan mengacak angka untuk mendapatkan angka yang sama. Pada game ini, anda dinyatakan berhasil apabila mendapatkan minimal 2 buah angka yang kembar. Dan akan menang apabila berhasil mendapatkan angka “999” . anda memiliki 10 kesempatan untuk mengacak angka. Apabila lebih dari itu anda belum mendapatkan angka “999” anda dinyatakan kalah

Flowchart

TUTORIAL VISUAL BASIC MEMBUAT GAME

Berikut merupakan contoh form design game yang dibuat menggunakan vb:

Form 1

Form 2

Form 3

Dibawah ini merupakan langkah-langkah pembuatannya menggunakan visual basic 2010:

Buka Visual Basic 2010 >> New Project >> Windows Forms Application >> OK.
Buat desain seperti gambar dengan memasukkan komponen button, listbox, dan label dalam form 1 design. Dan buat komponen button, timer, textbox dan label dalam form 1 design
Pada form 1 tulis listing sebagai berikut :

Public Class Form1

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

Form2.Show()

Me.Hide()

End Sub

Keterangan :

Pada button1 “PLAY” apabila di click, akan muncul form 2 dan form 1 akan tersembunyi

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

Dialog1.Show()

Me.Hide()

End Sub

End Class

Keterangan :

Pada button1 “EXIT” apabila di click, akan muncul dialog sebagai berikut :

Pada form 2 tulis listing sebagai berikut :

Public Class Form2

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

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

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

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

End Sub

Keterangan :

Pada timer ditulis listing seperti diatas sehingga pada label 1,2,3 akan muncul angka secara random dari 1-10

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

Timer1.Enabled = True

Label1.Text = ""

Label2.Text = ""

Label3.Text = ""

End Sub

Keterangan :

Pada button1 (ROLL) apabila di click, timer 1 akan berfungsi dan angka pada label 1,2,3 akan berputar secara acak

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

Dim a As Integer

Timer1.Enabled = False

a = Label1.Text & Label2.Text & Label3.Text

TextBox3.Text = a

If Label1.Text = 1 And Label2.Text = 1 And Label3.Text = 1 Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 2 And Label2.Text = 2 And Label3.Text = 2) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 3 And Label2.Text = 3 And Label3.Text = 3) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 4 And Label2.Text = 4 And Label3.Text = 4) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

ElseIf (Label1.Text = 5 And Label2.Text = 5 And Label3.Text = 5) Then

MsgBox("Selamat! anda memenangkan 3 angka yang sama!")

Keterangan :

Menunjukkan apabila pada label 1,2,3 muncul 3 buah angka yang sama akanm muncul message box “selamat anda memenangkan 3 angka yang sama”

ElseIf Label1.Text = 1 And Label2.Text = 1 Then