Game Sederhana dengan Visual Basic

Assalamu'alaikum para pembaca
   Di artikel ni saya pengen sharing sebuah program game sederhana dengan VB yang bisa dibilang ada karena kebetulan. Lah?? Gimana kisah?? Sebagai junior programer saya memang dituntut untuk terus mengexplore kemampuan logika programming saya, oleh karena itu saya mencoba mencari buku-buku yang erat kaitannya dengan programing.
    Kebetulan semester lalu saya masih belajar Visual Basic, jadi saya mencari buku tentang bahasa pemrograman tersebut. Setelah saya dapatkan bukunya saya mulai mencoba satu persatu program yang ada di buku tersebut
     Pada saat membuka Bab tentang “Acak Gambar” saya mencoba memahami algoritma program tersebut. Setelah mencoba programnya, terlintas keinginan untuk membuatnya menjadi sebuah game sederhana yang bernama Pachinko. Mungkin yang suka anime Jepang terutama Naruto tahu sekali tentang pachinko ini. Dikarenakan saya kurang tahu bagaimana aslinya permainan pachinko ini, mungkin  inti permainan ini hanya mencocokan semua gambar yang di acak saja
Ok kita langsung membuat programnya
Langkah pertama kita harus mendesain layout permainan tersebut beserta control-controlnya

Berikut tampilan layoutnya :


awal :

saya katakan awal agar pembaca tidak bingung karena di layout 2 saya akan meletakan sebuah command button diatas 3 image box. untuk tampilan pertama ini kita sesuaikan properties dari masing2 komponen
Perhatikan kotak properties pada project visual basic anda

• 3 komponen text box dengan Namenya yaitu  text1, text2, dan text3 lalu Text dikosongkan
• 3 komponen image dengan Namenya yaitu image1, image2, dan image3 lalu Stretchnya dibuat True agar bisa disesuaikan ukurannya
• 1 komponen timer dengan Namenya yaitu Timer1, enabled = false, interval = 100, left = 840, top = 4320
• 2 komponen command button dengan Name command1,command2, dan Caption command1 = acak dan command2 = stop(untuk mengganti warna commandbutton dengan cara mengubah Style yang ada pada properties dari standart menjadi graphical kemudian baru bisa diubah backcolor dari command button tersebut 
• 4 komponen label dengan Name label1, label2, label3, dan label4. Untuk label1, label2, dan label3    Captionnya  dikosongkan lalu backcolor diubah menjadi warna hijau, sedangkan label4 diberi Caption   "Chance" dan backcolornya berwarna kuning . Note: label1, label2, dan label 3 diletakkan berdekatan sehingga seolah terlihat seperti 1 label saja.

kedua

seperti yang saya katakan, saya akan menambah 1 commandbutton lagi yang letaknya menutupi kotak 3 image sperti pada gambar (command button yang berwarna biru). Untuk propertiesnya adalah sebagai berikut:

• Name = Command3
• Caption = "Main lagi"

kemudian doubleclick pada commandbutton1 lalu ketik coding dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
x = x + 1
End Sub

lalu click form1 yang ada di kanan atas jendela Visual Basic lalu doubleclick commandbutton2 dan ketik koding dibawah ini :

Private Sub Command2_Click()
10 Timer1.Enabled = False
20 If Text1.Text = Text2.Text And Text1.Text = Text3.Text Then
30 MsgBox "congratulation", vbInformation
   GoTo 100
40 Else: MsgBox "DAMN", vbCritical
   n = 1
   End If
60 If x = 1 And n = 1 Then
70 Label3.Visible = False
80 Label1.BackColor = vbYellow
81 Label2.BackColor = vbYellow
   End If
83 If x = 2 And n = 1 Then
84 Label2.Visible = False
85 Label1.BackColor = vbRed
   End If
87 If x = 3 Then
100 Label1.Visible = False
110 MsgBox "GAME OVER", vbInformation
120 Image1.Visible = False
123 Image2.Visible = False
124 Image3.Visible = False
125 Command1.Visible = False
131 Command2.Visible = False
132 Command3.Visible = True
133 Text1.Visible = False
134 Text2.Visible = False
135 Text3.Visible = False
144 Form1.BackColor = vbBlue
145 x = 0
    End If
    End Sub

Kembali lagi ke form1 lalu doubleclick commandbutton3 dan ketik coding dibawah ini :

Private Sub Command3_Click()
MsgBox "SELAMAT BERMAIN LAGI"
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Command1.Visible = True
Command2.Visible = True
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Form1.BackColor = vbBlack
Command3.Visible = False
Label3.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.BackColor = vbGreen
Label1.BackColor = vbGreen
Label2.BackColor = vbGreen
End Sub

kembali lagi ke form1 dan kali ini doubleclick timer1 dan ketiklah koding dibawah ini:

Private Sub Timer1_Timer()
Dim mynumber0 As Integer
Dim mynumber1 As Integer
Dim mynumber2 As Integer
Static a As Integer
Randomize
a = a + 0
mynumber0 = 5 * Rnd
mynumber1 = 5 * Rnd
mynumber2 = 5 * Rnd
Text1.Text = mynumber0
Text2.Text = mynumber1
Text3.Text = mynumber2
Text1.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Text2.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Text3.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)



Image1.Picture = LoadPicture(App.Path & "\" & mynumber0 & ".jpg")
Image2.Picture = LoadPicture(App.Path & "\" & mynumber1 & ".jpg")
Image3.Picture = LoadPicture(App.Path & "\" & mynumber2 & ".jpg")

End Sub
 

Sekarang coding sudah lengkap, tinggal memasukkan gambar-gambar yang akan diacak oleh program ini

langkahnya adalah sbb :

• Save form1 dan Project1 
• Buat folder dengan nama pachinko
• Pindahkan form1 dan project1 yang sudah di save ke dalam folder pachinko
• Tentukkan 5 gambar yang akan diacak (harus berextensi JPG)
• Jika sudah, rename gambar-gambar tersebut dengan no dari 1 sampai 5
• Pindahkan gambar-gambar tersebut ke dalam folder pachinko
• buka kembali form1 dan tekan F5 untuk run program

Hasilnya adalah:

selamat mencoba semoga bermanfaat