Selamlar;
timer kullanarak geri sayım yaptırıyorum ve süre dolunca pc'nin kapanmasını (ya da seçeneklere göre log off veya restart yapmasını) istiyorum. Kodları yazdım ancak bir sorun çıkıyor nedenini bulamadım bir türlü.
Kodlar şöyle :
************************************************** **
Public Class Form1
Dim saniye, dakika, saat As Integer
Dim sureDurdu As Boolean = True
************************************************** *****
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
saat = NumSaat.Value
dakika = NumDakika.Value
saniye = NumSaniye.Value
1: If saniye > 0 Then
saniye = saniye - 1
2: ElseIf dakika > 0 Then
dakika = dakika - 1
saniye = saniye + 60
GoTo 1
ElseIf saat > 0 Then
saat = saat - 1
dakika = dakika + 60
GoTo 2
Else
Timer1.Stop()
System.Diagnostics.Process.Start("Shutdown", "/l")
Exit Sub
End If
NumSaniye.Value = saniye
NumDakika.Value = dakika
NumSaat.Value = saat
End Sub
Sub radioButtonSecenekleri()
If rbShutDown.Checked Then
MsgBox("pc kapatılacak")
End If
If rbRestrart.Checked Then
'MsgBox("pc yeniden başlatılacak")
System.Diagnostics.Process.Start("Shutdown", "/r")
End If
If rbLogOff.Checked Then
'MsgBox("oturum kapatılacak")
System.Diagnostics.Process.Start("Shutdown", "/l")
End If
End Sub
************************************************** ************
Private Sub btnBaslat_Click(sender As Object, e As EventArgs) Handles btnBaslat.Click
sureDurdu = True
btnDurdur.Text = "Durdur"
Timer1.Start()
End Sub
************************************************** ****************
Private Sub btnDurdur_Click(sender As Object, e As EventArgs) Handles btnDurdur.Click
If sureDurdu Then
Timer1.Enabled = False
sureDurdu = False
btnDurdur.Text = "Devam Et"
Else
Timer1.Enabled = True
sureDurdu = True
btnDurdur.Text = "Durdur"
End If
End Sub
************************************************** **
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
NumSaat.Value = 0
NumDakika.Value = 0
NumSaniye.Value = 0
sureDurdu = True
btnDurdur.Text = "Durdur"
End Sub
End Class
************************************************** *
Form da şöyle :
http://i.hizliresim.com/1VQooN.jpg
timer kullanarak geri sayım yaptırıyorum ve süre dolunca pc'nin kapanmasını (ya da seçeneklere göre log off veya restart yapmasını) istiyorum. Kodları yazdım ancak bir sorun çıkıyor nedenini bulamadım bir türlü.
Kodlar şöyle :
************************************************** **
Public Class Form1
Dim saniye, dakika, saat As Integer
Dim sureDurdu As Boolean = True
************************************************** *****
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
saat = NumSaat.Value
dakika = NumDakika.Value
saniye = NumSaniye.Value
1: If saniye > 0 Then
saniye = saniye - 1
2: ElseIf dakika > 0 Then
dakika = dakika - 1
saniye = saniye + 60
GoTo 1
ElseIf saat > 0 Then
saat = saat - 1
dakika = dakika + 60
GoTo 2
Else
Timer1.Stop()
System.Diagnostics.Process.Start("Shutdown", "/l")
Exit Sub
End If
NumSaniye.Value = saniye
NumDakika.Value = dakika
NumSaat.Value = saat
End Sub
Sub radioButtonSecenekleri()
If rbShutDown.Checked Then
MsgBox("pc kapatılacak")
End If
If rbRestrart.Checked Then
'MsgBox("pc yeniden başlatılacak")
System.Diagnostics.Process.Start("Shutdown", "/r")
End If
If rbLogOff.Checked Then
'MsgBox("oturum kapatılacak")
System.Diagnostics.Process.Start("Shutdown", "/l")
End If
End Sub
************************************************** ************
Private Sub btnBaslat_Click(sender As Object, e As EventArgs) Handles btnBaslat.Click
sureDurdu = True
btnDurdur.Text = "Durdur"
Timer1.Start()
End Sub
************************************************** ****************
Private Sub btnDurdur_Click(sender As Object, e As EventArgs) Handles btnDurdur.Click
If sureDurdu Then
Timer1.Enabled = False
sureDurdu = False
btnDurdur.Text = "Devam Et"
Else
Timer1.Enabled = True
sureDurdu = True
btnDurdur.Text = "Durdur"
End If
End Sub
************************************************** **
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
NumSaat.Value = 0
NumDakika.Value = 0
NumSaniye.Value = 0
sureDurdu = True
btnDurdur.Text = "Durdur"
End Sub
End Class
************************************************** *
Form da şöyle :
http://i.hizliresim.com/1VQooN.jpg