Membuat Game Sederhana

Membuat Game Tebak Warna pada VB

Langkah pertama yang harus kita lakukan adalah membuat tampilan seperti diatas pada aplikasi Visual Basic, setelah itu pada form tambahkan Option Button, Shape, Command Button, serta jangan lupa tambahkan Timer.

Langkah berikutnya adalah memasukkan coding seperti dibawah ini pada Timer :

Timer1

Private Sub Timer1_Timer()

If Label1.BackColor = vbRed Then

Label2.BackColor = vbGreen

Label3.BackColor = &H8000000F

Label1.BackColor = &H8000000F

ElseIf Label2.BackColor = vbGreen Then

Label1.BackColor = &H8000000F

Label3.BackColor = vbBlue

Label2.BackColor = &H8000000F

Else

Label3.BackColor = vbBlue

Label1.BackColor = vbRed

Label2.BackColor = &H8000000F

Label3.BackColor = &H8000000F

End If

End Sub

Perintah diatas merupakan perintah untuk merubah warna background tulisan menjadi merah, hijau, ataupun biru pada label1,label2, dan label3. Selain itu pada Object Inspector ubahlah setelan Intervalnya menjadi 200-1000, semakin kecil intervalnya maka akan semakin cepat warnanya berubah-ubah. Ketika hasil output keluar maka kita melihat bagaimana sebuah permainan tebak warna sederhana yang telah kita buat. Timer pada form ini berguna untuk membuat warna dapat berubah-ubah. Sedangkan perintah &H8000000F berguna untuk mencetak output berupa warna sesuai yang kita inginkan, jika ingin merubah warnanya hanya tinggal merubah pilihan warna pada listingnya.

Setelah itu masukkan coding pada Button1 (STOP) seperti dibawah ini :

Button1 (STOP)

Private Sub Command1_Click()

If Command1.Caption = "STOP" Then

Timer1.Enabled = True

Perintah ini berguna untuk menghentikan sementara program yang sedang berjalan, akan tetapi dapat dilanjutkan kembali.

If (Option1.Value = True) And (Label1.BackColor = vbRed) Then

MsgBox "Selamat tebakan anda benar"

ElseIf (Option2.Value = True) And (Label2.BackColor = vbGreen) Then

MsgBox "Selamat tebakan anda benar"

ElseIf (Option3.Value = True) And (Label3.BackColor = vbBlue) Then

MsgBox "Selamat tebakan anda benar"

Else

MsgBox "Tebakan anda salah, coba lagi!"

End If

Perintah ini berguna untuk mengecek suatu kondisi apakah sudah benar atau sesuai dengan tebakan kita, sehingga ketika kita klik pilihan yang tepat dengan apa yang kita inginkan maka akan tecetak pesan “Selamat tebakan anda benar”. Sedangkan apabila kondisi tersebut tidak sesuai dengan pilihan kita maka akan tercetak pesan kesalahan “Tebakan anda salah, coba lagi”. Permainan sederhana yang kita buat berupa tebak-tebakan mencocokkan warna yang kita inginkan dengan warna yang kita pilih, apabila cocok maka akan tercetak pesan benar. Sedangkan apabila salah akan tercetak pesan salah.

Command1.Caption = "START"

Perintah ini berguna untuk mengulang dari awal apabila tebakan benar ataupun salah, atau jika kita ingin melanjutkan kembali permainan.

Timer1.Enabled = True

Command1 = "STOP"

End If

End Sub

Perintah ini berguna untuk menghentikan proses ketika program sedang berjalan dan akan mulai dari awal (START).

Kemudian masukkan pula codingan pada Button2 (EXIT) seperti dibawah ini :

Button2 (EXIT)

Private Sub Command2_Click()

End

End Sub

Perintah ini berguna untuk keluar dari program yang sedang berjalan, selain itu kita juga dapat menggunakan perintah Application.Terminate yang merupakan fungsi lain yang digunakan untuk keluar dari program yang sedang berjalan.