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.
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
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
§ 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)
