Calcular Edad

Bueno en esta Quinta entrega les traigo una pequeña aplicación, que nos sirve para calcular, la edad, los días vividos y las horas vividas, para este proyecto agreguemos a nuestro form1 los siguientes objetos:

·         4 label

·         4 textBox

·         2 Button   =  Calcular y Salir

                                                 Imagen1  

                                                               

La fecha de nacimiento tiene el formato siguiente:     12/04/1990

Codificación:

En el botón calcular damos doble clic e introducimos el código siguiente:

Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click

        Dim fnac As Date = Convert.ToDateTime(TextBox1.Text())

        Dim Edad As Int32

        Dim Diferencia As TimeSpan

        Diferencia = Today.Subtract(fnac)

        Edad = Fix(Diferencia.TotalDays / 365.25)

        TextBox2.Text() = Diferencia.TotalDays.ToString

        TextBox3.Text() = Diferencia.TotalHours.ToString

        TextBox4.Text() = Edad.ToString

En el textBox1 damos doble clic ye introducimos el codigo siguiente:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        If IsDate(TextBox1.Text) Then

            BtnCalcular.Enabled = True

        Else

            BtnCalcular.Enabled = False

        End If

    End Sub

End Class

En el Boton Salir damos doble clic e introducimos el codigo siguiente.

Dim r As Int32

        r = MessageBox.Show("Esta seguro de salir", "salir", _

        MessageBoxButtons.YesNo, MessageBoxIcon.Question, _

        MessageBoxDefaultButton.Button1)

        If r = Windows.Forms.DialogResult.Yes Then

            Application.Exit()

        Else

            TextBox1.Clear()

            TextBox2.Clear()

            TextBox3.Clear()

            TextBox4.Clear()

            TextBox1.Focus()

        End If

    End Sub

Bueno ya pueden saber cuantos años tienen, cuantos dias y horas han vivido y espero en la proxima entrega calcular los dias que les falta por vivir?..Los espero en la proxima entrega que va a estar un poco mas dificil,muchas gracias y dejen sus comentarios por favor.

Cambio de Imagen

   

Bueno en esta cuarta entrega les traigo una pequeña aplicación, que interactúa 2 imágenes en tiempo de ejecución, para este proyecto agreguemos a nuestro form1 los siguientes objetos:

·         2 picturebox

·         1 timer

En el primer picturebox colocamos una imagen cualquiera y le cambiamos su propiedad sizeMode a  StretchImage, en el segundo picturebox hacemos lo mismo, pero cambiando de imagen

Al timer le cambiamos la propiedad Enabled  a True  e interval  a 2000

Imagen 1

                    

Codificación

En timer hacemos doble Clic e introducimos el código siguiente como se muestra a continuación:

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

        PictureBox2.Visible = Not PictureBox2.Visible

End Sub

End Class

Corremos nuestro proyecto con  F5 y verán los resultados, bueno eso es todo espero les guste esta aplicación nos vemos en la próxima entrega, dejen sus comentarios por favor



Calcular el iva

Bueno esta es mi tercera entrada, esta vez les traigo un programa que les sirve para calcular el IVA de un producto, los pasos para hacer este programa son los siguientes:

1. Abrimos nuestro visual Basic 2008

2. Ponemos como nombre Calcular IVA

3. En nuestro form1 ponemos los controles siguientes:

<      6 Label

<      2 TextBox

<      3 Button

A los Controles le cambiamos los nombres en la propiedad Name y text  así:

                                                                       Label

Name	Text
Label 1	Nombre del Cliente
Label 2	Monto de la Factura
Label 3	Importe
Label 5	IGV (16%)
Label 6   =        LblImporte	En Blanco
Label 7   =         lblIgv	En Blanco

                                                                          Figura # 1     

                                           

                                             

                                                                         TextBox

Name	Text
TxtCliente	En Blanco
TxtMonto	En Blanco

                                                                          Button

Name	Text
Button1 = btncalcular	calcular
Button 2 = btnNuevo	Nuevo
Button3 = btncerrar	Cerrar

