Posted by : Unknown Senin, 28 Januari 2013

Pada kali ini, kita akan membahas bagaimana cara membuat aplikasi shutdown menggunakan visual basic 6.0.
Jika kita sering mengunakan komputer, kita sudah tidak asing lagi mendengar kata shutdown atau cara mematikan komputer. teman2 pasti akan mengetahui proses kerja saat kita mengklik tombol shutdown, restart dan log off pada sistem operasi Windows. 

bagi teman2 yg belum punya visual basic 6.0 download nih : klikdisini

Berikut ini adalah cara dan langkah-langkah dalam pembuatan aplikasi shutdown : 
- Buka Microsoft Visual Basic 6.0 
- Akan muncul jendela seperti dibawah :
[Image: New.png]

- Pilih standart Exe, kemudian klik tombol Open, maka akan muncul area kerja Visual Basic 6.0
[Image: desain.png]

- Dari gambar diatas, tambahkan 3 buah Command Button dari toolbox ke desain form
- Ubah juga nilai propertis pada masing-masing objek :
- Form1 : 
- Caption : Aplikasi Shutdown 
- MaxButton : False
- MinButton : False 
- BorderStyle : 1-FixedSingle
- Command1 :
- (Name) : Cmd_Shutdown
- Caption : Shutdown
- Command2 :
- (Name) : Cmd_Restart
- Caption : Restart
- Command3 :
- (Name) : Cmd_LogOff
- Caption : Log Off
- Jika Command button telah ditambahkan dan nilai properties dari masing-2 objek telah diatur, sekarang atur desain form seperti gambar dibawah :
[Image: desain+jadi.png]

- Jika form telah didesain seperti diatas, sekarang saatnya untuk penulisan listing code dengan cara menekan F7 atau mengklik 2x salah satu objek. kemudian ketikkan listing dibawah : 

Private Sub Cmd_Logoff_Click()
Call Shell("C:\Windows\System32\Shutdown.exe -l -t 00", vbHide)
End Sub
Private Sub Cmd_Restart_Click()
Call Shell("C:\Windows\System32\Shutdown.exe -r -t 00", vbHide)
End Sub
Private Sub Cmd_Shutdown_Click()
Call Shell("C:\Windows\System32\Shutdown.exe -s -t 00", vbHide)
End Sub 

Keterangan : 
-s = shutdown
-r = restart
-l = logoff
-t 00 = interval waktu antara penekanan tombol shutdown dengan pemanggilan perintah shutdown.exe


Sumber

Leave a Reply

Subscribe to Posts | Subscribe to Comments

Welcome to My Blog

Total Impressions

Banner 88x31

Uchiha Clan Denz Cyber4rt Gilang Cyber4rt Sat-cyber Iffat Blogger  photo Untitled-4_zpsd0ca4af0.jpg Link Exchange.

- Copyright © 2013 Twish Cyber4rt -Dark Amaterasu Template -