SCRIPT BUAT STOPWATCH DI VB

Iseng2 buat, hehehe...


Public Class Form1

Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Me.Label1.Text = "0"
Me.Timer1.Enabled = True
End Sub

Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label1.Text = CStr((CDbl(Me.Label1.Text) + 0.1))
End Sub

Private Sub BtnLanjut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLanjut.Click
Me.Label1.Text = CStr((CDbl(Me.Label1.Text) + 0.1))
Me.Timer1.Enabled = True
End Sub
End Class