Stopwatch
Listing
programnya :
Public Class Form2
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label3.Text = Val(Label3.Text) + 1
If Len(Label3.Text) = 1 Then Label3.Text = "0" & Label3.Text
If Label3.Text = "60" Then
Label3.Text = "00"
Label2.Text = Val(Label2.Text) + 1
If Len(Label2.Text) = 1 Then Label2.Text = "0" & Label2.Text
End If
If Label2.Text = "60" Then
Label2.Text = "00"
Label1.Text = Val(Label1.Text) + 1
If Len(Label1.Text) = 1 Then Label1.Text = "0" & Label1.Text
End If
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
End Class
Hasilnya
:
Sekian
dari saya, + saya
minta maaf yang setulus-tulusnya.
Semoga
bermanfaat.
Nama : RACHMAN SALISTIANTO
Sekolah : SMK N 2 KLATEN
Alamat : KRAKITAN, BAYAT, KLATEN, SEMARANG (JAWA TENGAH), INDONESIA
ConversionConversion EmoticonEmoticon