Escribir un programa orientado a objetos (II)

Esto es una continuación del artículo anterior sobre como Crear un primer programa orientado a objetos sencillo.

En este artículo aprenderemos a

§ Usar una clase en una aplicación.

§ Usar las herramientas de Microsoft Visual Studio .NET  para crear la definición de una clase

Uso la  clase CHospital en una aplicación

Como se ha dicho anteriormente una clase es una plantilla de un objeto. Por ejemplo un coche genérico es una clase, mientras que un coche concreto es un objeto (instancia de la clase).

Para poner los datos en los campos y propiedades, hay que crear una instancia de la clase en la memoria, esta acción se conoce como instanciación. Cuando se crea una instancia, se reserva una sección de memoria para mantener los campos del objeto. Si se crea otra instancia de la clase, se reserva otra sección de la memoria para sus campos.

Por ejemplo podemos tener n instancias de la clase coche y cada una de ellas representará un coche concreto con sus atributos particulares (propiedades) marca, modelo, color, etc.

Vamos a crear dos instancias de la clase CHospital en el proyecto Hospital, y se mostrarán los datos de cada hospital, así que tendrán que crearse dos instancias por separado  de la clase CHospital. En lugar de crear una interfaz elegante, se escribirá sólo el suficiente código para ver si la clase está trabajando como se esperaba.

  

Driver de Pruebas

La creación de un pequeño programa  para probar una clase se llama Driver. Es una buena idea  probar  la clase un poco con el Driver antes de agregarla a un programa más amplio. Se utiliza el Driver para probar la clase sin la interferencia del resto del código del programa.

Crear una instancia de CHospital

1. En el Explorador de soluciones, hacer doble clic en Form1 para abrirlo en el Windows
Diseñador de formularios. Si Form1 se abre en el editor de código, seleccionar Ver Diseñador.

Crear un entorno visual similar al mostrado a continuación

2. Agregar el siguiente código para el evento SelectedIndexChanged del combo superior

Private Sub CboHospitales_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboHospitales.SelectedIndexChanged

        Dim Hospital1_grupo As CHospital

        Hospital1_grupo = New CHospital()

End Sub

3. Agregar el código siguiente para establecer las propiedades  del hospital inmediatamente después del código introducido en el paso 2:

Hospital1_grupo.Telefono = "914567894"
Hospital1_grupo.Direccion = "Recoletos 23"

Hospital1_grupo.NumSalas  = 28

Cuando se crea la instancia de CHospital , sus campos contienen los valores especificados en la definición de clase. Los campos de dirección y teléfono son una cadena vacía, el número de salas es 0. Tener en cuenta que no hay diferencia en el código del cliente si se utiliza un campo o una propiedad.

4. Agregar el código siguiente  para crear otra instancia de la clase CHospital.

Dim Hospital2_grupo As CHospital = New CHospital()

Hospital2_grupo.Telefono = "912346578".
Hospital2_grupo.Direccion = "Bravo Murillo 324"
Hospital2_grupo.NumSalas = 12

En este caso, se utiliza una sintaxis diferente para declarar e inicializar una variable de la Clase CHospital. Visual Basic  permite la declaración y la inicialización en la misma declaración. La declaración e iniciación en la misma sentencia tiene las siguientes ventajas:

§  Los programadores tienen menos probabilidades de olvidarse de inicializar la  variable.
§  Cuando una clase define un constructor con parámetros, los campos se  pueden
inicializar al mismo tiempo.

Usar una instancia de la Clase CHospital

5. Agregar el código siguiente para mostrar algunos de los textos de los dos libros.

Dim Informe As String

Informe = "Hospital de " & Hospital1_grupo.Direccion & "Con Telefono" & Hospital1_grupo.Telefono & "Tiene" & Hospital1_grupo.NumSalas & "Salas"

MessageBox.Show(Informe)

Informe = "Hospital de " & Hospital2_grupo.Direccion & "Con Telefono" & Hospital2_grupo.Telefono & "Tiene" & Hospital2_grupo.NumSalas & "Salas"

MessageBox.Show(Informe)

