ShutDown Timer

• Download source files - 811.84 KB

Introduction

Before going in detail about the application.

This simple programme help you if you want to set timer to turn off your PC after spacified period.

Core behined Code

The most important code in this programme

System.Diagnostics.Process.Start("Shutdown", "/s")

I pass ' Shutdown ' to turn off .

So how am I achieving it? (What is the code behind it?)

first I used timer of course to increese variables every Tick of timer :-

This snap shot of code

this global var

Dim x,min,cou,hh As Integer = 0


Private Sub Timer1_Tick

'For each tick

'here I make counter

'x second

x = x + 1

If x = 60 Then

x = 0

min = min + 1

ProgressBar1.Value = ProgressBar1.Value + 1

End If

If min = 60 Then

hh += 1

min = 0

End If

Label5.Text = hh

'to display the timer

Label4.Text = x

Label3.Text = min

'NumericUpDown1 Input of hour

'NumericUpDown1 Input of hour
'NumericUpDown1 Input of hour

Dim tothor As Integer = Int32.Parse(NumericUpDown1.Value)

Dim totmin As Integer = Int32.Parse(NumericUpDown2.Value)

tothor = tothor * 60

Dim total As Double = tothor + totmin

'every tick check if it we achieve total of Minute

Dim totallabel As Double = hh * 60 + min

If totallabel = total Then

cou += 1

wa()

End If

End Sub

Now You can shut down

This sub shutdown pc

Public Sub wa()

If cou = 1 Then

Me.Show()

System.Diagnostics.Process.Start("Shutdown", "/s")

cou += 1

End If

End Sub

Finaly

pop up window will show give 30 second before shutting down.