Istirahat sambil dengerin musik orgen di komputer memang asyik banget, tapi gimana kalo kita sampe ketiduran ??… kacian kan komputer kita nyanyi sendirian… tagihan listrik juga bisa membengkak…kan mubazir tuh…Nah…salah satu solusinya kita dapat menggunakan Timer shutdown,Emank banyak software-sofware seperti ini, tapi kan lebih asyik lagi kalo kita bisa buat sendiri…,,Berikut adalah cara membuat Timer shutdown sederhana dengan menggunakan Visual Basic 6.0,,,Program berikut sangat sederhana, sehingga mudah di ikuti oleh pemula…Siapkan komponen berikut :

1. 2 buah label
2. Textbox
3. 2 buah command button
4. 2 buah combobox
5. Timer

Ubah properties masing-masing komponenen menurut tabel berikut :

	Properties
Form1	Caption = Matiin Windows Max button = False Border style = None Back Color = &H00808080& Left = 16005 Top = 60
Label1	Caption = WaktuBackStyle = Transparent
Label2	Caption = DetikBackStyle = Transparent
Text1	Caption = (di kosongkan)MaxLength = 7
Command1	Caption = Matiin
Command2	Caption = Batalkan
Combo1	List = Detik; Menit; Jam
Combo2	List = Shutdown; Restart; LogOff
Frame1	Caption = (di kosongkan)Back Color = &H00404040&
Timer	Inteval = 1000Enabled = False

Untuk Menuliskan List pada Combo1 dan Combo2, Cari list pada properties combo1 dan combo2 lalu ketikkan seperti tabel di atas isinya, tekan ctrl + enter untuk menulis pada baris berikutnya

Untuk properties Form1 > ‘left’ dan ‘Top’, berfungsi untuk mengatur posisi program pd saat di jalankan. Kalo posisinya tidak tepat anda bisa mengaturnya sesuai dgn resolusi komputer anda dengan mengurangi atau menambahkan nilai dari Left atw Top….karena kita ingin menghasilkan tampilan program pada posisi pojok atas desktop seperti gmb. berikut…..



Lalu atur semua komponen seperti gambar berikut atau sesuai keinginan anda
Setelah itu kita masuk pada tahap penulisan kode program.


Double klik pada form1 lalu isikan kode berikut :

 Private Sub Form_Load()
 a = MsgBox(" ")
    If a = vbOK Then
    Form1.Visible = True
End If
End Sub

Private Sub Form_activate()
    Text1.SetFocus
    Combo2.Text = Combo2.List(0)
    Combo1.Text = Combo1.List(1)
End Sub

Double klik pada Command1 lalu isikan kode berikut :

Private Sub Command1_Click()
If Text1.Text < 0 Then
    MsgBox ("Inputan Salah...!!")
ElseIf Text1.Text = "" Then
    MsgBox ("Masukan Angka")
Else
Label2.Caption = Text1.Text
If Combo1.Text = "Menit" Then
    Label2.Caption = Label2.Caption * 60
ElseIf Combo1.Text = "Jam" Then
    Label2.Caption = Label2.Caption * 3600
End If
Text1.Locked = True
Combo1.Locked = True
Combo2.Locked = True
Command1.Enabled = False
Timer1.Enabled = True
 End if
End Sub


Kemudian double klik pada command2 ketikkan kode berikut :

Private Sub Command2_Click()
    a = MsgBox("Batalkan..!", vbOKCancel)
    If a = vbOK Then
    Unload Me
    End If
End Sub

Terakhir, double klik pada timer lalu ketikkan kode berikut:

Private Sub Timer1_Timer()
If Label2.Caption <= 0 Then
    Timer1.Enabled = False
    If Combo2.Text = "Shutdown" Then
        Shell "Shutdown.exe -s -f -t 00"
    ElseIf Combo2.Text = "Restart" Then
        Shell "Shutdown.exe -r -f -t 00"
    ElseIf Combo2.Text = "LogOff" Then
        Shell "Shutdown.exe -l -f -t 00"
    End If
Else
    Label2.Caption = Label2.Caption - 1
End If
End Sub

Selesai deh….pendek aja khan programnya….
Selamat mencoba………..
untuk Live Demo nya bisa di Download disini : Download