Hi quest ,  welcome 

Info

Ingin Penghasilan Tambahan, disini saya akan memperkenalkan Sophie Paris, Banyak sekali keuntungan untuk mendaftar member di Sophie Paris,
Keuntungannya yaitu :
- Daftar member Gratis.
- No ID atau No kartu member aktif seumur hidup, artinya tidak ada perpanjangan no ID,
- Diskon 30% Untuk semua produk
- Sophie paris juga menyediakan Bebas ongkos kirim,
- Jika Aktif maka akan ada transfer tiap bulannya.
>> Yuk yang belum daftar bisa daftar isi datanya Klik link di bawah :)

Membuat Program Stopwatch Sederhana dengan Visual Basic 6.0


Pasti Anda tau dengan yang namanya stopwatch, stopwatch adalah alat pengukur waktu. Pada postingan ini saya akan membahas pembuatan program stopwatch menggunakan visual basic 6.0


Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.

Source Code dari program diatas :
———————————————————————————————-
Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub
Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub
Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If
If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub
———————————————————————————————-
Untuk mendownload program stopwatch sederhana ini, klik disini.



Artikel lain yang mungkin anda cari,:

2 komentar:

Holmes Silaen said...

Ijin sedot gan, mau post di blog ane..
dyaholmes.blogspot.com

catatan said...

iya gan :)
terima kasih sudah mencantumkan sumbernya :)

Post a Comment