Hola a todos, hoy os dejo una serie de ejercicios propuestos y resueltos en Visual Basic .NET.
Todos los ejercicios que proponemos están resueltos en este mismo post, intenta hacerlo por ti mismo y si te quedas atascado puedes mirar la solución.Recuerda, que no tiene por que estar igual tu solución con la del post, el objetivo es que aprendas no que me copies la solución.
Crea un proyecto de consola por ejercicio.
Estos ejercicios han sido creado con Visual Studio 2013.
Colocare en las soluciones algunos comentarios para que sean más fácilmente entendible.
Te recomiendo que uses mensajes de trazas, donde te sean necesarios. Si tienes problemas también puedes usar el depurador.
Recuerda que al ser ejercicios hechos en consola, pon al final esta línea: Console.readLine() para que veas el resultado.
Aquí os dejo el curso de Visual Basic .NET:
Si tienes alguna duda, recuerda que puedes consultarnos escribiendo un comentario en este post o enviándonos un e-mail a administrador@discoduroderoer.es
1) Crea un saludador, donde pidas un nombre. Crea un subproceso que tenga como parámetro este nombre dado, este subproceso muestra por consola ¡Hola
Sub Main()
Console.WriteLine(«Escribe un nombre»)
Dim nombre As String = Console.ReadLine
‘Invoco el subproceso
saludador(nombre)
Console.ReadLine()
End Sub
Sub saludador(nombre As String)
‘Mostramos el mensaje
Console.WriteLine(«¡Hola » & nombre & «!»)
End Sub
End Module
[/vbnet]
2) Crea un programa que calcule el IVA de un producto. El valor de este producto se pasará por teclado y nos mostrará el valor final. El IVA es el 21 %. Por ejemplo, si introducimos 100 como valor de producto, el IVA es 21 y el valor final es 121 euros.
Crea una función que devuelva el valor del IVA del producto, pasando como parámetros, el IVA (valor entero, no decimal) y el valor del producto que hemos pedido al principio.
Sub Main()
Const VALOR_IVA As Integer = 21
Console.WriteLine(«Escribe el valor de un producto»)
Dim producto As Double = Console.ReadLine
‘Invoco la funcion
‘El valor final es el producto mas su IVA
Dim valor_final = producto + IVA(VALOR_IVA, producto)
Console.WriteLine(«El valor final del producto es » & valor_final & » euros»)
Console.ReadLine()
End Sub
Function IVA(valor_IVA As Integer, valorProducto As Double) As Double
Return (valor_IVA / 100) * valorProducto
End Function
End Module[/vbnet]
3) Genera 10 números aleatorios entre 1 y 10 y muestralos por consola. Aquí esta la función para generar números aleatorios.
[vbnet] Function numAleatorioEntre(ByVal minimo As Integer, ByVal maximo As Integer) As IntegerRandomize()
Return CLng((minimo – maximo) * Rnd() + maximo)
End Function
[/vbnet]
Sub Main()
For i As Integer = 0 To 9
‘Genera un numero entre 1 y 10
Console.WriteLine(«Número generado: » & numAleatorioEntre(1, 10))
Next
Console.ReadLine()
End Sub
Function numAleatorioEntre(ByVal minimo As Integer, ByVal maximo As Integer) As Integer
Randomize()
Return CLng((minimo – maximo) * Rnd() + maximo)
End Function
End Module
[/vbnet]
4) Crea un programa que calcule el área de un triángulo. Haz un subproceso que calcule esa área y la muestre por consola.
El área de un tringulo es base x altura.
Pide por teclado la base y la altura.
Sub Main()
Console.WriteLine(«Escribe una base»)
Dim base As Double = Console.ReadLine
Console.WriteLine(«Escribe una altura»)
Dim altura As Double = Console.ReadLine
areaTriangulo(base, altura)
Console.ReadLine()
End Sub
Sub areaTriangulo(base As Double, altura As Double)
Dim area As Double = base * altura
Console.WriteLine(«El área del triángulo es » & area & » metros cuadrados»)
End Sub
End Module
[/vbnet]
5) Crea una función que calcule el factorial de un número. Pide un número por teclado.
Para calcular el factorial, se multiplica los números anteriores hasta llegar a uno. Por ejemplo, si introducimos un 5, realizara esta operación 5*4*3*2*1=120.
Sub Main()
Console.WriteLine(«Escribe un número»)
Dim numero As Integer = Console.ReadLine
Console.WriteLine(«El factorial de » & numero & » es » & factorial(numero))
Console.ReadLine()
End Sub
Function factorial(ByVal numero As Integer) As Integer
Dim producto = numero
For i = numero – 1 To 1 Step -1
producto *= i
Next
Return producto
End Function
End Module[/vbnet]
6) Realiza una función que nos indica si un número es múltiplo de otro. Pedimos los dos números por teclado.
Esta función debe devolver un Booleano, donde true significa que si es multiplo y false que no lo es.
Según este valor, que muestre por consola si es multiplo o no.
Sub Main()
Console.WriteLine(«Escribe el primer número»)
Dim numero1 As Integer = Console.ReadLine
Console.WriteLine(«Escribe el segundo número»)
Dim numero2 As Integer = Console.ReadLine
Dim multiplo As Boolean = esMultiploDe(numero1, numero2)
If multiplo Then
Console.WriteLine(«El número » & numero1 & » es multiplo de » & numero2)
Else
Console.WriteLine(«El número » & numero1 & » no es multiplo de » & numero2)
End If
Console.ReadLine()
End Sub
Function esMultiploDe(ByVal num As Integer, ByVal multiplo As Integer) As Boolean
Dim esMultiplo As Boolean = False
If num Mod multiplo = 0 Then
esMultiplo = True
End If
Return esMultiplo
End Function
End Module
[/vbnet]
Espero que os sea de ayuda. Si tenéis dudas, preguntad, estamos para ayudarte.
mostrar la conversion de 1 hasta 10 dolares en soles , suponiendo que el tipo de cambio es 3.50
Ayuda, necesito desde consola comparar dos archivos y según el resultado enviar una notificación a un par de correos.
Me podrían ayudar con esto, algún ejemplo que pueda usar como referencia,
Gracias,
Germán
Como puedo hacer en modo de consola de visual basic para calcular la moda de un conjunto de 25 datos.
Puedes hacerlo recorriendo los datos y por cada uno DISTINTO que encuentres lo metes en un array y recorres de nuevo el conjunto (doble bucle) y guardas en otro array la cuenta de esas cuentas