Visual Basic : Zamanlama Uygulaması

Private Sub Command1_Click()
saatt.Text = saatt.Text + 1
End Sub
Private Sub Command2_Click()
saatt.Text = saatt.Text - 1
End Sub
Private Sub Command3_Click()
dakika.Text = dakika.Text - 1
End Sub
Private Sub Command4_Click()
dakika.Text = dakika.Text + 1
End Sub
Private Sub Command7_Click()
Timer2.Enabled = True
End Sub
Private Sub Command8_Click()
Timer2.Enabled = False
End Sub
Private Sub Control_Timer()
Dim a, b
a = saatt.Text
b = dakika.Text
If a > 24 Then
saatt.Text = ("00")
End If
If a < 0 Then
saatt.Text = ("24")
End If
If b > 60 Then
dakika.Text = ("00")
End If
If b < 0 Then
dakika.Text = ("60")
End If
durulcak.Caption = a & ":" & b
End Sub
Private Sub Timer1_Timer()
saat = Format(Time, "hh:mm")
saatdrm.Text = saat
End Sub
Private Sub Timer2_Timer()
Dim x, y
x = saatdrm.Text
y = durulcak.Caption
If x = y Then
Shell ("shutdown -s -t 1")
End If
End Sub