Panduan Membuat Program Shutdown Komputer dengan Timer VB 6.0

Panduan Membuat Program Shutdown Komputer dengan Timer VB 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Panduan Membuat Program Shutdown Komputer dengan Timer VB 6.0.

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
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang ", " pada halaman dibawah ini.

0 Response to "Panduan Membuat Program Shutdown Komputer dengan Timer VB 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel