Zamanlı Pc Kapatıcı Yapımı (VB6)

Merhamschall' Alıntı:

Timer Ne Demek ?

Genişletmek için tıkla ...

OttomansArmy12' Alıntı:

Oynadığınız Oyunda Gelişmek İçin Gece Pc yi açıkmı Bırakmak İstiyorsunuz.

O zaman Burdasınız.

Yapmanız Gereken
1 Text
1 label
4 optionbutton
4 button
ve 1 de timer.

Tasarım Olarak Örnek://

Sıra Kodlarda

Kod:

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 60000
Command1.Visible = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Text1.Visible = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Visible = True
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
End Sub

Private Sub Command3_Click()
Label1.Caption = Text1.Text
End Sub

Private Sub Command5_Click()
MsgBox ("Önce Saatinizi Seçin.")
MsgBox ("Sonra BaşlaYa Tıklayın.")
MsgBox ("Geçire Tıklarsanız Kutucuğa yazdığınıza göre süreniz ayarlanır")
End Sub

Private Sub Option1_Click()
Label1.Caption = "60"
End Sub

Private Sub Option2_Click()
Label1.Caption = "120"
End Sub

Private Sub Option3_Click()
Label1.Caption = "180"
End Sub

Private Sub Option4_Click()
Label1.Caption = "180"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim karakter$
karakter = "0123456789"
If KeyAscii <> 8 Then
If InStr(karakter, Chr(KeyAscii)) = 0 Then
Beep
KeyAscii = 0
Exit Sub
End If
End If
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
If Label1.Caption = "0"
 Shell ("shutdown -s -t 1")
 Timer1.Enabled = False
End If
End Sub

​

Bunu Kod Kısmına Aynen Yapıştırın.
Bu Kadar
1 Teşekkürü Çok Görmeyin uah​

Genişletmek için tıkla ...