TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco
TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco
TRABAJO DE GRADUACIÃN - DSpace Universidad Don Bosco
- No tags were found...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
'Habilita la forma principal del programa.If (usb = texto) ThenTimer1.Enabled = FalsefrmRFID.Timer1.Enabled = TruefrmRFID.HIDComm1.TimeOut = 10frmRFID.lblTag.Caption = "Deslizar un TAG"frmRFID.Visible = TruefrmConexion.Visible = FalsefrmPass.Visible = Falsetxtpass.Text = ""'Rutina que se ejecuta cuando no hay ningun tag maestro agregado'habilita la forma principal haciendo un recordatorio'que todavia no hay ningun tag maestro agregado.'el tag maestro se guarda en la ultima localidad de memoria.ElseIf (usb = "FFFFFFFFFF") ThenTimer1.Enabled = FalsefrmRFID.Timer1.Enabled = TruefrmRFID.HIDComm1.TimeOut = 10MsgBox "Todavia no ha agregado ningun TAG maestro. Agreguelo en este momento.", _vbInformation, "Importante"frmRFID.lblTag.Caption = "Deslizar un TAG"frmRFID.Visible = TruefrmConexion.Visible = FalsefrmPass.Visible = Falsetxtpass.Text = ""'Rutina que se ejecuta cuando no hay match entre numero y tag maestroElseMsgBox "La contraseña es incorrecta o el TAG no es valido", vbCritical, "ERROR"txtpass.Text = ""End IfEnd Sub'Rutina que se ejecuta al darse el evento de que se ha cerrado la forma.'desconecta usb y termina el programa.Private Sub Form_Terminate()frmRFID.HIDComm1.UninitfrmRFID.HIDComm1.DisconnectfrmRFID.Timer1.Enabled = FalseTimer1.Enabled = FalseEndEnd Sub'Rutina que se ejecuta al darse el evento de carga de la forma.'Aca se detecta si la tarjeta no esta conectada cuando el programa se abre.'tambien recibe el numero de tag maestro para compararlo con los tags'deslizados, y asi poder entrar al programa maestroPrivate Sub Form_Load()'Rutina que detecta si la tarjeta esta conectada cuando se abre el programa'Si la tarjeta no esta conectada, el programa muestra un aviso y se cierra.If Not frmRFID.HIDComm1.Connected ThenMsgBox "No se ha detectado ningun lector RFID conectado al equipo", vbCritical, "Error"frmRFID.HIDComm1.UninitfrmRFID.HIDComm1.DisconnectfrmRFID.Timer1.Enabled = FalseTimer1.Enabled = FalseEndEnd If'Rutina que recibe el numero de tag maestro localizado en la ultima direccion'de memoria en el chip, lo guarda en una variable, con la finalidad de compararlo'para poder ingresar al tag maestro.frmRFID.HIDComm1.TimeOut = 1000frmRFID.HIDComm1.ConnectReDim Buffer(48)Buffer(0) = 0Buffer(1) = 0Buffer(2) = 0Buffer(3) = 0Buffer(4) = 0Buffer(5) = 51BufferSize = 6frmRFID.HIDComm1.WriteTo Buffer, BufferSizeBuffer(5) = 0Buffer = frmRFID.HIDComm1.ReadFrom(BufferSize)usb = Format(Hex(Buffer(0)), "00") & Format(Hex(Buffer(1)), "00") & _Format(Hex(Buffer(2)), "00") & Format(Hex(Buffer(3)), "00") & _Format(Hex(Buffer(4)), "00")- 150 -