VENTA DE PRODUCTOS Y TOTAL A PAGAR EN VISUAL BASIC

1.- Debes de ingresar el nombre de un producto, el precio y la cantidad.

2.- Al presionar el botón calcular, deberá de mostrar el nombre del producto ingresado, el importe de compra, el IGV y el total a pagar.


Posible solución

Primero debemos de darle un nombre a cada herramienta.


Botón nuevo 
Limpia las cajas de texto.

    Private Sub btnnuevo_Click(sender As Object, e As EventArgs) Handles btnnuevo.Click
        txtproducto.Text = ""
        txtprecio.Text = ""
        txtcantidad.Text = ""
        txtresulproducto.Text = ""
        txtimporte.Text = ""
        txtigv.Text = ""
        txttotal.Text = ""
    End Sub

Botón salir
Cierra el formulario.

    Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
        Close()
    End Sub

Botón calcular
Creamos variables para cada dato, nombre del producto, cantidad, precio, importe, IGV y el total. 
Para conseguir el importe base se multiplica el precio por la cantidad.
Para el IGV se multiplica el importe obtenido por 0.18 (18%).
El total sería la suma del importe e IGV.
Los nuevos datos obtenidos lo pasamos a las cajas de resultado.

    Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click
        Dim nomproducto As String
        Dim cant As Integer
        Dim pre, importe, igv, total As Double
        nomproducto = txtproducto.Text
        pre = CDbl(txtprecio.Text)
        cant = CInt(txtcantidad.Text)
        importe = pre * cant
        igv = importe * 0.18
        total = importe + igv

        txtresulproducto.Text = nomproducto
        txtimporte.Text = FormatNumber(importe, 2)
        txtigv.Text = FormatNumber(igv, 2)
        txttotal.Text = FormatNumber(total, 2)
    End Sub

FormatNumber es para que muestre el resultado con 2 decimales.

Resultado



  • Visual Studio 2019


  • Nombre          : EjercicioVB1.rar
  • Tamaño          : 55 KB




Fecha:
Etiquetas: , ,