Privado - I

Un procedimiento con ámbito privado sólo puede ser llamado desde el propio módulo en el que se ha declarado. La palabra clave utilizada como modificador de ámbito en este caso es Private. Veamos un ejemplo en el Código fuente 161.

Module General

Public Sub Main()

' podemos ejecutar el procedimiento Totales()

' ya que tiene ámbito público

Totales(400)

Dim MiNumero As Integer

' error, la función ObtenerNumero tiene ámbito privado,

' dentro del módulo Calculos,

' por lo que no es accesible desde este módulo

MiNumero = ObtenerNumero()

Console.ReadLine()

End Sub

End Module

Module Calculos

Public Sub Totales(ByVal Importe As Integer)

Dim Resultado As Integer

Console.WriteLine("Estamos en el módulo Calculos, procedimiento Totales")

' podemos llamar desde aquí a la función ObtenerNumero

' ya que estamos en el mismo módulo

Resultado = Importe + ObtenerNumero()

Console.WriteLine("El total obtenido es: {0}", Resultado)

End Sub

Private Function ObtenerNumero() As Integer

Console.WriteLine("Estamos en el módulo Calculos," & _

" procedimiento ObtenerNumero")

Return 18

End Function

End Module

Código fuente 161