|
Nama
Control |
Properti |
Value |
|
TextBox |
Name
Locked
Teks |
txt1
True
00 |
|
TextBox |
Name
Locked
Teks |
txt2
True
00 |
|
TextBox |
Name
Locked
Teks |
txt3
True
00 |
|
Timer |
Interval |
10 |
|
Timer |
Enable |
False |
|
CommandButton |
Caption |
Start |
Copy & paste-kan listing dibawah ini ke
Form pada code editor :
Option Explicit
Private Sub cmdStartStop_Click()
Select Case cmdStartStop.Caption
'Pilih kondisi
teks tombol
'Kondisi jika teks = "Start"
Case "Start"
Timer1.Enabled = True
cmdStartStop.Caption = "Stop"
'Kondisi
jika teks = "Stop"
Case "Stop"
Timer1.Enabled = False
cmdStartStop.Caption = "Start"
End Select
End Sub
Private Sub Timer1_Timer()
'Tambahkan nilai 1
pada nilai txt1.text
txt1.Text = txt1.Text + 1
End Sub
Private Sub txt1_Change()
'Jika nilai pada
txt1 = 59 maka uabh nilai txt1 menjadi 00
'Tambahkan
nilai 1 pada nilai txt2.text
If txt1.Text = "59" Then
txt1.Text = "00"
txt2.Text = txt2.Text + 1
End If
'Format textbox (txt1) agar
menapikan 2 digit angka
txt1.Text = Format(txt1.Text, "00")
End Sub
Private Sub txt2_Change()
'Jika nilai pada
txt2 = 59 maka uabh nilai txt1 menjadi 00
'Tambahkan
nilai 1 pada nilai txt3.text
If txt2.Text = "59" Then
txt2.Text = "00"
txt3.Text = txt3.Text + 1
End If
'Format textbox (txt2) agar
menapikan 2 digit angka
txt2.Text = Format(txt2.Text, "00")
End Sub
Private Sub txt3_Change()
'Format textbox
(txt3) agar menapikan 2 digit angka
txt3.Text = Format(txt3.Text, "00")
End Sub
|