Back to Browse

Visual Basic - Slip 6b(Stopwatch)

57 views
Mar 21, 2020
8:20

Public ms, s, m As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() ms = 0 s = 0 m = 0 Label1.Caption = ms Label2.Caption = s Label3.Caption = m End Sub Private Sub Form_Load() ms = 0 s = 0 m = 0 Label1.Caption = ms Label2.Caption = s Label3.Caption = m End Sub Private Sub Timer1_Timer() ms = ms + 1 Label1.Caption = ms If ms = 99 Then ms = 0 s = s + 1 Label2.Caption = s If s = 9 Then s = 0 m = m + 1 Label3.Caption = m End If End If End Sub

Download

0 formats

No download links available.

Visual Basic - Slip 6b(Stopwatch) | NatokHD