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
*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 !
Comments
Post a Comment