AIEP 23.03, 16.03 Class
Wednesday, March 16, 2011
What External Hard Drive Can Connect To A Tv?
CUSTOMER Class Public Class Customer Private name As String
Get
            Return Me.nombre
        End Get
        Set(ByVal value As String)
            Me.nombre = value
       
End Set End Property Public Sub
& # 160; MsgBox ("Customer:" & Me.nombre)
End Sub End Class
CLIENTEMOROSO class Public Class Customer Inherits
clienteM
Private debt As Double
    Private entidadBancaria As String
    Private fecha As Date
        Set(ByVal value As String)
            Select Case value
                Case "1111"
Me.entidadBancaria = "BCI"
& # 160; ; Case "2222"
; Me.entidadBancaria = "Banco Estado
Case Else
; Me . entidadBancaria = "Otra"
& # 160; End Select
        End Set
    End Property
        Get
            Return Me.deuda
        End Get
        Set(ByVal value As Double)
            Me.deuda = value
        End Set
    End Property
        Get
Return Me.fecha End Get
& # 160; Set (ByVal value As Date)
date = value
End Set
    End Property
    Public ReadOnly Property PNombreMes As String
        Get
            Return Format(fecha, "MMMM")
        End Get
   
MostraDeuda ()
& # 160; MsgBox ("Debt:" & Me.deuda & "banker:" & Me.entidadBancaria) End Sub
Public Sub
MsgBox (" ; Month: "& Me.PNombreMes)
End Sub End Class
In
form code Dim cli As New Customer & # 160; Dim As New clienteM
clim
& # 160; cli.Pnombre = TextBox1.Text
cli.MostrarNombre()
        clim.Pdeuda = TextBox3.Text
        clim.Pentb = TextBox4.Text
        clim.Pfecha = TextBox5.Text
        clim.MostrarNombre ()
clim.MostraDeuda () & #
160; clim.MostrarMes () End Sub
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment