Program Visual Basic: Membuat Stopwatch

Sekarang kita mencoba membuat program kecil-kecil lagi, setelah kemaren buat program yg bikin dahi mengkerut.

1.Pertama, Seperti biasa, kita buat form seperti di bawah ini.


Kemudian Command2 di tumpuk di command 1, seperti di bawah ini



2.Kita mulai atur propertiesnya
Label1
Name: LblTanggal
Caption: Tanggal

Label2
Name:LblWaktu
Caption:Waktu

Command1
Name: CmdStart
Caption:Start
Style:true (untuk bisa memberi warna pada command button, warna sesuka anda)

Command1
Name: CmdStop
Caption: Stop

Timer1
interval:1000 (ini per detik)

Sehingga formnya akan berubah seperti ini:


3. Sekarang kita mulai melakukan pengkodingan
Pertama kita asumsikan setelah program di jalankan, langsung menampilkan tanggal sekarang, tombol Start dan waktu baru muncul kalo tombol start di klik. Sedangkan Tombol Stop tidak muncul.
Private Sub Form_Load()
CmdStart.Visible = True
CmdStop.Visible = False
LblTanggal.Caption = Format(Date, "dddd,dd-mmmm-yyyy")
'dddd=hari
'dd=tanggal
'mmmm=bulan dalam bentuk tulisan, jika cuma mm =bulannya dalam bentuk angka
'yyyy=tahun

Timer1.Enabled = False
'timer belum berjalan atau di nonaktifkan
End Sub


Sekarang kita atur dulu timernya
Private Sub Timer1_Timer()
LblWaktu.Caption = Format(Now, "hh:mm:ss")
'jam, menit dan detik yang sekarang
'hh=jam
'mm=menit
'ss=detik
End Sub


Pada saat kita meng-Klik Start maka, waktu akan berjalan dan tombol Stop Tampil sedangkan tombol Start hilang.
Private Sub CmdStart_Click()
Timer1.Enabled = True
CmdStop.Visible = True
CmdStart.Visible = False
End Sub


Kemudian saat kita meng-kli Stop. Timer di non-aktivkan, dan tomlo stop di sembunyikan sedangkan tombol start di tampilkan.
Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStop.Visible = False
CmdStart.Visible = True
End Sub


Program setelah di jalankan



Labels: