Module General
Public Sub Main()
' en esta llamada, se ejecutará el procedimiento Totales()
' que está en este mismo módulo
Totales(400)
' en esta llamada, como especificamos el nombre del módulo
' en primer lugar, se ejecuta el procedimiento Totales()
' que está en el módulo Calculos
Calculos.Totales(280)
Console.ReadLine()
End Sub
Public Sub Totales(ByVal Importe As Integer)
' en esta versión del procedimiento,
' multiplicamos el parámetro por un valor
Dim Resultado As Integer
Console.WriteLine("Estamos en el módulo General, procedimiento Totales")
Resultado = Importe * 4
Console.WriteLine("El total obtenido es: {0}", Resultado)
End Sub
End Module
Module Calculos
Public Sub Totales(ByVal Importe As Integer)
' en esta versión del procedimiento,
' sumamos un valor al parámetro
Dim Resultado As Integer
Console.WriteLine("Estamos en el módulo Calculos, procedimiento Totales")
Resultado = Importe + 1000
Console.WriteLine("El total obtenido es: {0}", Resultado)
End Sub
End Module
Código fuente 160
No hay comentarios:
Publicar un comentario