TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

'Private Sub phManager_OnAttach(ByVal PHIDGET As PHIDGET.IPhidget)'Dim lOutput As Long'check to see if it's an RFID reader'If PHIDGET.DeviceType = "PhidgetRFID" Then'device attached was RFID reader, set reader object' Set phRFID = PHIDGET''reset all the outputs to OFF' For lOutput = 0 To phRFID.NumOutputs - 1phRFID.OutputState(lOutput) = False' Next lOutput''turn on RFID readerphRFID.OutputState(3) = True'turn on surface mount LED' phRFID.OutputState(2) = True' End If'End Sub'Private Sub phRFID_OnTag(ByVal TagNumber As String)'set txtTagID value'End Sub'Agregado. Rutina para detectar etiquetas deslizadas sobre el sistema lector RFIDPrivate Sub Timer1_Timer()ReDim Buffer(48)BufferSize = 6Buffer = HIDComm1.ReadFrom(BufferSize)If BufferSize < 6 ThenExit SubEnd IfEnd Subtexto = 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")txtTagID.Text = textoPrivate Sub txtTagID_KeyPress(KeyAscii As Integer)'test for acceptable characters (numbers and letters only)If (KeyAscii >= 48 And KeyAscii = 65 And KeyAscii = 97 And KeyAscii