TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

'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 -