Ejercicios resueltos VB 6.0: Precio por llanta

Escriba un programa para calcular el total que una persona debe pagar en una llantera, si el precio de cada llanta es de $70 si se compran menos de 5 llantas y de $60 si se compran 5 o mas.

Para este programa crear 2 textboxes con los nombres txtCantidad y txtPrecio y 1 boton con el nombre cmdCalcular y copiar y pegar el codigo de abajo.

Dim precio As Integer
Private Sub cmdCalcular_Click()

If txtCantidad = "" Or txtPrecio = "" Then
MsgBox "Por favor escriba una cantidad", vbExclamation, "Error"
Else


If txtCantidad < 5 Then

precio = 70

txtPrecio = precio * txtCantidad

ElseIf txtCantidad >= 5 Then

precio = 60

txtPrecio = precio * txtCantidad

End If

End If

End Sub

Photo: new york city by under-milkwood

Read more

Ejercicios resueltos en C#: Precio de pasaje de ferrocarril

"Determinar el precio de un pasaje de ida y vuelta en ferrocarril, conociendo la distancia a recorrer y el número de días de estancia en el destino. Si este es mayor que 7 y la distancia superior a 800km, el pasaje tiene una reducción del 30%. El precio por km es $0.80."

Como realizar este ejercicio en C#?

1ro. Crear un formulario con tres textboxes, el que contendra La distancia recorrer se llamara txtdistancia, el de los dias de estancia txtdiasestancia y el que contendra lel precio del pasaje txtprecio_pasaje.

2do. El botón "Calcular" hará el trabajo, por lo que este es el codigo que hará que el mismo funcione:

    try

            {

                double distancia, dias_estancia, precioxkm, precio_pasaje;

                distancia = Convert.ToInt16(txtdistancia.Text);

                dias_estancia = Convert.ToInt16(txtdiasestancia.Text);

                precioxkm = 0.80;

                if (dias_estancia > 7 && distancia > 800)

                {

                    precio_pasaje = precioxkm * distancia - (precioxkm * distancia * 0.30);

                    txtprecio_pasaje.Text = "$" + precio_pasaje.ToString();

                }

                else

                {

                    precio_pasaje = precioxkm * distancia;

                    txtprecio_pasaje.Text = "$" + precio_pasaje.ToString();

                }

            }

            catch (Exception msg)

            {

                MessageBox.Show(msg.Message);

            }

          

3ro. Adicionalmente el botón "Limpiar":

            txtdiasestancia.Clear();

            txtdistancia.Clear();

            txtprecio_pasaje.Clear();

          

Read more