Cara Membuat Program VB Shutdown Otomatis

Shutdown adalah sebuah proses untuk mematikan sebuah perangkat elektronik, seperti komputer, namun di sebuah situasi kita menginginkan komputer shutdown otomatis, contohnya ketika kita mendownload sebuah file yang memakan waktu download (sebut saja) 4 jam, dan ketika download selesai, maka komputer akan shutdown, bisa juga kita gunakan ketika kita mendengarkan lagu menjelang tidur.

Untuk membuat program shutdown otomatis di visual basic sangatlah mudah, dengan toolbox utamanya adalah timer, proses kerja program shutdown yang saya buat ini adalah, kita hanya menyesuaikan / setting kapan komputer akan di shutdown, dan akan bekerja / shutdown ketika waktu yang sudah kita tetapkan sama dengan waktu sekarang, dan dilengkapi fitur tambahannya yaitu waktu sekarang dan status program, apakah menyala / tidak, baiklah berikut tutorialnya :

1. Pertama Buka VB dengan project standar EXE.
2. lalu tambahkan 3 label, 6 text box, 2 frame, 2 command button, dan 2 timer
3. Ubahlah property dari masing - masing toolbox :

Tool Box	Properties	Keterangan
Form 1	Start Up Positions	Center Screen
Label 1	Caption	SET TIME
Label 2		(Kosong)
Label 3		OFF
Text 1	Text	00
Text 2		00
Text 3		00
Command 1	Caption	SET
Command 2		ON
Timer 1	Interval	1
Timer 2		1
Frame 1	Caption	TIME
Frame 2		STATUS

untuk format huruf, menyesuaikan saja,
sehingga seperti ini :

4. Lalu tuliskan script berikut :

Private Sub Command1_Click()
If Command1.Caption = "SET" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Timer2.Enabled = False
Command1.Caption = "OK"
Command2.Visible = False
Label3.Caption = "OFF"

Else
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Timer2.Enabled = True
Command2.Visible = True
Command2.Caption = "OFF"
Command1.Caption = "SET"
Label3.Caption = "ON"
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "OFF" Then
Timer2.Enabled = False
Command2.Caption = "ON"
Label3.Caption = "OFF"
Else
Timer2.Enabled = True
Command2.Caption = "OFF"
Label3.Caption = "ON"
End If

End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
Text6 = Format(Time, "SS")
Text5 = Format(Time, "NN")
Text4 = Format(Time, "HH")
End Sub

Private Sub Timer2_Timer()
If Text1.Text = Text4 And Text2.Text = Text5 And Text3.Text = Text6 Then
Shell "shutdown -s -f -t 0"
End If
End Sub

Saran :
Jika anda sedang dalam masa percobaan, ganti script Shell "shutdown -s -f -t 0", menjadi END agar komputer anda tidak shutdown ketika program di jalankan, melainkan menghentikan program

5. Lalu jalankan program :

Cara kerja program :
Pertama atur waktu telebih dulu, dengan tekan "SET", lalu jika sudah klik "OK",
dan tunggu sampai shutdown


Sekian tutorial kali ini, semoga bermanfaat