Modulo para E/S puertos RS232
Access
5.050 visualizaciones desde el 11 de Julio del 2019
Estas librería se componen de un modulo y una clase para realizar E/S sobre puertos RS232
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(14)Si alguno de los archivos de descarga no funciona, comentanos aquí el error.
Comentarios sobre la versión: 0.1 (14)
Estoy haciendo un programa que reciba datos por el puerto Serial RS232 y los guarde en una Base de datos y si lo hago en access seria perfecto... Gracias y Saludos
Este es el codigo fuente:
DoCmd.SetWarnings FalseDoCmd.RunSQL CadenaRegDoCmd.SetWarnings TrueSaludos.
CountPort() lo que da es la cantidad de bytes que hay en el buffer del puerto serial, o cuantos bytes han llegado al puerto
ArrayByteToString() es usado por ReadPort() para convertir un array en cadena, si miras en ReadPort() hay una variable array de tipo byte llamada lpBuffer ese array lo llena ReadFile() por lo tanto se debe convertir lpBuffer a String para devolverlo en la funcion
Saludos
Saludos
Saludos
' If ReadFile(hCom, lpBuffer(0), nBytesToRead, nBytesRead, ByVal 0&) = 0 Then' RaiseEvent ErrorComm(GetLastError, "ReadPort", "clsComm")' Exit Function' End IfCuando le puse comentario la macro funcionó pero el problema es que cuando envié datos desde la otra PC la función CountPort me reporto que encontró 1058 bytes en el puerto, pero la función
ReadPort = ArrayByteToString(lpBuffer()) no leyó nada...
Me falta hacer la prueba con access... voy a intentarlo esta semana... y voy a probar con la que acabas de enviar...
Saludos
Gracias.
Saludos
Lo primero que tienes que hacer establecer un protocolo al menos de lectura
1) Cuales son los caracteres de inicio (STX) o final (ETX) de la cadena
2) Debe saber si el mensaje se recibe como binario HEX o ASCII (Texto Claro)
2) Cual es la longitud del mensaje, si es fijo o dinámico
La lógica a seguir en estos casos es
a) Abrir puerto
b) Esperar por el carácter STX en un ciclo o por un tiempo X en segundos si no llega el carácter entonces se devuelve un error por TIMEOUT , se cierra el puerto y termina el procedimiento
c) Ya tenemos nuestro STX entonces leemos el resto de la cadena
c.1) Si es fijo se lee ReadPort(LEN_CANDENA) y se guarda en una variable , se cierra el puerto y se termina el procedimiento
c.2) Si la cadena es longitud variable entonces en un ciclo se arma la cadena usando var:= var & ReadPort(1) hasta que consiga el ETX, se cierra el puerto y termina el proceso
d) Normalmente o por lo general pero no siempre, se envía un CheckSum() al final de la cadena antes de ETX, sea fijo o dinamico en la medida que recibas debes calcular el checksum() para comprobar si es valido el mensaje
e) A veces, según el propósito de tu programa un mensaje puede contener varias cosas y es necesario tokenizar el mensaje usando cualquier técnica de parsing, esto se hace luego de haber recibido toda la cadena, imagínate pues un GPS que envía latitud, logitud y altura en metros, los tres valores en una cadena y estos valores separados por coma, se vería mas o menos así: STX30.9987847,12.0934583,1200ETX
Esperando haber aclarado tus dudas
Lo voy a probar en Access 2019, y ya te diré qué tal ha ido.