Informática Educativa Carlosfmur@gmail.com: Mensajes y métodos en Visual Basic (código)

Mensajes y métodos en Visual Basic (código)
Un programa orientado a objetos se compone solamente de objetos. Cada uno de ellos es una entidad que tiene propiedades particulares, los atributos, y unas formas de operar sobre ellos, los métodos.
Un método se escribe en una clase de objetos y determina como tiene que actuar el objeto cuando recibe el mensaje el mensaje vinculado con ese método.
Una vez escritos los métodos y propiedades necesarios, tendremos creada la clase CCuenta que se guarda en un archivo que llamamos CCuenta.vb
Código:
Class CCuenta
‘ Atributos
Private _nombre As String
Private _cuenta As String
Private _saldo As Double
Private _tipoDeInteres As Double

‘ Métodos
Public Sub New()
End Sub

Public Sub New(ByVal nom As String, ByVal cue As String, _
                 ByVal sal As Double, ByVal tipo As Double)
    Nombre = nom
    Cuenta = cue
    ingreso(sal)
    TipoDeInteres = tipo
End Sub

Public Property Nombre() As String
    Get
      Return _nombre
    End Get
    Set(ByVal nom As String)
      If nom.Length = 0 Then
        System.Console.WriteLine(“Error: cadena vacía”)
      Else
        _nombre = nom
      End If
    End Set
End Property

Public Property Cuenta() As String
    Get
      Return _cuenta
    End Get
    Set(ByVal cue As String)
      If cue.Length = 0 Then
        System.Console.WriteLine(“Error: cuenta no válida”)
      Else
        _cuenta = cue
      End If
    End Set
End Property

Public ReadOnly Property Saldo() As Double
    Get
      Return _saldo
    End Get
End Property

Public Sub ingreso(ByVal cantidad As Double)
    If cantidad < 0 Then
      System.Console.WriteLine(“Error: cantidad negativa”)
    Else
      _saldo = _saldo + cantidad
    End If
End Sub

Public Sub reintegro(ByVal cantidad As Double)
    If _saldo – cantidad < 0 Then
      System.Console.WriteLine(“Error: no dispone de saldo”)
    Else
      _saldo = _saldo – cantidad
    End If
End Sub

Public Property TipoDeInteres() As Double
    Get
      Return _tipoDeInteres
    End Get
    Set(ByVal tipo As Double)
      If tipo < 0 Then
        System.Console.WriteLine(“Error: tipo no válido”)

            Else
                _tipoDeInteres = tipo
            End If
            System.Console.ReadKey()

    End Set
End Property
End Class
Class CCuenta
‘ Atributos
Private _nombre As String
Private _cuenta As String
Private _saldo As Double
Private _tipoDeInteres As Double

‘ Métodos
Public Sub New()
End Sub

Public Sub New(ByVal nom As String, ByVal cue As String, _
                 ByVal sal As Double, ByVal tipo As Double)
    Nombre = nom
    Cuenta = cue
    ingreso(sal)
    TipoDeInteres = tipo
End Sub

Public Property Nombre() As String
    Get
      Return _nombre
    End Get
    Set(ByVal nom As String)
      If nom.Length = 0 Then
        System.Console.WriteLine(“Error: cadena vacía”)
      Else
        _nombre = nom
      End If
    End Set
End Property

Public Property Cuenta() As String
    Get
      Return _cuenta
    End Get
    Set(ByVal cue As String)
      If cue.Length = 0 Then
        System.Console.WriteLine(“Error: cuenta no válida”)
      Else
        _cuenta = cue
      End If
    End Set
End Property

Public ReadOnly Property Saldo() As Double
    Get
      Return _saldo
    End Get
End Property

Public Sub ingreso(ByVal cantidad As Double)
    If cantidad < 0 Then
      System.Console.WriteLine(“Error: cantidad negativa”)
    Else
      _saldo = _saldo + cantidad
    End If
End Sub

Public Sub reintegro(ByVal cantidad As Double)
    If _saldo – cantidad < 0 Then
      System.Console.WriteLine(“Error: no dispone de saldo”)
    Else
      _saldo = _saldo – cantidad
    End If
End Sub

Public Property TipoDeInteres() As Double
    Get
      Return _tipoDeInteres
    End Get
    Set(ByVal tipo As Double)
      If tipo < 0 Then
        System.Console.WriteLine(“Error: tipo no válido”)

            Else
                _tipoDeInteres = tipo
            End If
            System.Console.ReadKey()

  End Set
End Property
End Class
………………………………………………………………………………………………………………………………………………………………………………………………………………………………
Para poder crear objetos de esta clase y trabajar con ellos, escribimos un programa que debe tener un módulo con un procedimiento Main, puesto que éste es el punto de entrada y de salida del programa.
Entonces tenemos un archivo fuente CCuenta.vb con la clase CCuenta Añadimos en la misma carpeta otro archivo fuente, Test.vb con un módulo standard o con una clase por ejemplo Test, que incluya el procedimiento Main.
……………………………………………………………………………………………………………………………………………………………………………………………………………………………
Código:
Public Class Test
Public Shared Sub Main()
    Dim cuenta01 As CCuenta = New CCuenta()
    Dim cuenta02 As CCuenta = New CCuenta(“Un nombre”, _
                                       “Una cuenta”, 6000, 3.5)
    cuenta01.Nombre = “Un nombre”
    cuenta01.Cuenta = “Una cuenta”
    cuenta01.TipoDeInteres = 2.5

    cuenta01.ingreso(6000)
    cuenta01.reintegro(3000)

    System.Console.WriteLine(cuenta01.Nombre)
    System.Console.WriteLine(cuenta01.Cuenta)
    System.Console.WriteLine(cuenta01.Saldo)
    System.Console.WriteLine(cuenta01.TipoDeInteres)
    System.Console.WriteLine()
    System.Console.WriteLine(cuenta02.Nombre)
    System.Console.WriteLine(cuenta02.Cuenta)
    System.Console.WriteLine(cuenta02.Saldo)
        System.Console.WriteLine(cuenta02.TipoDeInteres)
        System.Console.ReadKey()
    End Sub
End Class