Kod:
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
İndir ;
saat.rar - Speedy Share - upload your files here
https://www.virustotal.com/file/7c11...is/1334340656
__________________