İçeriğe geç
ShiftDelete.Net
Haber ara/ SDN'ye SorGiriş
Haber Akışı SDNTV İnceleme Forum Yapay Zeka Akıllı Telefon Elektrikli Otomobil Oyun ShiftDelete.Net Global Teknoloji Haberleri Mobil Otomobil Donanım Savunma Bilim Sosyal Medya İnternet Giyilebilir Teknoloji Rehber Ürünler Son dakika Yazarlar
  1. Ana sayfa
  2. Topluluk
  3. Programlama
  4. Programlama Dilleri
Programlama Dilleri

VB 8 Ufak Sorun

ffuurrkkaann22.06.20113 cevap1.468 görüntüleme
2011'den beri17 mesaj
#1
bu konuyu 2. kez açmamın nedi önceki açtığım konun yanlış yerde olması

Merhaba arkadaşlar
vbyi yeni öğrenmeye başlıyorum bilgisayarı kapatma programı yapmaya çalışıyourm ama olmuyor. aslında oluyor ama süre bitince shell("shutdown -s -t 1") komutunu nasıl aktif hale getiriceğimi bulamadım:unsure:

2 tane değişken var biri dakika biri saat sorunsuz bi şekilde işliyor

Şöyle bişey denedim olmadı
If saat = 0 + dakika = 0 Then

Shell("shutdown -s -t 1")
End If

sizden istediğim saat 0 dakika 0 olunca bilgisayarın kapanması :helpsmilie:
Cevaplar
2007'den beri17 bin mesaj
#2
Geri sayan bir yapı varsa eğer bir tane timer koyarsın forma, 1000 milisaniyede bir kontrol ettirirsin, istediğin eşitlik sağlanınca da komutu uygulatırsın. çok sıkıntılı bir şey değil aslında :)
ffuurrkkaann Konuyu açan
2011'den beri17 mesaj
#3
zaten bi tane timer var oda sorunsuz çalışıyor şu şekilde
-----------------------------
If dakika = 0 Then
saat = saat - 1
dakika = 59
End If
----------------------------

ama benim yamadığım şey eşitlik sağlanınca oluşucak komut
2007'den beri17 bin mesaj
#4
ffuurrkkaann dedi: ↑
zaten bi tane timer var oda sorunsuz çalışıyor şu şekilde
-----------------------------
If dakika = 0 Then
saat = saat - 1
dakika = 59
End If
----------------------------

ama benim yamadığım şey eşitlik sağlanınca oluşucak komut
Mesela aşağıdaki gibi bir kod ile saat 10:45 olduğunda kapanır bilgisayar. Artık sen gerisini türetirsin kendin :)
Dim saat As Integer = 10
Dim dakika As Integer = 45

        If saat = Convert.ToInt32(Now.Hour) And dakika = Convert.ToInt32(Now.Minute) Then
            Shell("shutdown -s -t 0 -f")
        End If

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.