Membuat program SHUTDOWN OTOMATIS MENGGUNAKAN VB
2 posters
MYCC :: IT Corner :: Programming
Halaman 1 dari 1
Membuat program SHUTDOWN OTOMATIS MENGGUNAKAN VB
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
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
-
Jumlah posting : 1213
Birthday : 21.03.91
Age : 33
Nama Lengkap : |>@\/1|>
Lokasi : Mochi City
Hobi : Ngaso 24 Jam
Reputation Point : 2
Forum Point : 383
Registration date : 04.08.07
About You
Short Description:
Re: Membuat program SHUTDOWN OTOMATIS MENGGUNAKAN VB
Kalo buat Windows Vista bisa gak?
Dark Fiber- Moderator
-
Jumlah posting : 524
Birthday : 21.12.91
Age : 32
Nama Lengkap : Alfons Natanael
Lokasi : Latitude: -6.91; Longitude: 107.62
Hobi : Creative Thinking
Reputation Point : 0
Forum Point : 0
Registration date : 24.09.07
About You
Short Description:
Re: Membuat program SHUTDOWN OTOMATIS MENGGUNAKAN VB
Saya baru coba untu XP saja
Surabigaul™- WEBMASTER
-
Jumlah posting : 1213
Birthday : 21.03.91
Age : 33
Nama Lengkap : |>@\/1|>
Lokasi : Mochi City
Hobi : Ngaso 24 Jam
Reputation Point : 2
Forum Point : 383
Registration date : 04.08.07
About You
Short Description:
Similar topics
» Membuat SCREENSAVER MENGGUNAKAN VB
» MEMBUAT APLIKASI MULTIMEDIA MENGGUNKAN VB
» Kontes membuat draft website mycc
» Membuat e-mail dengan domain pribadi (FREE)
» A-E
» MEMBUAT APLIKASI MULTIMEDIA MENGGUNKAN VB
» Kontes membuat draft website mycc
» Membuat e-mail dengan domain pribadi (FREE)
» A-E
MYCC :: IT Corner :: Programming
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|