18.01.2013 Views

Programación en Visual Basic 2008

Programación en Visual Basic 2008

Programación en Visual Basic 2008

SHOW MORE
SHOW LESS

Create successful ePaper yourself

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

ReadOnly Property Age() As String<br />

Get<br />

Age = My.Computer.Clock.LocalTime.Year - birthYearValue<br />

End Get<br />

End Property<br />

En el m<strong>en</strong>ú Archivo, elija Guardar todo para guardar el trabajo.<br />

Agregar métodos a una clase<br />

En esta lección, apr<strong>en</strong>derá a agregar métodos a una clase para que pueda<br />

realizar acciones.<br />

En una lección anterior, Información detallada: compr<strong>en</strong>der propiedades,<br />

métodos y ev<strong>en</strong>tos, apr<strong>en</strong>dió que la mayoría de los objetos ti<strong>en</strong>e acciones que<br />

puede realizar; estas acciones se conoc<strong>en</strong> como métodos. La clase Persons<br />

que creó <strong>en</strong> la lección Modelar un objeto <strong>en</strong> una situación real: crear la primera<br />

clase repres<strong>en</strong>ta a una persona. Hay muchas acciones que pued<strong>en</strong> realizar las<br />

personas y para la clase Persons, esas acciones se pued<strong>en</strong> expresar como<br />

métodos de clase.<br />

Métodos de una clase<br />

Los métodos de una clase son simplem<strong>en</strong>te procedimi<strong>en</strong>tos Sub o Function<br />

declarados d<strong>en</strong>tro de la clase. Por ejemplo, una clase Account puede t<strong>en</strong>er un<br />

procedimi<strong>en</strong>to Sub d<strong>en</strong>ominado Recalculate, que actualizará el balance o<br />

un procedimi<strong>en</strong>to Function d<strong>en</strong>ominado Curr<strong>en</strong>tBalance para devolver el<br />

último balance. El código para declarar esos métodos puede ser similar al<br />

sigui<strong>en</strong>te.<br />

<strong>Visual</strong> <strong>Basic</strong> Express Copiar código<br />

Public Sub Recalculate()<br />

' add code to recalculate the account.<br />

End Sub<br />

Public Function Curr<strong>en</strong>tBalance(ByVal AccountNumber As Integer) As Double<br />

' add code to return a balance.<br />

End Function<br />

Everts Garay | Granada, Nicaragua| Paseo por <strong>Visual</strong> <strong>Basic</strong> <strong>2008</strong> 118

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

Saved successfully!

Ooh no, something went wrong!