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.

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

membuat game edukasi, game edukasi, game vb, game tebak warna, game keren