Rabu, 28 Maret 2012 - 0 komentar

PC Auto Shutdown

Ilustrasi Proses Otomatis


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
FormMatiOtomatisBSO – Mati Otomatis
Label1Komputer Anda akan mati secara otomatis. Simpan pekerjaan Anda atau klik "Batal" untuk membatalkan.
ProgressBar1-
Panel1-
TombolMatiMatikan Sekarang
TombolBatalBatal
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.

Kata kunci: visual basic, .NET, auto shutdown, otomatis, automatic
Perihal: PC Auto Shutdown
Peringkat: 4.5 - Diulas oleh: Semar Bingung

Sumber: http://eltelu.blogspot.com/2011/10/pc-auto-shutdown.html#ixzz1qNdHwONu
Diposting oleh Unknown di 10.54

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)