12.07.2015 Views

Práctica A: Crear una clase derivada - Willy .Net

Práctica A: Crear una clase derivada - Willy .Net

Práctica A: Crear una clase derivada - Willy .Net

SHOW MORE
SHOW LESS
  • No tags were found...

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Práctica A: <strong>Crear</strong> <strong>una</strong> <strong>clase</strong> <strong>derivada</strong>ObjetivosEn este laboratorio, aprenderá a crear <strong>una</strong> <strong>clase</strong> <strong>derivada</strong> con métodos.Nota Este laboratorio se centra en los conceptos de este módulo y, por ello,puede no cumplir las recomendaciones de seguridad de Microsoft.Requisitos previosArchivos de soluciónTiempo estimado paracompletar estelaboratorio:30 minutosAntes de iniciar este laboratorio, debe saber cómo:• <strong>Crear</strong> <strong>una</strong> <strong>clase</strong> en Visual Basic .NET.• Declarar miembros de datos y métodos en <strong>una</strong> <strong>clase</strong>.Los archivos de solución de este laboratorio se encuentran en la carpetaEx01\Solution dentro del fichero labs10.zip.


Agregar miembros de datos a la <strong>clase</strong> Clock1. Agregue un miembro de datos privados denominado displayTimeLabel detipo System.Windows.Forms.Label, como sigue:Private displayTimeLabel As Label2. Agregue un miembro de datos privados denominado getTimeButton de tipoSystem.Windows.Forms.Button, como sigue:Private WithEvents getTimeButton As ButtonNota La palabra clave WithEvents permite a <strong>una</strong> variable de objeto lanzareventos. Agregar un método a la <strong>clase</strong> Clock1. Agregue el siguiente método a la definición de <strong>clase</strong>.Nombre delmétodoTipoParámetrosInitialize Private Sub Ninguno2. Cree <strong>una</strong> instancia del tipo Label utilizando la palabra clave New. Sucódigo debería similar al siguiente:Private Sub Initialize( )Me.displayTimeLabel = New Label( )End Sub3. Escriba código para establecer las propiedades para displayTimeLabelcomo se muestra en la siguiente tabla.PropiedadBorderStyleValorLeft 104Top 56Height 30Width 130Su código debería ser como el siguiente:BorderStyle.Fixed3DMe.displayTimeLabel.BorderStyle = BorderStyle.Fixed3DMe.displayTimeLabel.Left = 104Me.displayTimeLabel.Top = 56Me.displayTimeLabel.Height = 30Me.displayTimeLabel.Width = 1304. Agregue displayTimeLabel a la colección de controles del formulario,como sigue:Me.Controls.Add(displayTimeLabel)5. Cree <strong>una</strong> instancia del tipo Button, como sigue:


5Me.getTimeButton = New Button( )6. Escriba código para establecer las propiedades de getTimeButton como semuestra en la siguiente tabla.PropiedadFlatStyleValorLeft 128Top 104TextSu código debería ser como el siguiente:FlatStyle.FlatDate TimeMe.getTimeButton.FlatStyle = FlatStyle.FlatMe.getTimeButton.Left = 128Me.getTimeButton.Top = 104Me.getTimeButton.Text = "Date Time"7. Agregue getTimeButton a la colección de controles del formulario, comosigue:Me.Controls.Add(getTimeButton)Su código completo para el método Initialize de la <strong>clase</strong> Clock debería sercomo el siguiente:Private Sub Initialize( )Me.displayTimeLabel = New Label( )Me.getTimeButton = New Button( )Me.displayTimeLabel.BorderStyle = BorderStyle.Fixed3DMe.displayTimeLabel.Left = 104Me.displayTimeLabel.Top = 56Me.displayTimeLabel.Height = 30Me.displayTimeLabel.Width = 130Me.Controls.Add(displayTimeLabel)Me.getTimeButton.FlatStyle = FlatStyle.FlatMe.getTimeButton.Left = 128Me.getTimeButton.Top = 104Me.getTimeButton.Text = "Date Time"Me.Controls.Add(getTimeButton)End Sub Agregar un constructor a la <strong>clase</strong> Clock1. Cree un constructor para la <strong>clase</strong> Clock, como sigue:Sub New( )End Sub2. En el constructor, agregue <strong>una</strong> llamada al constructor de <strong>clase</strong> base y almétodo Initialize, como sigue:


MyBase.New( )Initialize( ) Agregue código al evento Click de getTimeButton1. Cree un controlador de eventos para el evento Click de getTimeButton.2. Agregue código para mostrar la fecha y hora actuales en el controldisplayTimeLabel. Su código debería ser como el siguiente:Private Sub getTimeButton_Click (...)Me.displayTimeLabel.Text = Now( )End Sub Cambie el objeto de inicio• En el Explorador de soluciones, haga clic con el botón derecho en elproyecto SimpleWindowsApplication, y haga clic en Propiedades. En elcuadro Objeto inicial, cambie el objeto de inicio a Clock. Probar la aplicación1. Compile y ejecute la aplicación. Haga clic en el botón Date Time paramostrar la fecha y hora actuales.2. Cierre la aplicación.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!