Latihan 3 - Pertambahan Waktu - Visual Basic

Buat Desain Seperti ini :

dan masukan script ini sesuai dengan procedurenya masing2 :

Private Sub Command1_Click()

If Command1.Caption = "Mulai" Then

Timer1.Enabled = True

Command2.Enabled = False

Command1.Caption = "Selesai"

ElseIf Command1.Caption = "Selesai" Then

Timer1.Enabled = False

Command2.Enabled = True

End If

End Sub

Private Sub Command2_Click()

Label1.Caption = "00"

Command1.Caption = "Mulai"

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption + 1

Label1.Caption = Format(Label1.Caption, "00")

End Sub