Analizar y crear las clases necesarias para
implementar una agenda virtual. La agenda debe registrar los Abonados de un
club y sus familiares; y se debe registrar los nombres, apellidos, teléfono,
celular y correo.
El programa debe cumplir con los siguientes
requerimientos:
Presentar un
reporte indicando los contactos (Abonados y familiares) que no tiene teléfono.
No se debe hacer uso de orígenes de bases de datos.
Clase Abonado
Public Class Abonado
Private Nombres As String
Private Apellidos As String
Private Telefono As String
Private Celular As String
Private Correo As String
Private Tipo As String
Sub New(NOM As String, APE As String, TELE As String, CEL As String, COR As String, Tipo As String)
Me.Nombres = NOM
Me.Apellidos = APE
Me.Telefono = TELE
Me.Celular = CEL
Me.Correo = COR
Me.Tipo = Tipo
End Sub
Public Function getNombres() As String
Return Me.Nombres
End Function
Public Function getApellidos() As String
Return Me.Apellidos
End Function
Public Function getTelefono() As String
Return Me.Telefono
End Function
Public Function getCelular() As String
Return Me.Celular
End Function
Public Function getCorreo() As String
Return Me.Correo
End Function
Public Function getTipo() As String
Return Me.Tipo
End Function
End Class
Código fuente solicitar a:
cgprognet@hotmail.com
cgprognet@gmail.com
Costo del codgio fuente 50 soles.
Public Class Abonado
Private Nombres As String
Private Apellidos As String
Private Telefono As String
Private Celular As String
Private Correo As String
Private Tipo As String
Sub New(NOM As String, APE As String, TELE As String, CEL As String, COR As String, Tipo As String)
Me.Nombres = NOM
Me.Apellidos = APE
Me.Telefono = TELE
Me.Celular = CEL
Me.Correo = COR
Me.Tipo = Tipo
End Sub
Public Function getNombres() As String
Return Me.Nombres
End Function
Public Function getApellidos() As String
Return Me.Apellidos
End Function
Public Function getTelefono() As String
Return Me.Telefono
End Function
Public Function getCelular() As String
Return Me.Celular
End Function
Public Function getCorreo() As String
Return Me.Correo
End Function
Public Function getTipo() As String
Return Me.Tipo
End Function
End Class
cgprognet@hotmail.com
cgprognet@gmail.com
Costo del codgio fuente 50 soles.
Este comentario ha sido eliminado por el autor.
ResponderEliminar