Berikut adalah tampilan form
untuk stopwatch.Terdiri dari 3 buah penunjuk waktu yang dimaksud untuk
menunjukkan milidetik,detik, dan menit yang dibuat dengan menggunakan Label.
Dan 3 buah CommandButton yang masing masing diubah captionnya menjadi stop,
start, dan resume.
Berikut adalah kode program yang dapat
dituliskan agar dapat menjalankan program stopwatch
Penjelasan dari source code
tersebut adalah
·
- Pada commandbutton 1(tombol false) dituliskan Timer1.Enabled= False berarti tidak menjalankan waktunya karena bernilai salah.
- Kemudian pada commandbutton 2 (tombol START) di tuliskan :
Label1.Caption = 0
Label2.Caption = 0
Label4.Caption = 0
Timer1.Enabled = True
Maksud dari label1, label2,
labe4, .Caption=0 adalah ketika kita menekan tombol start maka ketiga label
yang sudah berjalan berapapun angkanya akan kembali ke 0 lagi karena tombol
commandbutton 2 berfungsi sebagai start.
- Pada commandbutton 3 (tombol resume) dituliskan timer1.Enabled=True yang menyatakan bahwa akan menjalankan waktu karna bernilai benar.
- Pada codingan timer tertulis:
Label1.Caption =
Label1.Caption + 1 = akan mulai menjalankan dari 0 dan selalu bertambah +1
If Label1.Caption =
60 Then = angka yang terus bertambah +1 sampai angka 60 karena sudah ditentukan
batas penjumlahan angkanya
Label1.Caption = 0
= ketika penjumlahan sudah sampai ke angka 60,maka label1 akan kembali ke angka
0 lagi lalu menambahkan lagi +1 sampai 60 lagi
Label2.Caption =
Label2.Caption + 1 = setelah label1 sampai pada angka 60 maka label 1 bernilai
0 dan label 2 bernilai +1 (bertambah 1) setiap label1 bernilai 60
If Label2.Caption =
60 Then = angka yang terus bertambah +1 sampai angka 60 karena sudah ditentukan
batas penjumlahan angkanya
Label2.Caption = 0 ketika
penjumlahan sudah sampai ke angka 60,maka label2 akan kembali ke angka 0 lagi lalu
menambahkan lagi +1 sampai 60 lagi
Label4.Caption =
Label4.Caption + 1, yaitu label4 akan mengalami kenaikan +1 karna label1 dan
label2 yang telah mencapai kondisi waktu=60
Fungsi interval = 100 adalah untuk mengatur
kecepatan yang diinginkan didalam timer,jika nilainya semakin kecil maka
kecepatan timer akan semakin kecil,tetapi jika semakin besar maka akan semaki
lambat timer tersebut
End If = untuk
mengakhiri perintah if
End If = untuk
mengakhiri perintah if
Maka outputnya akan menjadi:
