Program VB "Stopwatch Sederhana"

Kali ini saya ingin memberikan ilmu atau sedikit referensi bagi anda yang membutuhkan. Langsung saja, ini adalah cara membuat "program stopwacth sederhana dengan menggunakan Visual Basic". Saya sendiri sudah menjalankannya dan berhasil.

Dan ini adalah kodingnya :

Dim i As Integer
Dim ii As Integer

Dim k As Integer
Dim n As Integer

Private Sub Command1_Click()
i = 0
k = 0
n = 0
ii = 0
Timer1.Enabled = 1
Timer3.Enabled = 1
End Sub

Private Sub Command2_Click()
Timer1.Enabled = 0
Timer3.Enabled = 0
End Sub

Private Sub Form_Load()
Timer2.Enabled = 1
Label2.Caption = 0
Label3.Caption = 0
Label4.Caption = 0

End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Timer1_Timer()


i = i + 1
Label2.Caption = i
If i = 60 Then
i = 0
k = k + 1
Else: End If
Label3.Caption = k
If k = 60 Then
k = 0
n = n + 1
Else: End If
Label4.Caption = n

If n = 24 Then
n = 0

Else: End If

End Sub

Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub

Private Sub Timer3_Timer()
ii = ii + 1
Label9.Caption = ii
If ii = 99 Then
ii = 0
Else
End If

End Sub

GOODLUCK !!!

»»  READMORE...