Cara Membuat Label Countdown di Visual Basic 6

Hai! Kali ini, saya akan post tentang Cara Membuat Label Countdown di Visual Basic 6, sesuai dengan request Dimaz. Oke, ini dia caranya:

Tools:

• Visual Basic 6

Step:

1. Buka Visual Basic 6
2. Tambahkan 1 Label, beri nama LabelDetik, Captionnya terserah
3. Tambahkan 1 Timer, beri nama TimerDetik
4. Dobel klik Form yang kosong, tambahkan kode di bawah ini:


Dim detik As Integer

Private Sub Form_Load()
TimerDetik.Interval = 1000
LabelDetik.Caption = "20"
End Sub

Private Sub TimerDetik_Timer()
detik = LabelDetik - 1
LabelDetik.Caption = detik
If LabelDetik.Caption = "0" Then
Call MsgBox("Game Over", vbInformation)
TimerDetik.Interval = 0
End If
End Sub





5. Note: Ganti 20 dengan berapa detik countdown yang akan dilakukan, Ganti Game Over dengan tulisan yang akan muncul apabila countdown selesai.
6. Selesai

Sekian dulu posting kali ini. Terima kasih untuk Dimaz yang telah me-request artikel ini :)

Kode diatas adalah buatan saya sendiri :)