 |
| WebOzeL RekLam-BiLgiSayar İnternet ALanı - İstediğimiz saatte bilgisayar kapansın
|
|
|
Bu dersimizde istediğimiz saatte bilgisayarın kapanacağı bir geri sayım sayacı yapalım.
Evet, bu dersimizde aslında geri sayım sayacı yapacağız ama aynı zamanda istediğimiz saatte bilgisayarı kapatan bir program yapacağız...
Öncelikle Formumuzu hazırlayalım formumuza eklememiz gerekenler:
- 3 Adet Label (İsimleri "saat", "dakika" ve "saniye" olsun)
- 1 Adet Timer
- 1 Adet CommandButon[/b]
Bu da programın kodu (kopyala yapıştır yapanlar için):
Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Command1.Caption = "BAŞLA"
Else
If saat = "" Then saat = "00"
If dakika = "" Then dakika = "00"
If Len(saat) = 1 Then saat = "0" & txsaat
If Len(dakika) = 1 Then dakika = "0" & txdakika
If Len(saniye) = 1 Then saniye = "0" & txsaniye
Timer1.Enabled = True
Command1.Caption = "DURDUR"
End If
End Sub
Private Sub Timer1_Timer()
If saniye > 0 Then
saniye = saniye - 1
If Len(saniye) = 1 Then saniye = "0" & saniye
Else
saniye = 59
If dakika > 0 Then
dakika = dakika - 1
If Len(dakika) = 1 Then dakika = "0" & dakika
Else
dakika = 59
If saat > 0 Then
saat = txsaat - 1
If Len(saat) = 1 Then saat = "0" & saat
Else
saat = "00": saniye = "00": dakika = "00"
Shell "Shutdown.exe -s"
Timer1.Enabled = False
End If
End If
End If
End Sub
Zaten bunu mantığını kronometre yapımında anlatmıştım. Sadece burda bilmeniz gereken kodun en sonunda bulunan >Shell "Shutdown.exe -s" kısmı, yani PC'yi kapat kısmı. Örneğin siz PC'yi kapatma değil de, başka bir işlem istediniz, o zaman PC'yi kapatma kodu yerine istediğiniz kodu yapıştırın.
Kolay Gelsin... |
|
|
|
|
