Nih Kebetulan ada contohnya, pelajari dan silahkan modifikasi
Private Sub Timer1_Timer()
'Tambah dengan satu untuk total sepersepuluh detik.
'Kita mengeset interval Timer menjadi 10, jadi
'setiap sepersepuluh detik prosedur ini akan
'dieksekusi
TotalTenthDetik = TotalTenthDetik + 1
'Jika TotalTenthSeconds = 10,
'set kembali menjadi 0.
TenthDetik = TotalTenthDetik Mod 10
'10 kali sepersepuluh detik sama dengan 1 detik.
'int - akan mengembalikan bilangan integer (bulat)
'dari pecahan 'Contoh: Int(0.9) = 0 menghasilkan 0
TotalDetik = Int(TotalTenthDetik / 10)
'Jika variabel Seconds = 60, set kembali menjadi 0
Detik = TotalDetik Mod 60
If Len(Detik) = 1 Then
Detik = "0" & Detik 'Agar selalu dalam dua
'digit
End If
Menit = Int(TotalDetik / 60) Mod 60
If Len(Menit) = 1 Then
Menit = "0" & Menit 'Agar selalu dalam dua
'digit
End If
Jam = Int(TotalDetik / 3600)
If Jam < 9 Then
Jam1 = "0" & Jam 'Agar selalu dalam dua
'digit
End If
'Tampilkan hasilnya di Label1 (update terus Label1)
Label1 = Jam1 & ":" & Menit & ":" & Detik & ":" _
& TenthDetik & ""
End Sub
--- In [email protected], "arief nurhadi"
<[EMAIL PROTECTED]> wrote:
>
> Ada yang tau scrip untuk buat program StopWatch...?
> please di share scripnya.....
>
> arief
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get to your groups with one click. Know instantly when new email arrives
http://us.click.yahoo.com/.7bhrC/MGxNAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
