Tarea

Ejemplo de clases

Crear una clase que permite registrar los pagos de los trabajadores de una empresa.

La clase recibirá como datos:

* Código del trabajador
* Nombre del trabajador* Estatus (empleado, obrero)
* Categoría (A, B, C)

La clase calculara lo siguiente:

* Sueldo en base a la tabla:

AB C
100 | 800 | 650 |
800 | 750 | 500 |
Empleado
Obrero

* Descuento: 10% del sueldo
* Neto: sueldo – descuento* Crear proyecto de visual:
Tipo: Aplicación para Windows (Nombre: Sueldo)
* Agregar:
Archivo
Agregar
Nuevo Proyecto
Tipo: Biblioteca de Clases
(Nombre: Empresa)

DLL »Dinamyc Library Link (Librería de enlaces Dinámicos)

Es un archivo que contiene librería de procedimientos y funciones disponibles para cualquier uso que desee emplearla.
EXE
EXE
EXE
EXEVIA
“Referencia”

COM » Pueden ser usadas * cualquier programa
NET » Solo * Vb.Net

Public Class Trabajador

‘Propiedades no Validadas
Public Codigo as String
Public Nombre as String‘Variables Asociadas
Dim XEst as String

‘Propiedades Validadas
Property Estatus as String
Get

End Get
Set (Byval value as String)
XEst= value ‘Recibir valor en Asociada)
Select caseXEst.Toupper ‘validar
Case “Empleado”, “Obrero”
Case Else
XEst=””
ErrorIngreso= True
End Select
End Set
End Property

Property Categoria as String
Get
Return XCat
End GetSet (Byval value as String)
XCat= Value
Select Case XCat.Toupper
Case “a”, ”b”, ”c”
Case Else
XCat = “”
ErrorIngreso = True
End Select
End Set
End Property

‘Métodos –Procedimientos (Sub) o funciones (Funtion)

Funtion Sueldo as Single
If ErrorIngreso = True then Return 0
Dim sa, se, sc as Single
Select case Estatus.Toupper
Case “Empleado”
SA=1000...