4. Ahora viene la codificación de los Button

5. En el Button1 o Calcular damos doble clic e ingresamos el siguiente código:

Dim monto, importe, igv As Double

        monto = Double.Parse(TxtMonto.Text)

        igv = monto * 0.16

        importe = monto - igv

        lblImporte.Text = importe.ToString("###,##0.00")

        lblIgv.Text = igv.ToString("###,##0.00")

6.En el Button2 o Nuevo ingresamos el codigo siguiente:

TxtCliente.Text = ""

        TxtMonto.Text = ""

        lblImporte.Text = ""

        lblIgv.Text = ""

        TxtCliente.Focus()

7. En el Button3 o Cerrar ingresamos el codigo siguiente:

End

                     Figura 2

Public Class Form1

    Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click

        Dim monto, importe, igv As Double

        monto = Double.Parse(TxtMonto.Text)

        igv = monto * 0.16

        importe = monto - igv

        lblImporte.Text = importe.ToString("###,##0.00")

        lblIgv.Text = igv.ToString("###,##0.00")

    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click

        TxtCliente.Text = ""

        TxtMonto.Text = ""

        lblImporte.Text = ""

        lblIgv.Text = ""

        TxtCliente.Focus()

    End Sub

    Private Sub btncerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncerrar.Click

        End

    End Sub

End Class

Bueno aquí termina esta entrega espero les haya gustado,cualquier inquietud no duden en informarme

Calculadora Sencilla

Bueno en esta ocasión les traigo una calculadora sencilla, espero sea de su agrado. Los pasos para hacer este proyecto son los siguientes:

1. creamos un proyecto nuevo en Visual Basic

2. Le ponemos por nombre Calculadora

3. En el Form1 colocamos lo siguiente:

• 1  GroupBox
• 4  Radio Button
• 3 Label
• 3 textBox
• 3 Button

A los controles se le cambian los nombres en la propiedad text así:

                                             Radio Button    

Name	Text
OpSuma	Suma
OpResta	Resta
OpMultiplicar	Multiplicar
OpDividir	División

                                                  Label

Name	Text
Label 1	Primer Numero
Label 2	Segundo Numero
Label 3	Tercer Numero

                                                     TextBox                                                                   

Name	Text
Text 1	Se deja en Blanco
Text 2	Se deja en Blanco
Text 3	Se deja en Blanco

                                         Button   

                      

Name	Text
Button 1	Calcular
Button 2	Limpiar
Button 3	Salir

Figura # 1

4. Comenzamos a codificar cada Button:

Button 1=  Calcular

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

        If opcsumar.Checked Then

            Txt3.Text = Val(Txt1.Text) + Val(Txt2.Text)

        ElseIf opcrestar.Checked Then

            Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)

        ElseIf opcmultiplicar.Checked Then

            Txt3.Text = Val(Txt1.Text) - Val(Txt2.Text)

        ElseIf opcdividir.CheckAlign Then

            Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text)

        End If

    End Sub

Button 2 = Limpiar

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Txt1.Text = " "

        Txt2.Text = " "

        Txt3.Text = " "

    End Sub

Button 3 = Salir

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

Figura # 2

Public Class Form1

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

        If opcsumar.Checked Then

            Txt3.Text = Val(Txt1.Text) + Val(Txt2.Text)

        ElseIf opcrestar.Checked Then

            Txt3.Text = Val(Txt1.Text) * Val(Txt2.Text)

        ElseIf opcmultiplicar.Checked Then

            Txt3.Text = Val(Txt1.Text) - Val(Txt2.Text)

        ElseIf opcdividir.CheckAlign Then

            Txt3.Text = Val(Txt1.Text) / Val(Txt2.Text)

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Txt1.Text = " "

        Txt2.Text = " "

        Txt3.Text = " "

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

5. Listo ejecutamos nuestro programa con F5, bueno eso es todo espero traerles muy pronto mi tercera entrada, cualquier duda  o comentario con mucho gusto les responderé muchas gracias.