Program Timer Komputer Windows

Dalam tutorial kali ini kita akan membuat sebuah program timer shutdown komputer, sebelumnya saya sudah memberikan tutorial cara mematikan komputer dengan vb 6.0, jika belum dibaca dahulu biar agak nyambung, hehe.

Mungkin sudah banyak program2 sejenis ini di internet, namun tak ada salahnya bila kita belajar membuat program ini sendiri, program ini berguna sebagai timer, agar ketika kita akan ketiduran ataupun lupa mematikan komputer hal itu bisa dicegah dengan timer windows ini.

Persyaratan :

1.       Hanya digunakan untuk OS Microsoft Windows 95 – 7

2.       Menggunakan IDE Compiler Microsoft Visual Basic 6.0

3.       Berdoa dahulu sebelum mulai J hehehe

Oke langsung saja, dibuka Microsoft VB 6.0 , start >> AllPrograms >> Microsoft Visual Basic 6.0

Tambahkan 1 buah Form sebagai berikut :

Komponen - komponennya :

Waktu : Label1 , Text1

Detik Berjalan : Label2

Pilihan Detik, Menit , Jam : Combo1

Pilihan Shutdown , Restart : Combo2

Matikan : Command1

Batal : Command2

Timer1

Catatan  : Agar ketika dijalankan program berada pada sudut kanan atas maka pada properti form1 nya sesuaikan sebagai berikut :

Left   = 14505 atau diatas itu

Border Style  = 0 – None  ‘ agar form bersifat flat , tombol min, max dan close hilang

Lalu Ketikkan Coding / Lisitng dibawah ini :

Private Sub Command1_Click()

On Error Resume Next

If Text1.Text = "" Then

MsgBox ("Masukkan Angka")

Text1.SetFocus

Else

Label2.Caption = Text1.Text

If Combo1.Text = "Menit" Then

Label2.Caption = CDbl(Label2.Caption) * 60

ElseIf Combo1.Text = "Jam" Then

Label2.Caption = CDbl(Label2.Caption) * 3600

End If

Text1.Locked = True

Combo1.Locked = True

Combo2.Locked = True

Command1.Enabled = False

Timer1.Enabled = True

End If

On Error GoTo 0

End Sub

Private Sub Command2_Click()

p = MsgBox("Batalkan dan Keluar??", vbCritical + vbOKCancel, "Pesan!")

If p = vbOK Then

Unload Me

Else

MsgBox "Tak Jadi Hehe"

End If

End Sub

Private Sub Form_Activate()

Text1.SetFocus

Combo1.Text = Combo1.List(1)

Combo2.Text = Combo2.List(0)

End Sub

Private Sub Form_Load()

Combo1.AddItem "Detik"

Combo1.AddItem "Menit"

Combo1.AddItem "Jam"

Combo2.AddItem "Shutdown"

Combo2.AddItem "Restart"

a = MsgBox("<Timer shutdown> < Modified By Ramandita Yudia A.K.A Mangiel >", vbOKOnly, "Ramandita Yudia")

If a = vbOK Then

Form1.Visible = True

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = 13 Or KeyAscii = vbKeyBack) Then

    KeyAscii = 0

    End If

    If KeyAscii = 13 Then

    Text1.SetFocus

    End If

End Sub

Private Sub Timer1_Timer()

If Label2.Caption <= 0 Then

    Timer1.Enabled = False

    If Combo2.ListIndex = 0 Then

    Shell "Shutdown.exe -s -f -t 00"

    ElseIf Combo2.ListIndex = 1 Then

    Shell "Shutdown.exe -r -f -t 00"

    End If

Else

Label2.Caption = Label2.Caption - 1

End If

End Sub

Untuk Source Program Lengkap diatas silahkan klik disini

Posted in: Tutorial VB 6.0