TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco

More documents

Recommendations

Info

Private Sub Form_Terminate()HIDComm1.UninitHIDComm1.DisconnectMe.Timer1inicio.Enabled = FalseMe.Timer2inicio.Enabled = FalseMe.Timerhora.Enabled = Falsers.CloseEndEnd Sub'Rutina que escribe la fecha y hora de entrada en la tabla registroPrivate Sub HorEntrada_Click()If Me.Text1.Text "" ThensSelect = "INSERT INTO Registro([HoraEntrada], [HoraSalida], [NombreEmpleado], " _& "[ApellidoEmpleado],[TagEmpleado], [Salario]) Values('" & Format(Now, "dd/mm/yyyy HH:mm:ss") & "', '" & Format(Now,"dd/mm/yyyy HH:mm:ss") & "', '" & Me.Nombre.Text & "', " _& "'" & Me.Apellido.Text & "', '" & Me.tag1.Text & "', " & Format(Me.txtSalario.Text, "#####0.##") & ") "cn.Execute sSelectMe.Label4.Caption = "HORA <strong>DE</strong> ENTRADA: "Me.hora.Text = NowBeepTimer2inicio = TrueElseMsgBox "Consulte antes un empleado", vbInformation, "Informacion"End IfEnd Sub'Rutina que escribe la fecha y hora de salida en la tabla registroPrivate Sub HorSalida_Click()If Me.Text1.Text "" ThensSelect = "INSERT INTO Registro([HoraEntrada], [HoraSalida], [NombreEmpleado], " _& "[ApellidoEmpleado],[TagEmpleado],[Salario]) Values('" & Format(Now, "dd/mm/yyyy HH:mm:ss") & "', '" & Format(Now, "dd/mm/yyyyHH:mm:ss") & "', '" & Me.Nombre.Text & "', " _& "'" & Me.Apellido.Text & "', '" & Me.tag1.Text & "', " & Format(Me.txtSalario.Text, "#####0.##") & ") "cn.Execute sSelectMe.Label4.Caption = "HORA <strong>DE</strong> SALIDA: "Me.hora.Text = NowBeepTimer2inicio = TrueElseMsgBox "Consulte antes un empleado", vbInformation, "Informacion"End IfEnd Sub'Rutina que activa el formulario de mantenimiento de empleadosPrivate Sub mtto_Click()Mantenimiento.ShowTimer1inicio.Enabled = FalseTimer2inicio.Enabled = FalseMantenimiento.Timer1.Enabled = TrueEnd Sub'Rutina que activa el formulario de Reporte de empleadosPrivate Sub reporte_Click()Reportes.ShowMe.Timer1inicio.Enabled = FalseMe.Timer2inicio.Enabled = FalseEnd Sub'Codigo asociado al boton de Salir. Al hacer clic sobre este boton, se desconecta el sistema RFID'y se cierra el programaPrivate Sub salir_Click()HIDComm1.UninitHIDComm1.DisconnectMe.Timer1inicio.Enabled = FalseMe.Timer2inicio.Enabled = FalseMe.Timerhora.Enabled = Falsers.CloseEndEnd Sub'Rutina para lectura de sistema RFID. Variables necesarias para la adquisicion de datos por USBPrivate Sub Timer1inicio_Timer()- 173 -
'variables para leer HIDCommDim buffer() As ByteDim BufferSize As LongReDim buffer(64)Dim a, b, c, d, i As Single'Leyendo usbHIDComm1.Connect 'Conectarse al 1er dispositivoBufferSize = 6 'Cantidad de bytes a aceptar desde el control en cada transaccion'Guardar los datos recibios en el arreglo bufferbuffer = HIDComm1.ReadFrom(BufferSize)If BufferSize < 6 ThenExit SubEnd If'Leyendo posicionesDim byte0, byte1, byte2, byte3, byte4, byte5 As SingleDim cad0, cad1, cad2, cad3, cad4, cad5, cadena As String'***************************************'Arreglo de datos que vienen del controlbyte0 = buffer(0)byte1 = buffer(1)byte2 = buffer(2)byte3 = buffer(3)byte4 = buffer(4)byte5 = buffer(5)'Dandole formato a la informacion obtenida por USBcad0 = CStr(Format(HEX(byte0), "00"))cad1 = CStr(Format(HEX(byte1), "00"))cad2 = CStr(Format(HEX(byte2), "00"))cad3 = CStr(Format(HEX(byte3), "00"))cad4 = CStr(Format(HEX(byte4), "00"))cad5 = CStr(Format(HEX(byte5), "00"))cadena = cad0 & cad1 & cad2 & cad3 & cad4Text1.Text = cadenaIf cadena "000000" ThenStrSql = "select E.TagEmpleado, E.NOmbreEmpleado, E.ApellidoEmpleado, CA.CargoEmpleado, " _& "getdate() as HoraEntrada, SE.SueldoEmpleado from DatosEmpleado E, CargoEmpleado CA, " _& "SueldoEmpleado SE where E.tagEmpleado=ca.TagEmpleado AND E.TagEmpleado=SE.TagEmpleado " _& "and e.TagEmpleado='" & cadena & "' "If rsEmpleados.State = 1 ThenrsEmpleados.CloseEnd IfrsEmpleados.Open StrSql, cn, adOpenForwardOnly, adLockReadOnlyIf rsEmpleados.EOF ThenMsgBox "Codido de Empleado no encontrado", vbExclamation, "Error"Exit SubElseNombre.Visible = TrueMe.Nombre.Text = rsEmpleados.Fields("NombreEmpleado").ValueApellido.Visible = TrueMe.Apellido.Text = rsEmpleados.Fields("ApellidoEmpleado").Valuecargo.Visible = TrueMe.cargo.Text = rsEmpleados.Fields("CargoEmpleado").Valuetag1.Visible = TrueMe.tag1.Text = rsEmpleados.Fields("TagEmpleado").ValueMe.hora.Visible = TrueMe.hora.Text = rsEmpleados.Fields("HoraEntrada").ValueMe.txtSalario.Text = rsEmpleados.Fields("SueldoEmpleado").Value'MsgBox "Registro Valido", vbInformation, "Tesis Rmercado"End IfrsEmpleados.CloseEnd If'Detectar si es manana o tardeIf (Format(Time, "AM/PM")) = "AM" Then- 174 -
Page 1 and 2:
UNIVERSIDAD DON BOSCOFACULTAD DE IN
Page 3 and 4:
UNIVERSIDAD DON BOSCOTRIBUNAL EXAMI
Page 5 and 6:
CONTENIDO1. INTRODUCCION 1Página2.
Page 7 and 8:
10.3.3 Base de datos de Empleados 1
Page 9 and 10:
2. MARCO TEÓRICO2.1 SISTEMAS RFID
Page 11 and 12:
Los lectores se pueden encontrar en
Page 13 and 14:
Figura 2.2.1 Familias de microcontr
Page 15 and 16:
2.3 BUS SERIE UNIVERSAL (USB)Antes
Page 17 and 18:
• Soporta tanto el tipo de transf
Page 19 and 20:
Figura 2.3.5.22.3.6 Transmisión y
Page 21 and 22:
un microcontrolador de uso habitual
Page 23 and 24:
2.4 CONTROL DE PUERTOS USB PARA DIS
Page 25 and 26:
2.4.3 Preparando el dispositivo USB
Page 27 and 28:
Figura 2.4.5.1 Ventana de Propiedad
Page 29 and 30:
2.5 PROGRAMACION EN C PARA PICS USA
Page 31 and 32:
eturn [expr]; return (5);goto label
Page 33 and 34:
2.5.7 Uso de la memoria de programa
Page 35 and 36:
2.5.8 Funciones Incorporadas del co
Page 37 and 38:
2.6 INICIO DE SESION Y AUTENTICACIO
Page 39 and 40:
así se ofrece compatibilidad hacia
Page 41 and 42:
• Iniciar el modo del Kernel (ubi
Page 43 and 44:
• Asignación de seguridad al usu
Page 45 and 46:
Al decirle a windows que use Pgina
Page 47 and 48:
Figura 2.6.1.1 Componentes básicos
Page 49 and 50:
índices de gran tamaño mejora sig
Page 51 and 52:
Vale aclarar que en nuestro país s
Page 53 and 54:
5. ALCANCES• La tarjeta lectora p
Page 55 and 56:
7. VALIDACIÓN DE RESULTADOSLa vali
Page 57 and 58:
8.2 DISEÑO DEL CIRCUITO DE LA TARJ
Page 59 and 60:
Basándonos en el circuito que el f
Page 61 and 62:
Los microcontroladores utilizados p
Page 63 and 64:
El circuito de la etapa de procesam
Page 65 and 66:
• Protección por sobrecarga tér
Page 67 and 68:
Figura 8.2.4.2 Diagrama del circuit
Page 69 and 70:
de estado en el selector y adecuar
Page 71 and 72:
Figura 8.2.7.2 Pistas del circuito
Page 73 and 74:
8.2.10 Diseño y cálculos para la
Page 75 and 76:
Donde, f 0 es la frecuencia de reso
Page 77 and 78:
La resistencia óhmica de la antena
Page 79 and 80:
8.3.1.A continuación se detallara
Page 81 and 82:
El siguiente flujograma muestra com
Page 83 and 84:
El siguiente flujograma muestra com
Page 85 and 86:
9. FUNCIONAMIENTO DEL SISTEMA LECTO
Page 87 and 88:
Primeramente se comenzara a detalla
Page 89 and 90:
Figura 9.2.1.4Habiendo realizado lo
Page 91 and 92:
Para borrar la memoria completa del
Page 93 and 94:
Figura 9.2.2.3El modulo principal d
Page 95 and 96:
memoria del sistema, es decir, las
Page 97 and 98:
leyenda que cita lo siguiente “TA
Page 99 and 100:
Al estar listo el sistema para su f
Page 101 and 102:
Flujograma 9.2.4.5 Flujograma para
Page 103 and 104:
Figura 9.2.5.3 Diagrama de flujo pa
Page 105 and 106:
Menús del sistema: La interfaz pos
Page 107 and 108:
Informacion del empleado:Aca se mue
Page 109 and 110:
Campos de informacion: Semuestra to
Page 111 and 112:
Este modo de trabajo del sistema le
Page 114 and 115:
Las etiquetas RFID que han sido ing
Page 116 and 117:
Punto de censadopara detectar queel
Page 118 and 119:
ACTUALIZANDO EL REGISTRO DE WINDOWS
Page 120 and 121:
Figura 10.2.3 Ruta del archivo rfid
Page 122 and 123:
Figura 10.2.6 Agregando un valor al
Page 124 and 125:
- Para asociar una etiqueta a una c
Page 126 and 127:
Figura 10.2.12 Iniciando Sesión en
Page 128 and 129:
4. Seleccione el asistente para la
Page 130 and 131: 8. Como se muestra en la figura de
Page 132 and 133: 10. Use la página Modo de autentic
Page 134 and 135: 12. En la ventana Opciones de insta
Page 136 and 137: Figura 10.3.3.2 Programa Principal
Page 138 and 139: 11. CONCLUSIONES• El diseño de l
Page 140 and 141: sistemas de carga, que son a base d
Page 142 and 143: • Aguirre, Emanuel G.; Di Giulio,
Page 144 and 145: 1000xxxx ==> Dato 5#int_RBvoid RB_i
Page 146 and 147: Rutina ocurre cuando se da una inte
Page 148 and 149: Posibilidad de recibir alguna infor
Page 150 and 151: do{case 4:delay_ms(500);//Bucle que
Page 152 and 153: Create bit variables so that we can
Page 154 and 155: Wait until busy flag is low.while(b
Page 156 and 157: • ARCHIVO DE CABECERA PARA LOS DI
Page 158 and 159: A = A + 1Timer1.Enabled = TruefrmRF
Page 160 and 161: Dim arri2 As StringDim aba1 As Stri
Page 162 and 163: 'Se desconecta el usb y termina el
Page 164 and 165: Private Sub cmdSalir_Click()HIDComm
Page 166 and 167: 'Rutina para comenzar la edicion al
Page 168 and 169: End Sub'NOTA:'- El modulo agregado
Page 170 and 171: Modulo para exportar los datos de u
Page 172 and 173: 'Programa descargado de la direccio
Page 174 and 175: lKeyCount = lKeyCount + 1 'increase
Page 176 and 177: 'get size and type of registry valu
Page 178 and 179: 'Private Sub phManager_OnAttach(ByV
Page 182 and 183: Call HorEntrada_ClickElseCall HorSa
Page 184 and 185: Private Sub anterior_Click()If rs.B
Page 186 and 187: Seguro.DataField = "SeguroSocial"Ca
Page 188 and 189: '"ProfesionEmpleado) Values ('" & C
Page 190 and 191: Me.MSHFlexGrid2.Text = "Codigo"Me.M
Page 192 and 193: TotHorEmp = 0i = i + 1Me.MSHFlexGri
Page 194 and 195: HANDLE hDispositivo;//Buffer para l
Page 196 and 197: int result = 0;WCHAR *username = NU
Page 198 and 199: Libreria de acceso a dispositivos H
Page 200 and 201: 4. La primera vez que ejecute el as
Page 202 and 203: 10. Use la página Modo de autentic
show all

TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?

TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco