Source Code Stopwatch menggunakan Visual Basic 6

Membuat digital stopwatch menggunakan bahasa pemrograman seperti Visual Basic spertinya udah ga asing lagi, mungkin banyak rekan-rekan sekalian yang udah bisa membuat stopwatch digital yang lebih bagus lagi, kali ini saya juga akan membagikan sedikit ilmu saya kepada teman-teman sekalian, semoga artikel ini bermanfaat.

Buatlah project baru dengan pilihan standart exe, buatlah 1 buah timer, timer ini nantinya digunakan untuk mengaktifkan stopwatch, kemudian isi kedua buah interval timer dengan nilai disesuaikan dengan kebutuhan. Selanjutnya buat 3 buah commandbutton,3 buah textbox,4 buah label.

Sudah siap semua ok kita LANJUT.

Kemudian ketikkan coding (kalo malas copy paste aja)

g pa2

Source Code Program

Dim mulai As Double

Private Sub cmdstart_Click()

mulai = Now

tmrstopwatch = True

txtmulai = Format$(Now, "hh:mm:ss")

End Sub

Private Sub cmdstop_Click()

tmrstopwatch = False

txtselesai = Format$(Now, "hh:mm:ss")

txtdurasi = Format$(Now - mulai, "hh:mm:ss")

lbldisplay = "00:00:00"

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub tmrstopwatch_Timer()

lbldisplay = Format$(Now - mulai, "hh:mm:ss")

End Sub

Properties

Komponen	Properties	Value
Label1	Name	Lbldisplay
	Caption	00:00:00
Label2	Name	lblmulai
	Caption	Waktu mulai
Label3	Name	lblberhenti
	Caption	Waktu Berhenti
Label4	Name	lbldurasi
	Caption	durasi
Button1	Name	cmdstart
	Caption	Start
Button2	Name	cmdstop
	Caption	Stop
Button3	Name	cmdexit
	Caption	Exit
Text1	Name	txtmulai
	Text	00:00:00
Text2	Name	Txtselesai
	Text	00:00:00
Text3	Name	txtdurasi
	Text	00:00:00
Timer1	Name	tmrstopwatch
	Interval	1000
	Enabled	false