Question

este programa pretende calcular diferentes tipos de descuentos aplicados a una venta dependiendo del valor de esta si el valor de la venta es mayor que $500 se aplica el 30% de descuento sobre la venta sobre la venta si es mayor que $300 y menor oigual que $499 el descuento seria del 20% si la venta es mayor que $100 y menor o igual que $299 el descuento sera del 10% pero si la venta es menor o igual que $100 ni se aplica ningún descuento a la vez muestra el valor del descuento en porcentaje el descuento aplicado ala venta y la venta final con su descuento un buen y sencillo problema para aplicar en If

PSDT: LA PROGRAMACION ES EN VISUAL STUDIO DE WINDOW FORM

Answer 1

Hola.

Tarea:

este programa pretende calcular diferentes tipos de descuentos aplicados a una venta dependiendo del valor de esta si el valor de la venta es mayor que $500 se aplica el 30% de descuento sobre la venta sobre la venta si es mayor que $300 y menor o igual que $499 el descuento seria del 20% si la venta es mayor que $100 y menor o igual que $299 el descuento sera del 10% pero si la venta es menor o igual que $100 ni se aplica ningún descuento a la vez muestra el valor del descuento en porcentaje el descuento aplicado ala venta y la venta final con su descuento.

Explicación:

Se utilizo if anidados, es decir, uno dentro de otro.

Proceso:

descuento = venta * 0.30

descuento = venta * 0.20

descuento = venta * 0.10

descuento = 0

Variables:

• venta
• desc => descuento
• vfinal => venta final

Codigo en visual studio 2013

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

       Dim venta, desc, vfinal As Double

       'Ingreso de datos

       venta = Val(TextBox1.Text)

       'Proceso

       If (venta > 500) Then

           desc = venta * 0.3

           Label4.Text = "Descuento de 30%"

       Else

           If (venta > 300) Then

               desc = venta * 0.2

               Label4.Text = "Descuento de 20%"

           Else

               If (venta > 100) Then

                   desc = venta * 0.1

                   Label4.Text = "Descuento de 10%"

               Else

                   desc = 0

                   Label4.Text = "Sin Descuento"

               End If

           End If

       End If

       vfinal = venta - desc

       'Salida

       TextBox3.Text = desc

       TextBox2.Text = vfinal

   End Sub

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

       Me.Close()

   End Sub

End Class

* Adjunto imágenes y el archivo del ejercicio.

https://app.box.com/s/rt2dr61tclosn2u5z1yqvcn2ay45beoe

Saludos..