Selasa, 10 April 2012

Membuat aplikasi stopwatch Visual Basic


Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer

Di bagian 'Form_Load' ketikkan :
Label1.Caption = "00 : 00 : 00,00"

Di bagian 'Command1_Click' ketikkan : (Start)
Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")

Di bagian 'Command2_Click' ketikkan : (Reset)
Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Timer' ketikkan :
mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0
      
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
          
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
          
End If
End If
  
Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")





[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam, Menit, Detik, mDetik As Integer

Di bagian 'Form1_Load' ketikkan :
Label1.Text = "00 : 00 : 00,00"

Di bagian 'Button1_Click' ketikkan : (Start)
Timer1.Enabled = (Button1.Text = "Start")
Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")

Di bagian 'Button2_Click' ketikkan : (Reset)
Timer1.Enabled = False
Button1.Text = "Start"
Label1.Text = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Tick' ketikkan :
mDetik += 1
If mDetik = 100 Then
mDetik = 0

Detik += 1
If Detik = 60 Then
Detik = 0

Menit += 1
If Menit = 60 Then
Menit = 0
Jam += 1
End If

End If
End If

Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

2 komentar:

Anonim mengatakan...

Gk ad gmbr'x nie gan..

Jajuri mengatakan...

iya,
masak gak jelas?
Gampang kok..

Posting Komentar

Alangkah Baiknya Jika Pengunjung Berkomentar.
(Bagi yang Belum Punya Akun Pakai "Anonim" Saja)
Ok Terimakasih :)

By Admin Jaj Mv Comp

Twitter Delicious Facebook Digg Stumbleupon Favorites More