PROGRAM GAME KLIK CEPAT VISUAL BASIC 6.0

Pada postingan kali ini saya akan membantu anda untuk membuat program game sederhana yaitu game klik cepat (dalam visual basic 6.0).Selamat membaca !

*Sebelumnya saya minta maaf karena tidak memposting materi dalam beberapa minggu dikarenakan satu dan lain hal.Terima Kasih !

Cara bermain game :
Cukup start game dan klik secepat mungkin pada tombol(menggunakan touchpad atau mouse) dengan waktu 30 detik.

PEMBUATAN PROGRAM(DESIGN FORM BISA DILIHAT DI HASIL PROGRAM)

GAMBAR (TOMBOL)
1.Pertama-tamaCarilah gambar di internet(bentuk tombol/bisa lihat contoh di bawah) dan save di komputer anda
2.Tarik Picture ke dalam form
3.Ambil gambar yang tadi disimpan di komputer anda
4.Sesuaikan posisi dan size gambar(saran:tombol nya di tengah)
5.Ubah name picture1 menjadi "Gambar" (OPTIONAL)

LABEL
1.Tariklah label sebanyak 7 buah.
2.Kemudian pada label1 :ubah caption dengan "FAST  CLICK BUTTON GAME"
3.Pada label2,ubah caption menjadi : "TIME LEFT"
4.Pada label3 ubah name menjadi : "lblwaktu" dan caption menjadi : "30"
5.Pada label4 ubah caption menjadi : "Second""
6.Pada label 5 ubah caption menjadi : "TOTAL CLICK"
7.Pada label 6 ubah name menjadi : "lblklik"

TIMER
1.Tarik 1 buah timer
2.Ubah name menjadi :"timer"
3.Ubah interval menjadi "1000"
4.Ubah enabled menjadi "False" (Cukup double klik pada properti enabled)

Kemudian ketikkan coding berikut !

Private Sub gambar_Click()
If timer.Enabled = False Then
    If MsgBox("Are You Ready?", vbOKCancel, "TRY ME !") = vbOK Then
    timer.Enabled = True
    End If
    Else: labelklik.Caption = Int(labelklik.Caption) + 1
End If
 
End Sub

Private Sub timer_Timer()
    lblwaktu = Int(lblwaktu.Caption) - 1
    If lblwaktu.Caption = 0 Then
    MsgBox "Time's Up ! Your Score is : " + labelklik.Caption, vbOKOnly, "Result"
    labelklik.Caption = 0
    waktu = 30
    timer.enabled = False
    End If
End Sub

CONTOH DESIGN HASIL PROGRAM

Jika anda menjalankannya maka akan muncul message box "Are you ready ?" Klik OK dan silahkan bermain ! Klik tombolnya dengan kecepatan maksimal anda !(My Score = 219) Beat me ! ^ ^

Sekian postingan dari saya,jika ada yang belum jelas dalam coding ,teman-teman dapat bertanya di comment.Terima Kasih !Semoga ilmu yang dibagi dapat bermanfaat !