sebelumnya saya sudah share tentang aplikasi alarm teks dan aplikasi alarm musik. sekarang saya akan share bagaimana cara membuat aplikasi alarm shutdown, restart dan log off.
cara kerja aplikasi ini seperti ini. saat kita menjalankan aplikasi ini, akan muncul waktu sekarang(waktu yang sama pada komputer anda). dan kita pilih action untuk menentukan aksinya apa, apakah mau di shutdown, restart atau log off. dan kita tinggal tentukan waktu eksekusi nya (jam, menit dan detiknya.
untuk design Aplikasinya seperti dibawah ini.
dan codinganya seperti dibawah ini.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mttime2.Enabled = True
btstart.Enabled = True
btubah.Enabled = False
cbpilih.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim hr As String = TimeOfDay.Hour
If hr.Length = 1 Then
hr = "0" + hr
End If
Dim mn As String = TimeOfDay.Minute
If mn.Length = 1 Then
mn = "0" + mn
End If
Dim sc As String = TimeOfDay.Second
If sc.Length = 1 Then
sc = "0" + sc
End If
mttime1.Text = hr + mn + sc
If mttime1.Text = mttime2.Text Then
If cbpilih.Text = "shutdown" Then
Shell("shutdown -s -f -t 00")
ElseIf cbpilih.Text = "restart" Then
Shell("shutdown -r -f -t 00")
ElseIf cbpilih.Text = "log off" Then
Shell("shutdown l")
End If
End If
End Sub
Private Sub cbpilih_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbpilih.SelectedIndexChanged
If cbpilih.Text = "shutdown" Then
lbeksekusi.Text = "shutdown" + ":"
ElseIf cbpilih.Text = "restart" Then
lbeksekusi.Text = "restart" + ":"
ElseIf cbpilih.Text = "log off" Then
lbeksekusi.Text = "log off" + ":"
End If
End Sub
Private Sub Btstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btstart.Click
mttime2.Enabled = False
btstart.Enabled = False
btubah.Enabled = True
cbpilih.Enabled = False
btclose.Enabled = False
If cbpilih.Text = "" Then
MsgBox("ANDA HARUS MEMILIH ACTION !!!!")
mttime2.Enabled = True
btstart.Enabled = True
btubah.Enabled = False
cbpilih.Enabled = True
btclose.Enabled = True
End If
End Sub
Private Sub btbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btubah.Click
mttime2.Enabled = True
btstart.Enabled = True
btubah.Enabled = False
cbpilih.Enabled = True
btclose.Enabled = True
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
Process.Start("http://www.dum17.blogspot.com")
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Process.Start("http://www.dum17.blogspot.com")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclose.Click
Me.Close()
End Sub
End Class
video tutorialnya belum bisa saya posting karena masih dalam proses pengerjaan. mungkin secepatnya akan saya share di postingan ini. jadi terus kunjungi blog saya agar dapat updatetan terbaru dari blog saya.
jika anda ingin mendownload source code alarm shutdown, restart dan log off silahkan klik link disini
saya teguh dumadi, semoga bermanfaat.
Post a Comment