Girilen Zaman Da Bilgisayar Kapatma

[Yasin_0023]

Otomatik bilgisayar kapatma

Formumuza 1 Tane Label , 1 Tane Text Box ,  2 Tane Command , 1 Tane Timer ( İnterval özelliği 1000 Olacak ) Ekleyelim.

Command 1 Caption Özelliğine Başla Yazalım
Command 2 Caption Özelliğine Çıkış Yazalım

Vereceğim Kodlarım Tamamını Forma Yapıştıralım Kolay Gelsin.

Private Sub Command1_Click()
    Form1.WindowState = 1  'Formu simge durumuna küçült
    Timer1.Enabled = True  'Zamanlayıcıyı başlat
End Sub


Private Sub Command2_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End
   
End Sub


Private Sub Form_Load()
Show
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub



Private Sub Label1_Click()
End Sub



Private Sub Timer1_Timer()
    saat = Format(Time, "hh:mm")
    If saat = Text1.Text Then
        Beep
        Shell ("shutdown -s -t 1")
        Timer1.Enabled = False
        Form1.WindowState = 0 'Formu tekrar görüntüle
    End If
End Sub

  SİYAHSERİT