13.07.2015 Views

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

SHOW MORE
SHOW LESS
  • 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 -

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!