Membuat auto shutdown

Posted: April 8, 2013 in Uncategorized

 


Berikut Toolbox yang diperlukan
1 buah timer2 buah label penampil waktu (bisa juga menggunakan text)
2 buah text

2 buah option
2 buah command button

dan beberapa label untuk keterangan


Berikut gambar susunan toolbox pada form

 

Gambar Bentuk Form

Listing programnya

Private Sub Command1_Click()
jam = Text1.Text
menit = Text2.Text
If Option1 = True Then
x = “AM”
Else
x = “PM”
End If
waktu = jam + “:” + menit + “:” + “00” + x
MsgBox “Komputer Mati pada:” & waktu
Label7 = waktu
End Sub

Private Sub Command2_Click()
Text1 = “”
Text2 = “”
Option1 = False
Option2 = False
Label7.Caption = “”
Command1.Enabled = False
Text1.SetFocus
End Sub

Private Sub Option1_Click()
Command1.Enabled = True
End Sub

Private Sub Option2_Click()
Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label6 = Time
If Label7.Caption = Label6.Caption Then
Call Shell(“rundll32.exe user,exitwindows”, vbHide)
End If
End Sub

Jalankan Program dan juga buat file aplikasinya biar bisa berjalan tanpa visual basic.

 Gambar Program yang telah dijalankan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s