TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco

More documents

Recommendations

Info

'Se desconecta el usb y termina el programa.Private Sub Form_Terminate()HIDComm1.UninitHIDComm1.DisconnectTimer1.Enabled = FalseEndEnd Sub'Rutina que detecta cuando la tarjeta esta conectada por el puerto usb.'trabaja en combinacion con una condicion IF que se encuentra mas adelante en el programaPrivate Sub HIDComm1_ConnectSuccess(ByVal Status As Long)frmRFID.Visible = FalsefrmConexion.Visible = FalsefrmPass.Visible = TrueTimer1.Enabled = FalsefrmPass.Timer1.Enabled = TrueEnd Sub'Rutina que se ejecuta al darse el evento de hacer click en el boton abajo.'Al dar click en el boton, lo que sucede, es que la celda seleccionada'se desplaza una posicion hacia abajo. Si la celda que esta por debajo de la seleccionada'posee informacion, se hace un cambio de datos, lo de abajo pasa arriba y lo de arriba abajo.Private Sub cmdAbajo_Click()'rutina que valida cuando la celda esta vacia.If (grdRFID.HighLight) ThenIf grdRFID.Text = "" ThenMsgBox "La celda esta vacia", vbInformation, "Advertencia"Exit SubEnd If'Rutina que valida que solo se seleccione una celda a la vez.selstartrow = grdRFID.RowSelrowbeg = grdRFID.rowIf Not ((selstartrow - rowbeg) = 0) ThenMsgBox "Solo se puede seleccionar una celda", vbInformation, "Informacion"Exit SubEnd If'Rutina que valida cuando se alcanza la posicion final de la tabla y se quiere seguir bajando'ademas cuando se quiere seleccionar la posicion 0 que contiene el nombre de la columnaIf rowbeg = 31 ThenMsgBox "Accion Invalida", vbCritical, "ERROR"Exit SubElseIf rowbeg = 0 ThenMsgBox "Seleccione una celda con informacion", vbCritical, "ERROR"Exit SubEnd If'rutina que efectua el desplazamiento de celdas hacia abajo de uno a uno.For selrows = rowbeg To selstartrowgrdRFID.row = selrowsgrdRFID.Col = grdRFID.Colaba1 = grdRFID.TextgrdRFID.row = (selrows + 1)grdRFID.Col = grdRFID.Colaba2 = grdRFID.TextgrdRFID.Text = aba1grdRFID.row = selrowsgrdRFID.Col = grdRFID.ColgrdRFID.Text = aba2NextgrdRFID.row = rowbeg + 1grdRFID.RowSel = selstartrow + 1End IfEnd Sub'Rutina que se ejecuta al darse el evento de hacer click en el boton arriba.'Al dar click en el boton, lo que sucede, es que la celda seleccionada'se desplaza una posicion hacia arriba. Si la celda que esta por arriba de la seleccionada'posee informacion, se hace un cambio de datos, lo de arriba pasa abajo y lo de abajo arriba.Private Sub cmdArriba_Click()'rutina que valida cuando la celda esta vacia.If (grdRFID.HighLight) ThenIf grdRFID.Text = "" ThenMsgBox "La celda esta vacia", vbInformation, "Error"Exit SubEnd If'Rutina que valida que solo se seleccione una celda a la vez.selstartrow = grdRFID.RowSel- 155 -
owbeg = grdRFID.rowIf Not ((selstartrow - rowbeg) = 0) ThenMsgBox "Solo se puede seleccionar una celda", vbInformation, "Informacion"Exit SubEnd If'Rutina que valida cuando se alcanza la posicion inicial de la tabla y se quiere seguir subiendo'ademas cuando se quiere seleccionar la posicion 0 que contiene el nombre de la columnaIf rowbeg = 1 ThenMsgBox "Accion Invalida", vbCritical, "ERROR"Exit SubElseIf rowbeg = 0 ThenMsgBox "Seleccione una celda con informacion", vbCritical, "ERROR"Exit SubEnd If'rutina que efectua el desplazamiento de celdas hacia arriba de uno a uno.For selrows = rowbeg To selstartrowgrdRFID.row = selrowsgrdRFID.Col = grdRFID.Colarri1 = grdRFID.TextgrdRFID.row = (selrows - 1)grdRFID.Col = grdRFID.Colarri2 = grdRFID.TextgrdRFID.Text = arri1grdRFID.row = selrowsgrdRFID.Col = grdRFID.ColgrdRFID.Text = arri2NextgrdRFID.row = rowbeg - 1grdRFID.RowSel = selstartrow - 1End IfEnd Sub'Rutina que se ejecuta cuando se da el evento click en el boton borrar'Al hacer clic en el boton borrar, se borran los datos que se encuentran'seleccionados en la tabla. Se puede seleccionar mas de una celda a la vezPrivate Sub cmdBorrar_Click()'rutina que se ejecuta cuando la celda seleccionada es la que'contiene el texto de la columna.If (grdRFID.HighLight) ThenIf grdRFID.row = 0 ThengrdRFID.row = grdRFID.rowEnd If'rutina de borrado, detecta cuantas celdas se han seleccionado y se borranselstartrow = grdRFID.RowSelrowbeg = grdRFID.rowFor selrows = rowbeg To selstartrowgrdRFID.row = selrowsgrdRFID.Col = grdRFID.ColgrdRFID.Text = ""NextgrdRFID.row = rowbeggrdRFID.RowSel = selstartrowEnd IfEnd Sub'Rutina que se ejecuta al darse el evento clic en el boton recibir.'Al hacer clic en el boton recibir, se desabilitan todos los botones'mientras se esta efectuando la sincronizacion.'Se reciben todos los datos de la memoria del chip a la tabla en el programaPrivate Sub cmdRecibir_Click()HIDComm1.TimeOut = 1000ProgressBar1.Max = 31cmdAgregar.Enabled = FalsecmdBorrar.Enabled = FalsecmdArriba.Enabled = FalsecmdAbajo.Enabled = FalsecmdSalir.Enabled = FalsecmdEnviar.Enabled = FalsecmdRecibir.Enabled = FalsecmdMasterTag.Enabled = FalsecmdGuardar.Enabled = Falseuno = TrueEnd Sub'Rutina que se ejecuta al darse el evento clic del boton salir.'Al hacer clic en el boton salir, se desconecta el puerto usb y se'termina el programa.- 156 -
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 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 180 and 181: Private Sub Form_Terminate()HIDComm
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