Tutorial Menciptakan Aktivitas Shutdown Otomatis Dengan Vb

Diposkan oleh fezarzone April 20, 2007 Post a Comment

Membuat Program shutdown otomatis dengan menggunakan visual basic ini sungguh sangat mudah, dan aktivitas shutdown otomatis inipun sangat membantu bagi anda yang sering meninggalkan komputer dalam keadaan hidup contohnya alasannya ialah menunggu download sesuatu dari internet yang belum selesai. Prosedur dalam pembuatan aktivitas ini sama menyerupai postingan sebelumnya yang membahas wacana membuat kakulator dengan visual basic, membuat aktivitas pemutar musik dengan vb, membuat jam alarm dengan vb, membuat animasi dengan vb, membuat aplikasi acak angka dengan vb, maupun membuat aktivitas aplikasi-aplikasi matematika dengan VB.

Berikut langkah-langkah pembuatan aktivitas shutdown otomatis dengan visual basic 6.0 :

1. Bukalah aplikasi visual basic yang telah terinstall di PC anda, kemudian menyerupai biasa buat new project dengan standar.exe.

2. Kemudian tambahkan 2 buah frame, 10 label, 3 buah textbox, 3 CommandButton, dan sebuah timer pada form.

3. Lalu desainlah menjadi menyerupai gambar dibawah ini :

Membuat Program shutdown otomatis dengan menggunakan visual basic ini sungguh sangat gampang TUTORIAL MEMBUAT PROGRAM SHUTDOWN OTOMATIS DENGAN VB

Gambar Pengaturan peletakan kontrol-kontrol pada Form VB

4. Aturlah properties kontrol-kontrol sesuai gambar diatas dan isikan interval 1000 pada timer.

5. Bukalah jendela kode, kemudian ketikkan arahan / script / listing aktivitas menyerupai di bawah ini :

Dim jam, menit, detik, waktu_shutdown

Private Sub Command1_Click()

jam = Text1.Text

menit = Text2.Text

detik = Text3.Text

waktu_shutdown = jam + ":" + menit + ":" + detik

MsgBox "PC Akan Mati Pukul : " & waktu_shutdown

TimeDown = waktu_shutdown

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

TimeDown = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Timer1_Timer()

TimeNow.Caption = Time

If TimeDown.Caption = TimeNow.Caption Then

Call Shell("rundll32.exe user,exitwindows", vbHide)

End If

End Sub

6. Setelah anda yakin semuanya benar kini save dan jalankan (run) program, masukkan waktu yang diinginkan untuk menshutdown komputer anda, maka risikonya akan tampak menyerupai gambar dibawah ini.