Mensajes y métodos en Visual Basic (código)


Ccuenta

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

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s