1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Girilen Zamanda Bilgisayar Kapatma


  1. Statuss

    Statuss Bilgiliyim rank8

    Kayıt:
    25 Haziran 2008
    Mesajlar:
    1.178
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Şehir:
    the wrong place
    Kod:
    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
    Visual Basic
    Kolaygelsin