Membuat Game Tebak Warna Dengan Visual Basic 6.0

Udah lama gak posting jadi kangen ngeblog lagi. Maklum XL Unlimited udah kagak ade jadi ane gak bisa posting lagi.  Kali ini ane mau berbagi tips visual basic 6.0. Bagaimana ya cara bikin game buat anak-anak ??? Itu mudah sob, ikutin aja terus blog ini. Ane bakalan ngasi tutorial bikin game buat anak2.  Pada postingan ini ane mencoba membuat game tebak warna.  Langsung aja ya sob.

Pertama-tama  yang kita butuhkan 3 buah option button, 3 buah text box, 3 buah label,1 buah  timer, dan 1 buah commandbutton. Kira kira seperti ini.  Liat gambar dibawah :

-     Ganti background color textbox1 menjadi merah
    Textbox2 menjadi kuning

textbox1 menjadi hijau.

-      Kemudian pada properties ganti nama optionbutton menjadi

option button 1 diganti dengan  (name) o1 ------- ganti juga tabindex 0

option button 2 dengan  (name) o2------- ganti juga tabindex 1

option button 3 dengan (name)  o3. ------- ganti juga tabindex 2

-       Timer1 interval 400

-        Untuk label gak usah diubah2 Cuma hapus aja tulisan labelnya.

Sekarang kita masuk script programnya.

Private Sub Timer1_Timer()

If Label3.BackColor = vbRed Then

    Label3.BackColor = &H8000000F

    Label4.BackColor = vbYellow

    Label5.BackColor = &H8000000F

    ElseIf Label4.BackColor = vbYellow Then

        Label3.BackColor = &H8000000F

        Label4.BackColor = &H8000000F

        Label5.BackColor = vbGreen

        Else: Label5.BackColor = vbGreen

            Label3.BackColor = vbRed

            Label4.BackColor = &H8000000F

            Label5.BackColor = &H8000000F

 End If

End Sub

Karena ane make label3,label4,label5, jadi lu pade bisa ngubah jadi label1,label2,label3.

Private Sub Command1_Click()

If Command1.Caption = "Stop" Then

    Timer1.Enabled = False

   

        If (o1.Value = True) And (Label3.BackColor = vbRed) Then

            MsgBox "Selamat Tebakan Anda Benar", , "Selamat :D"

        ElseIf (o2.Value = True) And (Label4.BackColor = vbYellow) Then

            MsgBox "Selamat Tebakan Anda Benar", , "Selamat :D"

        ElseIf (o3.Value = True) And (Label5.BackColor = vbGreen) Then

            MsgBox "Selamat Tebakan Anda Benar", , "Selamat :D"

        Else

            MsgBox "Aduh, Tebakan Anda Salah", , "Gagal >.<"

        End If

       

    Command1.Caption = "Start"

Else

    Timer1.Enabled = True

    Command1.Caption = "Stop"

End If

End Sub

LANGSUNG KE TKP
DOWNLOAD PROGRAM