Alarma en Visual Basic 2005 .NET

Hola a todos, les traigo un nuevo programita, este consiste en una Alarma, la cual como siempre, hemos programado en VB.net 2005.

Ahora les mostraré como quedó la Alarma, la interfaz no es muy chula pero es funcional :D:

Este sería el diseño del Form Principal:

En el cual podemos ver 3 TextBox y un botón con el que estableceremos la alarma con la hora que indiqueamos.

Luego tenemos el diseño de un Form de Mensajes este form luce así:

El cual podemos ver que nada mas tiene un Label sin texto y un boton que nos servirá para apagar la Alarma una vez cumpla su funcion.

Hasta aquí hemos visto el diseño principal de nuestra Alarma, ahora vamos a ver como luce cuando se ejecuta.

Primero que nada el Form Principal se vería así:

Aquí es donde configuramos nuestra alarma y pensemos que le ponemos la hora: 15:02:15, y luego dar click en el botón "Activar Alarma" nos muestra el siguiente Mensaje indicandonos que la alarma ya esta Establecida:

El Mensaje se cerrará en 3 segundos y luego veremos el Form principal de esta manera:

Con esto ya tenemos activa nuestra alarma y si le damos clic al botón "Cambiar Hora" nos volvería a mostrar el mismo formato que al principio para que volvieramos a establecer la Alarma.

Al llegar a la hora indicada nos despliega el siguiente mensaje:

Nota: ahora dice las 14:12:20 ya que cuando tomé la primera captura era mas temprano y cuando tomé esta ultima era una hora mas tarde :D...

Además de mostrar el mensaje comenzará a hacer un sonido de alarma hasta que nosotros le presionemos el botón de "Apagar Alarma" y luego de igual manera nos volverá a mostrar el formulario de inicio para que nosotros volvamos a cambiar la hora y poner la Alarma.

Y con esto hemos finalizalizado la explicación de nuestra pequeña Alarma, pero no sin antes dejarles como es mi costumbre el codigo del ejemplo.

Lo pueden descargar de este lugar: Dame clic para Descargar El Ejemplo

Y ya saben si tienen dudas, comentarios o sugerencias de que quisieran que hiciera los pueden dejar acá abajo se los contestaré a la brevedad posible, y hasta la proxima :D

Pasar Datos de un Form a Otro

Hola a todos, les saludo nuevamente luego de un largo retiro, les traigo un ejemplo de como "Pasar datos de un Form a otro Form", de una manera sencilla.

Esta práctica les ayudará para cuando necesiten pasar datos entre formularios, en este caso pasaremos del Form1 al Form2.

El Form1 solo tendrá un textbox y un botón el cual enviará el contenido del textbox al Form2

TextBox:
(Name): txtNombre

Button:
(Name): btnEnviar
Text: Enviar

En cuando al Form2 tendremos nada mas un Label donde se mostrará lo escrito en el txtNombre del Form1.

Label:
(Name): lblNombre

Ahora vamos a ver el codigo que necesitamos:
Al evento click del botón llamado btnEnviar le escribiremos el siguiente codigo:
    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Using objForm2 As New Form2
            objForm2.lblNombre.Text = Me.txtNombre.Text
            objForm2.ShowDialog()
        End Using
    End Sub


Y con esto tendriamos la función de Enviar el contenido del textbox del Form1 al Form2 como se muestra en las siguientes imagenes:

Y luego de dar clic en el botón Enviar tendriamos el siguiente resultado en el Form 2:

Con esto hemos finalizado el ejemplo de como Pasar Datos de un Form a Otro en VB.net, pero como siempre les dejo el codigo del ejemplo para que lo puedan probar:
Descargar Ejemplo: Pasar Datos de un Form a Otro

Sin mas que agregar me despido y nos vemos hasta la proxima!!! 

Evitar División por Cero

Hola espero que tengan un buen día, y bueno pidiendo disculpas por el retraso de mi tercer entrega que la verdad quizá llega un poco tarde porque ya hay como 20 nuevas versiones de Visual Basic pero bueno igual habrá uno que otro interesado en aprender un poco del viejo VB 2005.

Y bien pasando a lo importante esta ves traigo algo que quizá falto un poco a la anterior calculadora que es algo importantisimo y es la "División por cero" cosa que ya de por si nos da una "excepción" y para los que no saben que es esto pues les diré que es un error que nos salta cuando utilizamos el programa que estamos haciendo y peor cuando alguna otra persona lo esta utilizando, podríamos decir que es algo grave ya que si no la controlamos pues llega a cerrar el programa y como programadores hace que quedemos mal parados ante cualquier persona.

Esta ves no haré el manejo de excepciones propiamente hablando que se hace con el Try y Catch sino que esta ves a manera de ejemplo lo manejare simplemente con un If y un Else estructura muy conocida y muy pero muy utilizada en la programación para toma de decisiones en los programas, y ya para no aburrirlos voy a lo importante la explicación del código:

Primero veamos la estructura del IF

IF <> then         // En este espacio ponemos la condicion que queremos validar
        //en este espacio iría el código que queremos ejecutar si se cumple la condición
else                                      // Esta palabra significa "sino" osea caso contrario
        //en este espacio iría el código que queremos ejecutar si no se cumple la condición
End if                                   // Esto significa que la condición finalizo



Y bien este seria el código que he utilizado para el ejemplo:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Val(TextBox2.Text) = 0 Then
            TextBox3.Text = "Error, Division por cero"
        Else
            TextBox3.Text = TextBox1.Text / TextBox2.Text

        End If

    End Sub


Y pueden notar que con esto ya control que no vaya a dar un error que haria que se derrumbe nuestro pequeño programa.

Y bueno aquí dejo el ejemplo para los que les gusta descargarlo y ver directamente como funciona:
Ejemplo:

Esto era todo espero les sirva y hagan lo posible por practicar lo mas posible; tratare de venir con mas entregas lo mas pronto posible, quizá en esta semana traiga varias mas ya que estoy de vacaciones y espero aprovecharlas. Saludos....


PD.: Los links de los otros ejemplos fueron reparados y ya se pueden descargar sin problemas...