Visual Basic Pc Kapatma ?
-
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 aButon 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
-
Dim a
a = Val(TextBox1.Text)
Shell("shutdown -s -t " + a)
yi denermisin ?
-
+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
-
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