Rabu, 21 Desember 2011

Timer Sederhana dengan Visual Basic 6.0.



 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


Tidak ada komentar:

Posting Komentar