Game Sederhana Pada Vibi

Pada kali ini saya akan menjelaskan mengenai game tebak - tebakan sederhana yang saya buat pada Pemrograman Microsoft Visual Basic, Langsung saja.

LISTING PROGRAM

Listing Program pada Form1

Private Sub Command1_Click()

Form1.BackColor = vbRed

a = Int(Rnd * 10)

Text1.Text = a

Text2.SetFocus

If Text2.Text = Text1.Text Then

Label1.Caption = "Anda Benar"

MsgBox "Jackpot", vbOnly + vbInformation, hasil

Else

Label1.Caption = "Tebakan Salah"

MsgBox "Try Again", vbExclamation, hasil

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Label1.Caption = ""

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

Label2.ForeColor = QBColor((Rnd) * 15)

Label1.BackColor = QBColor((Rnd) * 15)

End Sub

LOGIKA PROGRAM

    Pada pemrograman kali ini saya akan membahas mengenai listing program sederhana vibi seperti yang saya buat di atas.

Tahap awal untuk membuat program Visual Basic seperti diatas yaitu kita membutuhkan ToolBox. Pada ToolBox yang kita butuhkan adalah Label, CommandButton, Timer, dan TextBox. Lalu kita Susun seperti gambar berikut :

Setelah tersusun rapih hal yang perlu kita buat yaitu mengatur Caption, dan Name yang terdapat pada Form1 tadi.

Setelah itu kita beri aksi pada tombol Timer1 dengan cara memasukan kodingan seperti berikut :

Label1.ForeColor = QBColor((Rnd) * 15)

Label1.BackColor = QBColor((Rnd) * 15)

Kodingan diatas bertujuan untuk memberikan Warna pada Tulisan Label1 dan juga memberikan warna pada dasar pada Label1

Setelah itu kita beri aksi juga pada tombol CommandButton1 dengan cara memasukan kodingan seperti berikut :

Form1.BackColor = vbRed

a = Int(Rnd * 10)

Text1.Text = a

Text2.SetFocus

If Text2.Text = Text1.Text Then

Label1.Caption = "Anda Benar"

MsgBox "Jackpot", vbOnly + vbInformation, hasil

Else

Label1.Caption = "Tebakan Salah"

MsgBox "Try Again", vbExclamation, hasil

End If

Pada kodingan tersebut saya memakai perulangan If Then Else, pada kodingan diatas saya membuat aksi agar pada Text1 kita bisa memasukan inputan yang di acak secara random sebanyak 10 kali (Rnd*10) dan a merupakan “Variable” dari Text1 tersebut. Lalu pada Text2 kita tinggal mencocokan jawaban yang benar saja dari Text, jika jawaban benar maka akan muncul jawaban “Anda Benar” pada Label1, dan jika jawaban Salah maka akan muncul jawaban “Tebakan Salah” pada Label1. Selain itu jika jawaban kita benar maka akan muncul sebuah kotak baru yang berisikan Message “Jackpot”, sedangkan jika jawaban salah maka kotak Message yang keluar adalah “Try Again”. Pada Saat kita menjalankan program dan mengklik maka background dasar dari Form1 akan berubah menjadi warna merah (Form1.Backcolor = vbRed).

Jangan lupa untuk mengganti Interval pada Timer (Lihat di Properties) menjadi 100 agar Timer berfungsi.

Setelah itu pada CommandButton3, kita masukkan kodingan seperti berikut :

Text1.Text = ""

Text2.Text = ""

Label1.Caption = ""

Kodingan tersebut adalah untuk menghapus teks yang terdapat pada Text1, Text2, dan Label1 yang tadi sudah kita isikan.

Langkah Terakhir untuk keluar dari program kita dapat memasukan kodingan seperti berikut pada CommandButton2 :

End

OUTPUT PROGRAM