Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

timer kullanarak pc kapatma sorunu

Konu, 'Visual Basic .Net' kısmında omerrica tarafından paylaşıldı.

  1. omerrica

    omerrica Yeni Üye

    Kayıt:
    18 Eylül 2013
    Mesajlar:
    10
    Beğenilen Mesajlar:
    0
    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