' Programa y fuente 100% libre para su uso con licencia "Reconocimiento 4.0 Internacional". Web: https://creativecommons.org/licenses/by/4.0/ ' Muchos mas ejemplos en nuestra pagina buscanos en google como A.K.Freeman o AKF-GO ' Autor: A.K.Freeman Public Class Form1 'Evento al iniciar la ventana Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Try para evitar errores en la compilacion. Try 'Se activa el timer Hora.Enabled = True 'Se indica el icono Me.Icon = New System.Drawing.Icon(Application.StartupPath & "\clock.ico") 'Se asignan para notificon With NotifyIcon1 'Su icono .Icon = Me.Icon 'Se asigna el contextmenustrip .ContextMenuStrip = x 'Se asigna el nombre .Text = Application.ProductName 'Se indica si es visible .Visible = True End With 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#1'") End Try End Sub 'Eventto timer tick Private Sub Hora_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hora.Tick 'Try para evitar errores en la compilacion. Try 'Se asigna la hora cadA segundo. Toupper para poner en mayusculas Me.TxbHoraActual.Text = Date.Now.ToLongTimeString.ToUpper 'Si el txthoraapagado es igual a la hora actual capturada If Me.TxbHoraApagado.Text = Date.Now.AddHours(0).AddMinutes(0).ToShortTimeString.ToUpper Then 'Se desactiva el timer Hora.Enabled = False 'Se mostrara la ventana Me.Show() 'Se ejecuta el comandao cmd para apagar la pc Process.Start("shutdown.exe", " -s -t 0 -f") End If 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#2'") End Try End Sub 'Evento al hacer clic al button programar Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProgramar.Click 'Try para evitar errores en la compilacion. Try 'Se captura la hora que se apagara el equipo Me.TxbHoraApagado.Text = Date.Now.AddHours(Me.NumericUpDown1.Value).AddMinutes(Me.NumericUpDown2.Value).ToShortTimeString.ToUpper 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#1'") End Try End Sub 'Evento al hacer clic en notificon Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick 'Try para evitar errores en la compilacion. Try 'Se mostrara el formulario Me.Show() 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#3'") End Try End Sub 'Evento al hacer clic en el boton ocultar y se encontrara el icono para volverlo a abrir en el area de notificacion de iconos junto a la hora del equipo Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOcultar.Click 'Try para evitar errores en la compilacion. Try 'Se ocultara el formulario Me.Hide() 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#4'") End Try End Sub 'Evento al hacer clic en cancelar apagado que esta en el contextpmenustrip Private Sub CancelarApagadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelarApagadoToolStripMenuItem.Click 'Try para evitar errores en la compilacion. Try 'Se cerrara el formulario Me.Close() 'Catch de haber algo malo en el codigo saltara el mensaje. Catch ex As Exception 'Mensaje que aparecera al encontrar un error. MsgBox("Error codigo '#5'") End Try End Sub End Class
No hay comentarios:
Publicar un comentario