shutdown otomatis

kadang-kadang kita lupa mematikan komputer disaat mengerjakan sesuatu yang lain atau dipanggil oleh teman kita, untuk itu saya memberikan tips bagaimana supaya komputer kita mati pada waktu yang telah di tentukan. Buatlah project baru dengan tambahkan objek-objek seperti 6 label, 2 command button,1 timer, 2 option button, 2 textbox, kemudian copy paste kode dibawah ini :

Dim jam
Dim menit
Dim y
Dim waktu

Private Sub Command1_Click()
jam = Text1.Text
menit = Text2.Text
If Option1 = True Then
y = “AM”
ElseIf Option2 = True Then
y = “PM”
End If
waktu = jam + “:” + menit + “:00″ + y
MsgBox “Shutdown pada pukul:” & waktu
Label6 = waktu
End Sub

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

Private Sub Form_Load()
Command1.Enabled = False
End Sub

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

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

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


Surabigaul™
WEBMASTER
WEBMASTER

Male Aries Goat
Jumlah posting: 1213
Birthday: 21.03.91
Age: 19
Nama Lengkap: |>@\/1|>
Lokasi: Mochi City
Hobi: Ngaso 24 Jam
Forum Point: 383
Reputation Point: 2
Registration date: 04.08.07

Free Template Blogger collection template Hot Deals SEO