Cara Membuat Penghitungan Mundur Dengan VB

Bila anda ingin membuat penghitungan mundur, berikut ini cara membuatnya dan kodenya. 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

[ VB .NET ]

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.