Membuat Program Shutdown Otomatis dengan Visual Basic

meninggalkan komputernya dalam keadaan menyala baik karena bosen menunggu proses download yang lama atau proses copy file maka salah satu solusinya adalah kita membuat jadwal shutdown otomatis dengan program shutdown otomatis dengan Visual basic

Berikut Toolbox yang diperlukan

1 buah timer
2 buah label penampil waktu (bisa juga menggunakan text)
2 buah text
2 buah option
2 buah command button

dan beberapa label untuk keterangan


Berikut gambar susunan toolbox pada form

  

design visual basic

Listing programnya

Private Sub Command1_Click()
jam = Text1.Text
menit = Text2.Text
If Option1 = True Then
x = "AM"
Else
x = "PM"
End If
waktu = jam + ":" + menit + ":" + "00" + x
MsgBox "Komputer Mati pada:" & waktu
Label7 = waktu
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Option1 = False
Option2 = False
Label7.Caption = ""
Command1.Enabled = False
Text1.SetFocus
End Sub

Private Sub Option1_Click()
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label6 = Time
If Label7.Caption = Label6.Caption Then
Call Shell("rundll32.exe user,exitwindows", vbHide)
End If
End Sub

Jalankan Program dan juga buat file aplikasinya biar bisa berjalan tanpa visual basic.  

visual basic shutdown yang telah jadi

semoga bermanfaat