Senin, 24 Juni 2013
Cara Membuat Stopwatch dengan menggunakan Microsoft Visual Basic 2010.
Anda dapat mendownload Microsoft Visual
Basic dengan mengklik: Microsoft Visual
Basic
Berikut ini cara membuatnya:
1. Buka program Microsoft Visual Basic 2010 dan buat project baru.
2. Tambahkan Timer dan setting:
- Name : Timer1
- Enabled : True
- Interval : 1000
- Interval : 1000
3. Tambahkan Button dan setting:
- Name : Button1
- Text : Start/Stop
4. Copy dan masukkan scrip ini:
Public Class Form1
Dim detik,
menit, jam As Integer
Dim a As
Boolean
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
If a = True Then
Timer1.Start()
a = False
Else
Timer1.Stop()
a = True
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If detik = 60 Then
detik = 0
menit = menit + 1
End If
If menit = 60 Then
If detik = 0 Then
detik = 0
menit = 0
jam = jam + 1
End If
End If
detik = detik + 1
Label1.Text = Format(jam, "00") & ":" &
Format(menit, "00") & ":" & Format(detik,
"00")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
a = True
End Sub
End Class
Anda dapat mendownload Stopwatch dengan mengklik
link dibawah ini:
Password: Julius Danes Nugroho
