Istirahat sambil dengerin musik orgen di komputer memang asyik banget, tapi gimana kalo kita sampe ketiduran ??… kacian kan komputer kita nyanyi sendirian… tagihan listrik juga bisa membengkak…kan mubazir tuh…Nah…salah satu solusinya kita dapat menggunakan Timer shutdown,Emank banyak software-sofware seperti ini, tapi kan lebih asyik lagi kalo kita bisa buat sendiri…,,Berikut adalah cara membuat Timer shutdown sederhana dengan menggunakan Visual Basic 6.0,,,Program berikut sangat sederhana, sehingga mudah di ikuti oleh pemula…Siapkan komponen berikut :
- 2 buah label
- Textbox
- 2 buah command button
- 2 buah combobox
- Timer
Ubah properties masing-masing komponenen menurut tabel berikut :
|
| Properties |
| Form1 | Caption = Matiin Windows
Max button = False
Border style = None
Back Color = &H00808080&
Left = 16005
Top = 60 |
| Label1 | Caption = WaktuBackStyle = Transparent |
| Label2 | Caption = DetikBackStyle = Transparent |
| Text1 | Caption = (di kosongkan)MaxLength = 7 |
| Command1 | Caption = Matiin |
| Command2 | Caption = Batalkan |
| Combo1 | List = Detik; Menit; Jam |
| Combo2 | List = Shutdown; Restart; LogOff |
| Frame1 | Caption = (di kosongkan)Back Color = &H00404040& |
| Timer | Inteval = 1000Enabled = False |
Untuk Menuliskan List pada Combo1 dan Combo2, Cari list pada properties combo1 dan combo2 lalu ketikkan seperti tabel di atas isinya, tekan ctrl + enter untuk menulis pada baris berikutnya
Untuk properties Form1 > ‘left’ dan ‘Top’, berfungsi untuk mengatur posisi program pd saat di jalankan. Kalo posisinya tidak tepat anda bisa mengaturnya sesuai dgn resolusi komputer anda dengan mengurangi atau menambahkan nilai dari Left atw Top….karena kita ingin menghasilkan tampilan program pada posisi pojok atas desktop seperti gmb. berikut…..
Lalu atur semua komponen seperti gambar berikut atau sesuai keinginan anda
Setelah itu kita masuk pada tahap penulisan kode program.
Double klik pada form1 lalu isikan kode berikut : Private Sub Form_Load()
a = MsgBox("
")
If a = vbOK Then
Form1.Visible = True
End If
End SubPrivate Sub Form_activate()
Text1.SetFocus
Combo2.Text = Combo2.List(0)
Combo1.Text = Combo1.List(1)
End Sub
Double klik pada Command1 lalu isikan kode berikut :Private Sub Command1_Click()
If Text1.Text < 0
Then MsgBox ("Inputan Salah...!!")
ElseIf Text1.Text = ""
Then MsgBox ("Masukan Angka")
ElseLabel2.Caption = Text1.Text
If Combo1.Text = "Menit"
Then Label2.Caption = Label2.Caption * 60
ElseIf Combo1.Text = "Jam"
Then Label2.Caption = Label2.Caption * 3600
End IfText1.Locked =
TrueCombo1.Locked =
TrueCombo2.Locked =
TrueCommand1.Enabled =
FalseTimer1.Enabled =
True End ifEnd Sub Kemudian double klik pada command2 ketikkan kode berikut :Private Sub Command2_Click()
a = MsgBox("Batalkan..!", vbOKCancel)
If a = vbOK
Then Unload Me
End If
End Sub Terakhir, double klik pada timer lalu ketikkan kode berikut: Private Sub Timer1_Timer()
If Label2.Caption <= 0
Then Timer1.Enabled =
False If Combo2.Text = "Shutdown"
Then Shell "Shutdown.exe -s -f -t 00"
ElseIf Combo2.Text = "Restart"
Then Shell "Shutdown.exe -r -f -t 00"
ElseIf Combo2.Text = "LogOff"
Then Shell "Shutdown.exe -l -f -t 00"
End If
Else Label2.Caption = Label2.Caption - 1
End If
End SubSelesai deh….pendek aja khan programnya….
Selamat mencoba………..
untuk Live Demo nya bisa di Download disini :
Download