Timer Auto Shut Down PC

Membuat Aplikasi cantik Auto Shut Down PC Anda dengan mensetting waktu, akan mati secara Automatis sesuai dengan waktu yang anda inginkan. Saya menggunakan software Microsoft Visual Basic 2008 Express Edition. Aplikasi sederhana ini sangat berguna bagi para user komputer yang sering ketiduran di meja komputer karena terlalu lama di depan komputer, sehingga Anda lupa untuk mematikan PC. Ikuti Tips berikut ini:

Toolbox yang digunakan:

Perancangan/Design tampilan perhatikan Gambar di bawah ini:

Ketika Aplikasi ini berjalan Anda dapat menyeting waktu PC Anda akan mati nantinya. Lalu tekan Tombol Aktifkan Shut Down.

NotifyIcon dan ContextMenuStrip akan terlihat pada sudut kanan Icon program yang aktif.

Gambar Icon yang saya gunakan:

Hasil tampilannya pada display monitor Anda dengan mengarahkan kursor anda dengan menggerakan mouse Anda sebagai berikut:

dengan mengklik kanan pada icon akan muncul seperti gambar di bawah ini:

Source atau sintaks program sesuai dengan nama pada ToolBox yang saya berikan
diatas:

PublicClass Form1

PublicFunction Waktu_sekarang() AsInteger

Label3.Text = Format(TimeString)

EndFunction

PublicFunction Set_Waktu() AsInteger

Dim mati AsNew Shutdown

Dim Waktu AsString

Waktu = "" & DomainUpDown1.Text & ":" & DomainUpDown2.Text & ""

If Waktu = Mid(Label3.Text, 1, 5) Then

Beep()

Timer2.Enabled = False

mati.downPC()

EndIf

EndFunction

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Call Waktu_sekarang()

EndSub

PrivateSub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Call Set_Waktu()

EndSub

PrivateSub DomainUpDown1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DomainUpDown1.KeyPress

e.KeyChar = Chr(0)

EndSub

PrivateSub DomainUpDown2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs)

e.KeyChar = Chr(0)

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer2.Enabled = True

Me.Opacity = 0%

Me.ShowInTaskbar = False

EndSub

PrivateSub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

End

EndSub

PrivateSub ViewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewToolStripMenuItem.Click

Me.Opacity = 100%

Me.ShowInTaskbar = True

EndSub

PrivateSub DomainUpDown1_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainUpDown1.MouseDown

Dim j AsInteger

For j = 0 To 24

If j < 10 Then

DomainUpDown1.Items.Add("0" & j)

Else

DomainUpDown1.Items.Add(j)

EndIf

Next j

EndSub

PrivateSub DomainUpDown1_MouseUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainUpDown1.MouseUp

REM Mengkondisikan rentang jam DomainUpDown1 dalam satu hari

Dim j AsInteger

For j = 0 To 24

If j < 10 Then

DomainUpDown1.Items.Add("0" & j)

Else

DomainUpDown1.Items.Add(j)

EndIf

Next j

EndSub

PrivateSub DomainUpDown2_SelectedItemChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainUpDown2.SelectedItemChanged

REM Mengkondisikan rentang menit DomainUpDown2 dalam satu jam

Dim i AsInteger

For i = 0 To 60

If i < 10 Then

DomainUpDown2.Items.Add("0" & i)

Else

DomainUpDown2.Items.Add(i)

EndIf

Next i

EndSub

EndClass

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian