1.- Crear un método en el que dispongamos la posibilidad de calcular el coste de un artículo de forma que el cálculo se pueda realizar aplicando un descuento, sin descuento y con un recargo del diez por ciento, recibiendo siempre el precio y las unidades vendidas.
El código en la clase puede ser:
Public Class Ejercicios
Public Sub New()
End Sub
Public Function Importe(ByVal Cantidad As Integer, _
ByVal Precio As Double) As Double
Importe = Cantidad * Precio
End Function
Public Function Importe(ByVal Cantidad As Integer, _
ByVal Precio As Double, _
ByVal Descuento As Single) As Double
Precio = Precio - (Precio * Descuento / 100)
Importe = Cantidad * Precio
End Function
Public Function Importe(ByVal Cantidad As Integer, _
ByVal Precio As Double, _
ByVal Descuento As Single, _
ByVal Recargo As Single) As Double
Precio = Precio - (Precio * Descuento / 100)
Precio = Precio + (Precio * Recargo / 100)
Importe = Cantidad * Precio
End Function
End Class
El programa principal es :
Module Module1
Sub Main()
Dim Objeto As Ejercicios = New Ejercicios
Dim Precio As Double = 10.2
Dim Cantidad As Integer = 20
Dim Descuento As Single = 10
Dim Recargo As Single = 5
Console.WriteLine("El importe es de {0} ", _
Objeto.Importe(Cantidad, Precio))
Console.WriteLine("El importe con un descuento del {0} % es de {1} ", _
Descuento, Objeto.Importe(Cantidad, Precio, Descuento))
Console.WriteLine("El importe con un descuento del {0} % y un recargo del {1} % es de {2} ", _
Descuento, Recargo, Objeto.Importe(Cantidad, Precio, Descuento, Recargo))
Console.ReadLine()
End Sub
End Module
2.- Crear un método que permita calcular la nota de un alumno como
la media a partir de dos notas recibidas
la media ponderada a partir de dos notas recibidas y el número de horas dedicadas en cada una de dichas notas.
Public Class Ejercicios
Public Sub New()
End Sub
Public Function Nota(ByVal Nota_1 As Single, ByVal Nota_2 As Single) as single
Nota = (Nota_1 + Nota_2) / 2
End Function
Public Function Nota(ByVal Nota_1 As Single, ByVal Hora_1 As Integer, _
ByVal Nota_2 As Single, ByVal Hora_2 As Integer) as single
Nota = ((Nota_1 * Hora_1) + (Nota_2 * Hora_2)) / (Hora_1 + Hora_2)
End Function
End Class
El principal del programa
Module Module1
Sub Main()
Dim Objeto As Ejercicios = New Ejercicios
Console.WriteLine("la nota media es {0} ", Objeto.Nota(5, 5))
Console.WriteLine("la nota media ponderada es {0} ", Objeto.Nota(4, 90, 5, 40))
Console.ReadLine()
End Sub
End Module
3.- Crear un método que permita visualizar un texto en modo consola con o sin colores de fondo y de primer plano, Console.background y Console.Foreground
La clase podría ser:
Public Class Ejercicios
Private Sub Escribe(ByVal Texto As String, _
ByVal ColorTexto As ConsoleColor, _
ByVal ColorFondo As ConsoleColor)
Console.ForegroundColor = ColorTexto
Console.BackgroundColor = ColorFondo
Console.WriteLine(Texto)
End Sub
Public Sub EscribirTexto()
Escribe("hola", ConsoleColor.White, ConsoleColor.Black)
End Sub
Public Sub EscribirTexto(ByVal Texto As String)
Escribe(Texto, ConsoleColor.White, ConsoleColor.Black)
End Sub
Public Sub EscribirTexto(ByVal Texto As String, _
ByVal ColorTexto As ConsoleColor, _
ByVal ColorFondo As ConsoleColor)
Escribe(Texto, ColorTexto, ColorFondo)
End Sub
End Class
El programa principal.
Module Module1
Sub Main()
Dim Objeto As Ejemplos = New Ejercicios
Objeto.EscribirTexto()
Objeto.EscribirTexto("Texto ")
Objeto.EscribirTexto("Texto ", ConsoleColor.Blue, ConsoleColor.DarkBlue)
Console.ReadLine()
End Sub
End Module
© Antonio Arjona Cornejo. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies