Cara Menciptakan Jadwal Vb Shutdown Otomatis

Shutdown yaitu sebuah proses untuk mematikan sebuah perangkat elektronik, menyerupai komputer, namun di sebuah situasi kita menginginkan komputer shutdown otomatis, misalnya saat kita mendownload sebuah file yang memakan waktu download (sebut saja) 4 jam, dan saat download selesai, maka komputer akan shutdown, dapat juga kita gunakan saat kita mendengarkan lagu menjelang tidur.

Untuk menciptakan kegiatan shutdown otomatis di visual basic sangatlah mudah, dengan toolbox utamanya yaitu timer, proses kerja kegiatan shutdown yang aku buat ini adalah, kita hanya menyesuaikan / setting kapan komputer akan di shutdown, dan akan bekerja / shutdown saat waktu yang sudah kita menetapkan sama dengan waktu sekarang, dan dilengkapi fitur tambahannya yaitu waktu kini dan status program, apakah menyala / tidak, sepakat berikut tutorialnya :

1. Pertama Buka VB dengan project standar EXE.
2. kemudian 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 menyerupai 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 saat kegiatan di jalankan, melainkan menghentikan program

5. Lalu jalankan kegiatan :

Cara kerja kegiatan :
Pertama atur waktu telebih dulu, dengan tekan "SET", kemudian jikalau sudah klik "OK",
dan tunggu hingga shutdown


Sekian tutorial kali ini, semoga bermanfaat