Berikut Toolbox yang diperlukan
1 buah timer
2 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 programnyaPrivate 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
Semoga bermanfaatBaca juga:
Simulasi Running Led dengan Visual Basic
Simulasi Lampu merah dengan Visual Basic
Kontrol Program dalam BASCOM AVR
Dasar Pemrograman Mikrokontroler dengan BASCOM AVR
Keyword: Belajar visual basic, visual basic, belajar VB, program VB, belajar program VB, aplikasi sederhana, aplikasi VB, aplikasi visual basic, belajar program, program shutdown, program shutdown otomatis, membuat program VB, membuat program shutdown otomatis, shutdown otomatis
Keren gan, lanjut terus....Kalau butuh video tutorial program lain datang ke sini ya gan: http://www.jualtutorialku.com/tutorial-programing
BalasHapusSemua video tutorialnya pakai bahasa Indonesia.