En este fragmento de código se puede ver que hay dos instancias independientes de la clase  CHospital. Es posible hacer referencia a estas instancias utilizando las variables Hospital1_grupo  y Hospital2_grupo. El concepto orientado a objetos permite que cada instancia pueda ser referenciada por separado y se conoce como identidad. Esto no significa que haya que crear una variable para cada instancia. La creación de tantas variables es difícil de manejar si se necesitan cientos de instancias de una clase. Identidad significa que se puede hacer referencia a cada instancia por separado cuando sea necesario.

Al crear una instancia CHospital, los campos de Hospital1_grupo  han cambiado y se ha llamado al método AltaMedicoHos.

 Más tarde se ha  recuperado el valor de la propiedad Direccion. El valor de la dirección se ha mantenido sin cambios después de llamar al método AltaMedicoHos.  El hecho de que el valor se mantuviera sin cambios demuestra el concepto de estado de los objetos, la idea de que los campos  conservan su valores entre llamadas a métodos.

Se puede  comparar la forma en como funciona el método AltaMedicoHos, un método tiene   las declaraciones de las variables. Después de que el método AltaMedicoHos termina, las variables salen de ámbito y se pierden sus valores.

6. Presionamos F5 para ejecutar el código. Al hacer clic en el botón Mostrar página. Los resultados se muestran aquí:

Al hacer clic en Aceptar y, a los títulos de los libros se muestran en un cuadro de mensaje, como se muestra aquí:

Hacer clic en Aceptar y, a continuación, cerrar la aplicación.
Hemos creado una clase, CHospital, y dos instancias de la misma.

Cómo usar el visor de Clases

El entorno de programación permite obtener una vista del árbol de la estructura de clases del proyecto, los espacios de nombres y clases. La Vista de clases puede compartir la misma ventana que el Explorador de soluciones. En el menú Ver, hacer clic en Vista de clases para abrir la Vista de clases. La Vista de clases ampliado se muestra a continuación.

El nodo de más alto nivel representa el proyecto, Hospital. El siguiente nivel de nodos representa los espacios de nombres en el proyecto. Un proyecto puede contener varios espacios de nombres, en este caso, sólo hay uno. El espacio de nombres del proyecto consta de tres clases: la clase que hemos creado, CHospital, otra que crearemos posteriormente CPersona y la clase para el formulario Windows Forms, frmPrincipal. La clase CHospital contiene cuatro campos privados, representados por bloques de color azul con un candado. La clase también contiene las cuatro respectivas propiedades. Representadas por una mano sosteniendo un formulario. Además, la clase contiene un método, AltaMedicoHos con dos parámetros objeto que devuelven un booleano. El método está representado por un bloque de color púrpura.

Todas las clases en Visual Basic son implícitamente un objeto de una clase base

Añadir el método UbicarPaciente  a la clase CHospital

1. Añadir el siguiente código a la clase CHospital:

Esto crea un array de códigos de Sala para el hospital y su propiedad para acceder a él.

Private m_salas() As String

Public Property Sala(ByVal i As Integer) As Integer

        Get

            Return m_salas(i)

        End Get

        Set(ByVal value As Integer)

            m_salas(i) = value

        End Set

    End Property

Public Function UbicarPaciente(ByVal Nom_Paciente As CPersona, ByVal Cod_Sala As CHospital, ByVal i As Integer) As Boolean

        Dim Reg As RDO.rdoResultset

        Dim strSQL As String

        Reg = Nothing

        On Error GoTo Errores_UbicarPaciente

        strSQL = "INSERT INTO dbo.tbPacSal (strId_PAC,strID_SAL) VALUES (" & Nom_Paciente.Codigo & "," & Cod_Sala.Sala(i) & ")"

        glbBaseDatos.Execute(strSQL)

        Reg.Close()

        Return True

Errores_UbicarPaciente:

        Return False

 End Function

Crear el programa Hospital

Ahora es el momento de escribir el código y probar la aplicación completa.

Conectar a la base de datos el combo box para mostrar el campo strNombre de TbHospital

Resumen

Para

Crear una instancia de una clase

Inicializar la variable usando la palabra new

Dim Hospital1 as New CHospital()

Establecer una propiedad de la instancia

Dim Hospital1 as New CHospital()

Hospital1.Salas = 25

Llamar a un método de la clase.

Dim Hospital1 as New CHospital()

Dim Num_Sala As String

Num_Sala = Hospital1.Sala(3)