Penghitungan Mundur
Bila Anda membutuhkan contoh prosedur untuk melakukan proses
penghitungan mundur / countdown, berikut ini cara membuatnya. Buat
Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1
kontrol Label, 1 kontrol Tombol / Button, dan 1 buah kontrol Timer
(Enabled=False; Interval=1000), lalu ketikkan kode-kode berikut
[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam As Integer, Menit As Integer, Detik As Integer
Di bagian 'Form_Load' ketikkan :
Label1.Caption = "00:00:00"
Di bagian 'Command1_Click' ketikkan :
'nilai awal (0 s/d 59)
Jam = 0
Menit = 1
Detik = 10
Label1.Caption =
Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
Timer1.Enabled = True
Command1.Enabled = False
Di bagian 'Timer1_Timer' ketikkan :
Detik = Detik - 1
If Detik < 0 Then
Detik = 59
Menit = Menit - 1
If Menit < 0 Then
Menit = 59
Jam = Jam - 1
End If
End If
Label1.Caption =
Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
If
Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Command1.Enabled = True
MsgBox "Waktu Habis !!!"
End If
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam, Menit, Detik As Integer
Di bagian 'Form1_Load' ketikkan :
Label1.Text = "00:00:00"
Di bagian 'Button1_Click' ketikkan :
'nilai awal (0 s/d 59)
Jam = 0
Menit =1
Detik = 10
Label1.Text =
Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
Timer1.Enabled = True
Button1.Enabled = False
Di bagian 'Timer1_Tick' ketikkan :
Detik -= 1
If Detik < 0 Then
Detik = 59
Menit -= 1
If Menit < 0 Then
Menit = 59
Jam -= 1
End If
End If
Label1.Text =
Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")
If
Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Button1.Enabled = True
MsgBox("Waktu Habis !!!")
End If
CATATAN : Kode diatas mencakup Jam, Menit, dan Detik. Namun bila Anda
menginginkan hanya Menit dan Detik saja, tinggal menghapus kode-kode
yang berwarna merah.
