Panduan Membuat Program Shutdown Komputer dengan Timer VB 6.0

Pada kesempatan ini Mycoding.net berbagi artikel tentang yang berjudul .

Pada Tips & Trik VB 6.0 kali ini akan dibahas mengenai Cara Membuat Aplikasi Shutdown Komputer Otomatis Dengan Timer

Berikut langkahnya :
Buka Aplikasi VB 6.0 anda
Buatlah Design form seperti gambar dibawah ini
Cara membuat Shutdown Komputer Otomatis Timer VB  6.0
Form1 diatas terdapat :
Option1
Option2
Option3
Combo1
Combo2
Combo3
Command1
Command2
Command3
Label1
Timer1

Kemudian masukan koding dibawah ini :
Option Explicit
Dim c As String
Dim h, m, s As Integer
Private Sub KondisiAwal()
Label1.Caption = "Waktu belum di Setting..."
Frame1.Enabled = True
Frame2.Enabled = True
Option1.Value = False
Option2.Value = False
Option3.Value = False
Command1.Enabled = True
Command2.Enabled = False
Combo1.Clear
Combo2.Clear
Combo3.Clear
For h = 0 To 59
Combo1.AddItem h
Combo2.AddItem h
Combo3.AddItem h
Next h
Timer1.Enabled = False
Me.Caption = "TIME OUT - www.BelajarVB.com"
End Sub

Private Sub Command2_Click()
If MsgBox("yakin dibatalkan ?", vbYesNo, "Informasi Untuk Anda") = vbYes Then
Call KondisiAwal
End If
End Sub

Private Sub Command1_Click()

If (Combo1.Text <> "" And Combo2.Text <> "" And Combo3.Text <> "") And (Option1.Value Or Option2.Value Or Option3.Value) Then
If Option1.Value Then
c = "LOG OFF"
ElseIf Option2.Value Then
c = "RESTART"
Else
c = "SHUT DOWN"
End If
Timer1.Enabled = Not Timer1.Enabled
h = Val(Combo1.Text)
m = Val(Combo2.Text)
s = Val(Combo3.Text)

Command1.Enabled = False
Command2.Enabled = True
Frame1.Enabled = False
Frame2.Enabled = False
Else
MsgBox "Pastikan Pilihan - Jam, Menit dan Detik Terisi.", vbExclamation, "Informasi Untuk Anda"
End If
End Sub

Private Sub Command3_Click()
If Command2.Enabled = True Then
MsgBox "Silahkan tekan Tombol BATALKAN Terlebih Dahulu", vbInformation, "Informasi Untuk Anda"
Else
End
End If
End If
End Sub

Private Sub Form_Load()
Call KondisiAwal
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Yakin Akan Keluar ?", vbYesNo, "Informasi Untuk Anda") <> vbYes Then
Cancel = 1
Me.WindowState = 1
End If
End Sub
Private Sub Timer1_Timer()
Label1.Caption = "Komputer ini akan " & c & " Otomatis setelah : " & Format(h, "00:") & Format(m, "00:") & Format(s, "00")
Me.Caption = Right(Label1.Caption, 8) + "  www.BelajarVB.com"
If h = 0 And m = 0 And s = 0 Then
If c = "LOG OFF" Then
Shell "shutdown -l"
ElseIf c = "RESTART" Then
Shell "shutdown -s -t 00"
Else
Shell "shutdown -s -t 00"
End If
End
End If
If s = 0 Then
If m = 0 And h <> 0 Then
h = h - 1
m = 60
End If
m = m - 1
s = 60
End If
s = s - 1
End Sub

Kemudian Jalankan aplikasi anda
Jika ada kesulitan atau pertanyaan dalam membuat Aplikasi diatas anda bisa komentar dibawah


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Kategori artikel yang terkait dengan Source Code VB6

Source Code VB6, Visual Basic 6.0, Source Code Program VB6, Download Source Code VB6
Untuk mendapat notifikasi artikel terbaru, masukkan e-mail anda disini :
Selanjutnya cek e-mail untuk verifikasi.
Kincai Coding Panduan Belajar Database dan Tutorial Pemrograman Terlengkap di Indonesia. Dapatkan Kumpulan Source Code Program Aplikasi dan Ebook Secara Gratis. Ikuti kami di Facebook, Instagram & Sosial Media Lainnya.