Cara Membuat Program VB Shutdown Otomatis


Shutdown adalah sebuah proses untuk mematikan sebuah perangkat elektronik, seperti komputer, namun di sebuah situasi kita menginginkan komputer shutdown otomatis, contohnya ketika kita mendownload sebuah file yang memakan waktu download (sebut saja) 4 jam, dan ketika download selesai, maka komputer akan shutdown, bisa juga kita gunakan ketika kita mendengarkan lagu menjelang tidur.

Untuk membuat program shutdown otomatis di visual basic sangatlah mudah, dengan toolbox utamanya adalah timer, proses kerja program shutdown yang saya buat ini adalah, kita hanya menyesuaikan / setting kapan komputer akan di shutdown, dan akan bekerja / shutdown ketika waktu yang sudah kita tetapkan sama dengan waktu sekarang, dan dilengkapi fitur tambahannya yaitu waktu sekarang dan status program, apakah menyala / tidak, baiklah berikut tutorialnya :

1. Pertama Buka VB dengan project standar EXE.
2. lalu tambahkan 3 label, 6 text box, 2 frame, 2 command button, dan 2 timer
3. Ubahlah property dari masing - masing toolbox :
Tool BoxPropertiesKeterangan
Form 1Start Up PositionsCenter Screen
Label 1CaptionSET TIME
Label 2(Kosong)
Label 3OFF
Text 1Text00
Text 200
Text 300
Command 1CaptionSET
Command 2ON
Timer 1Interval1
Timer 21
Frame 1CaptionTIME
Frame 2STATUS
untuk format huruf, menyesuaikan saja,
sehingga seperti ini :
4. Lalu tuliskan script berikut :

Private Sub Command1_Click()
If Command1.Caption = "SET" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Timer2.Enabled = False
Command1.Caption = "OK"
Command2.Visible = False
Label3.Caption = "OFF"

Else
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Timer2.Enabled = True
Command2.Visible = True
Command2.Caption = "OFF"
Command1.Caption = "SET"
Label3.Caption = "ON"
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "OFF" Then
Timer2.Enabled = False
Command2.Caption = "ON"
Label3.Caption = "OFF"
Else
Timer2.Enabled = True
Command2.Caption = "OFF"
Label3.Caption = "ON"
End If

End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
Text6 = Format(Time, "SS")
Text5 = Format(Time, "NN")
Text4 = Format(Time, "HH")
End Sub

Private Sub Timer2_Timer()
If Text1.Text = Text4 And Text2.Text = Text5 And Text3.Text = Text6 Then
Shell "shutdown -s -f -t 0"
End If
End Sub


Saran :
Jika anda sedang dalam masa percobaan, ganti script Shell "shutdown -s -f -t 0", menjadi END agar komputer anda tidak shutdown ketika program di jalankan, melainkan menghentikan program
5. Lalu jalankan program :

Cara kerja program :
Pertama atur waktu telebih dulu, dengan tekan "SET", lalu jika sudah klik "OK",
dan tunggu sampai shutdown


Sekian tutorial kali ini, semoga bermanfaat


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Cara Membuat Program VB Shutdown Otomatis"

Post a Comment