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