Membuat
Game Tebak Warna pada VB
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.