UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA UNAD

VISUAL BASIC AVANZADO

INTEGRANTES:

JONATHAN ORTEGA RUIZ_1115069054

GRUPO:
405021A_220

Actividad 2 – Unidad 1

MARZO DE 2015
Objetivo
Retomar los conceptos asimilados en el curso Visual Basic Básico, y aplicarlos a los ejercicios propuestos, mostrando los pasos a seguidos desde el planteamiento del problema hasta la resolución del mismo.

Ejercicios

1. Transformar el algoritmo que se indica a continuación, relativo a cálculo de necesidades de combustible, en un programa de Visual .net
[Inicio]
[Definición de Vehículos]
Turismos = 32
TodoTerrenos = 11
[Fin de definición de vehículos]
[Definición de capacidad de vehículos]
Capturismos = 40
Captodot = 65 …ver más…

Menores de 3 (tres) años, abonan sólo el 30% del valor base, y
Menores de 5 (cinco) años, abonan el 60% del valor base.

El equipaje permitido para cada pasajero (mayor de 5 años) son 2 (dos) valijas de 12 kg. Cada una, en caso de excederse de la cantidad de valijas se abonará un recargo de 15 U$S por cada una adicional. Si se sobrepasara en el peso estipulado como tope, el adicional es de 2,50 U$S por cada kg. Excedido.

Se pide calcular para cada boleto, el precio final a abonar. Finalizada la jornada, se deberá mostrar:

a) Cantidad de pasajes vendidos en cada una de las categorías (PRIMERA, TURISTA y AZUL),
b) Cantidad de pasajes con exceso en cantidad de valijas y/o en peso.
c) Total general vendido en U$S.
d) Total recaudado por excesos.

SOLUCIONES

1.
Panificación:
Para resolver el problema declaramos las siguientes variables

Dim turi, tterre, capturi, captterre, calcombus As Integer

Diseño:

Colocamos 4 campos para capturar el valor de cada variable

Codificación:

En el evento del botón de resultado, asignamos los valores ingresados en los campos a cada variable

turi = Numtur.Text tterre = NumTTerrenos.Text capturi = CapacidadTuri.Text captterre = CapacidadTodoTerrenos.Text

y aplicamos la formula para