TALLER #2
Facilitador(a): Ing. Antoine J. Villarreal O. Asignatura: Programación de Computadoras I
Estudiantes: _Eymi Guerra_______________ Fecha: ____5/5/2024___ Grupo: 1II707
Diseñe una interfaz gráfica y codifique un programa en Visual Basic .NET que resuelva
cada uno de los siguientes enunciados. Elabore una ventana principal en la que cada
botón llame a la ventana de cada problema:
1. Diseñe un programa que permita conocer la superficie de un terreno
cuadrado, si se le pide al usuario que le proporcione la longitud del lado del
terreno.
'Declaracion de variable'
Dim b As Decimal = Lado.Text 'Dato del lado del terreno'
Dim a As Decimal 'Valor a calcular'
'Calculando mediante la formula...
a=b*b
MsgBox(" La superficie del terreno es de " & a & " metros cuadrados ",
vbInformation)
2. Se desea saber cuál es la aceleración media de un coche. Elabore un
programa que calcule dicha aceleración, ingresando las velocidades inicial
y final, así como el tiempo transcurrido, por teclado.
'Declaracion de variable'
Dim vo As Decimal = V1.Text 'Valor velocidad inical'
Dim vf As Decimal = V2.Text 'Valor velocidad final'
Dim t As Decimal = Time.Text 'Valor del tiempo'
Dim a As Decimal 'Valor a calcular'
'Calculando mediante la formula...
a = (vf * 1000 / 3600 - vo * 1000 / 3600) / t
MsgBox("La aceleracion media es " & FormatNumber(a, 2) & " m/s^2 ",
vbInformation)
3. Una persona desea su índice de masa corporal (IMC). Diseñe un programa
en el cual dicha persona debe proporcionar su peso en kg, y su altura en m.
'Declaracion de variable'
Dim p As Integer = Peso.Text 'Valor del peso'
Dim h As Decimal = Alt.Text 'Valor de la altura'
Dim IMC As Decimal 'Valor a calcular'
'Calculando mediante la formula...
IMC = p / (h) ^ 2
MsgBox("El indice de masa corporal es " & FormatNumber(IMC, 2) & "
Kg/m^2 ", vbInformation)
4. Se quiere fabricar un reloj. Por medio de unrograma, el usuario debe
proporcionar por teclado la superficie, y el programa debe calcular la
medida que debe tener el minutero, si este corresponde al radio del reloj.
'Declaracion de variable'
Dim s As Decimal = Super.Text 'Valor del area del reloj'
Dim r As Decimal
'Calculando mediante la formula...
r = Math.Sqrt(s / Math.PI)
MsgBox("La longitud de la manecilla es " & FormatNumber(r, 2) & " metros ",
vbInformation)
5. Se desea un programa que le indique a una persona cuántos euros va a
obtener si va con una determinada cantidad de dólares al banco. El
programa debe solicitar la cantidad de dólares a cambiar.
'Declaracion de variable'
Dim D As Integer = Dolar.Text 'cantidad de dolares'
Dim Eu As Integer
'Calculando mediante la formula...
Eu = 0.94 * D
MsgBox("Se obtendran " & Eu & " euros ", vbInformation)
6. Se desea saber a través de un programa cuántos días lleva viva una
persona a partir de su edad, la cual debe ser introducida por teclado.
'Declaracion de variable'
Dim ed As Integer = Edad.Text 'Edad de la persona'
Dim d As Decimal
'Calculando mediante la formula...
d = ed * 365
MsgBox("La persona tiene " & d & " dias de vida", vbInformation)
7. Se desea elaborar un programa que calcule el rendimiento de un vehículo,
dados los datos de kilómetros recorridos y combustible utilizado (en L).
'Declaracion de variable'
Dim d As Integer = dis.Text 'Dato de la distancia'
Dim c As Integer = Com.Text 'Dato del combustible'
Dim r As Decimal 'Dato a calcular'
'Calculando mediante la formula...
r=d/c
MsgBox("El rendimiento del motor es de " & FormatNumber(r, 2) & " km/gal",
vbInformation)
8. Se desea elaborar una programa que ejecute descuentos del 30% a
diferentes productos. El usuario debe señalar el precio original del producto.
'Declaracion de variable'
Dim po As Integer = Poriginal.Text 'Valor del precio original'
Dim descuento As Decimal = Desc.Text 'Valor del descuento a aplicar'
Dim pfinal As Decimal 'Valor a calcular'
'Calculando mediante la formula...
pfinal = po - po * (descuento / 100)
MsgBox("El precio final es de " & pfinal & "$", vbInformation)
9. Se desea elaborar un programa que pueda convertir cualquier lectura de
temperatura efectuada en °C a °F.
'Declaracion de variable'
Dim c As Integer = grados.Text 'Valor de los grados °c'
Dim f As Decimal 'Valor de °F a calcular'
'Calculando mediante la formula...
f = (c * 1.8) + 32
MsgBox("Su equivalente es " & f & " °F")
10. A través de un programa, calcule la masa necesaria para mover un objeto
con una fuerza variable (introducida por teclado) a una aceleración de 15,2
m/s2.
'Declaracion de variable'
Dim f As Integer = Fuerza.Text 'Valor de la fuerza'
Dim a As Integer = Ace.Text 'Valor de la aceleracion'
Dim m As Decimal 'Valor de masa a calcular
'Calculando mediante la formula...
m=f/a
MsgBox("Se necesita una masa de " & m & "kg para mover el objeto", vbInformation)
