INFORME DE CLASES Y OBJETOS
Enviado por vivancos • 21 de Diciembre de 2016 • Trabajos • 819 Palabras (4 Páginas) • 175 Visitas
INFORME DE CLASES Y OBJETOS
Form 1 (clases)
Clase cliente
Public Class CLIENTE
Inherits PERSONA
Private _CATEGORIA As String
Private _CODIGO As String
Public Property CATEGORIA As String
Get
Return _CATEGORIA
End Get
Set(value As String)
_CATEGORIA = value
End Set
End Property
Public Property CODIGO As String
Get
Return _CODIGO
End Get
Set(value As String)
_CODIGO = value
End Set
End Property
Public Sub GENERARCODIGO()
Me.CODIGO = "C" & Me.APELLIDOS.Substring(0, 3) & "16"
End Sub
End Class
Clase empleado
Public Class EMPLEADO
Inherits PERSONA
Private _TIPOCONTRATO As String
Private _SUELDO As Double
Public Property TIPOCONTRATO As String
Get
Return _TIPOCONTRATO
End Get
Set(value As String)
_TIPOCONTRATO = value
End Set
End Property
Public Property SUELDO As Double
Get
Return _SUELDO
End Get
Set(value As Double)
_SUELDO = value
End Set
End Property
Public Sub CALCULARSUELDO(SUELDOBASE As Double)
If (Me.TIPOCONTRATO = "CONTRATADO") Then
Me.SUELDO = SUELDOBASE + 350
ElseIf (Me.TIPOCONTRATO = "NOMBRADO") Then
Me.SUELDO = SUELDOBASE + 750
Else
Me.SUELDO = 0
End If
End Sub
End Class
Clase persona
Public Class PERSONA
Private _APELLIDOS As String
Private _NOMBRES As String
Private _DOCUMENTOS As String
...