Visual Basic Pc Kapatma ?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Twitter
    Twitter's avatar
    Kayıt Tarihi: 13/Ekim/2007
    Erkek

    Arkadaşlar visual basic 2008 kullanıyorum yardımınıza ihtiyacım var 

    yapmam gereken projede bilgisayarı istediğim sürede kapatmam lazım 

    bundan dolayı forma 1 adet textbox yerleşirdim ve 1 adet buton 

    amacım textboxa girilen veriyi kullanıp o belirtilen süre sonucunda bilgisayarı kapatmak 

    Örnek olarak 

    Dim a

    Buton için

    Shell("shutdown -s -t a")

            a = Val(TextBox1.Text) 

    yapınca bir türlü çalışmadı program tepki bile vermiyor . 

    Yardımcı olacak arkadaşlarım varsa sevinirim yada örnek bir proje paylaşıcak olan 

    Şimdiden teşekkürler


    Tbt Dersimliler Derneği Başkanı :)
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SpArK
    SpArK's avatar
    Kayıt Tarihi: 17/Temmuz/2005
    Erkek

    Dim a

    a = Val(TextBox1.Text)

    Shell("shutdown -s -t " + a)

     

    yi denermisin ?

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Twitter
    Twitter's avatar
    Kayıt Tarihi: 13/Ekim/2007
    Erkek

    +a yapınca sorunum çözdüldü hocam teşekkür ederimde 

    bir sorum daha olucak mesela program textbox a atanan değeri nasıl algılıyor 

    örneğin benim bilgisayarı 1 saat sonra kapatmam için 3600 diyemi yazmam lazım 

    orada ki saat formatı nedir ?

    yada direkt olarak istediğim saati yazsam mesela saat şuan 13:00

    bilgisayarı 14:00 da kapat bunun için gerekli olan nedir ? 

    Bunun için ne düzzenleme yapmam lazım kodlarda


    Tbt Dersimliler Derneği Başkanı :)
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Shimarik
    Shimarik's avatar
    Kayıt Tarihi: 14/Eylül/2008
    Erkek

    Merhaba

    Öncelikle projene bir tane DateTimePicker Ekle bunun nedeni senin istediğin saatte kapanmasını sağlamak. Sonra bu componentin özelliklerinden Format = long' tur default olarak sen onu time yap. Projene bir tane button bir tanede timer ekle. butonun ismi süre başlasın olsun. Aşağıdaki kodu al direk yapıştır. Çalıştır. :D Ama kodu adam gibi paste edemedim editöre düzenlersin kafana takılan biryer olursa yazarım ben sana yine yapılmak istenen bu kodda şuan ile senin verdiğin zaman birbirine denk geliyor pc kapanıyor. 

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If Now() >= DateTimePicker1.Value Then
                Timer1.Enabled = False
                Shell("shutdown -s -t " + "01")
            End If
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Timer1.Enabled = True
        End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Timer1.Interval = 1000
        End Sub


    Bir Programcının Parmaklarının ucunda imkansız diye bişey yoktur.
Toplam Hit: 3244 Toplam Mesaj: 4