Cara Membuat Stopwath Dengan Visual Basic 2008

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.
Source Code dari program diatas :



Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub

Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If

If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub