PC Auto Shutdown

Berikut ini adalah contoh program sederhana yang dibuat dengan menggunakan bahasa pemrograman Visual Basic .NET, yang berfungsi untuk mematikan komputer secara otomatis sesuai dengan konfigurasi waktu yang telah ditentukan. Dimana untuk membuat program ini diperlukan beberapa komponen, yaitu: sebuah Form, Label, ProgressBar, Panel, dan dua buah Button dengan rincian sebagai berikut:

Nama	Teks
FormMatiOtomatis	BSO – Mati Otomatis
Label1	Komputer Anda akan mati secara otomatis. Simpan pekerjaan Anda atau klik "Batal" untuk membatalkan.
ProgressBar1	-
Panel1	-
TombolMati	Matikan Sekarang
TombolBatal	Batal

Langkah-langkah pembuatannya adalah sebagai berikut:

1. Buka Visual Basic
2. Buatlah sebuah form kemudian ganti nama form menjadi “FormOtomatisMati” dengan teks “BSO – Mati Otomatis”
3. Tambahkan sebuah label dengan nama “Label1” dan teks “Komputer Anda akan mati secara otomatis. Simpan pekerjaan Anda atau klik "Batal" untuk membatalkan.”
4. Tambahkan sebuah ProgressBar dengan nama “ProgressBar1”
5. Tambahkan sebuah panel dengan nama “Panel1”
6. Tambahkan dua buah tombol (Button) dengan nama “TombolMati” dan “TombolBatal”.

Sehingga Terbentuklah sebuah form dengan tampilan seperti berikut ini:

Selanjutnya dalam form tersebut isikan kode di bawah ini:

Public Class FormMatiOtomatis
Private Sub ShutdownDialog_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WaktuTenggang.Interval = 1000
AddHandler WaktuTenggang.Tick, AddressOf JalankanProgressBar
WaktuTenggang.Start()
End Sub

Private Sub JalankanProgressBar(ByVal sender As Object, ByVal e As EventArgs)
On Error Resume Next
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
WaktuTenggang.Stop()
Shell(“shutdown /s /f /t 0″)
Me.Close()
End If
End Sub

Private Sub TombolMati_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TombolMati.Click
On Error Resume Next
WaktuTenggang.Stop()
Shell(“shutdown /s /f /t 0″)
Me.Close()
End Sub

Private Sub TombolBatal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TombolBatal.Click
WaktuTenggang.Stop()
Me.Close()
End Sub
End Class

Nah, sekarang Anda tinggal menjalankan program tersebut dengan menekan tombol F5.