Maaf gan udah lama gak Upload ne, maklum kmren2 lg sibuk aktivitas di dunia nyata. Nah, kali ini ane coba posting cara membuat Timer sederhana dengan VB 6.0. Langsung aja gan, berikut gambar dan scriptnya.
komponen yang digunakan :
5 Buah Label
3 Buah Textbox
4 Buah Command Button
dan 1 Buah Timer. Dibawah ini adalah Scriptnya :
Dim awal
Private Sub Command1_Click()
awal = Now()
Text1.Text = Format(awal, "hh:mm:ss")
End Sub
Private Sub Command2_Click()
akhir = Now()
Text2.Text = Format(akhir, "hh:mm:ss")
Text3.Text = Format(akhir - awal, "hh:mm:ss")
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Timer1_Timer()
Label6.Caption = Time
End Sub
Private Sub Command1_Click()
awal = Now()
Text1.Text = Format(awal, "hh:mm:ss")
End Sub
Private Sub Command2_Click()
akhir = Now()
Text2.Text = Format(akhir, "hh:mm:ss")
Text3.Text = Format(akhir - awal, "hh:mm:ss")
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Timer1_Timer()
Label6.Caption = Time
End Sub
Tidak ada komentar:
Posting Komentar