85
« Último mensaje por Pedro1 mayo 03, 2019, 14:06:34 pm »
Hola Boris,
Estoy desarrollando un programa que recibe una cierta cantidad de bytes a través del protocolo ModBus provenientes de un sensor de pH. De los 21 bytes que recibo del sensor, solo son de interés 4. Es decir, estoy recibiendo el valor de pH en 4 bytes separados (debido a que utiliza un formato punto flotante de precisión simple) y debo empaquetarlos ordenadamente para luego obtener el valor final de la medida.
En un primer momento, multiplique el byte mas significativo por 2^24 para luego sumarle el segundo byte mas significativo multiplicado por 2^16 y de la misma manera con los 2 bytes menos significativos. Sin embargo, no obtuve los resultados esperados.
Frente a esta situación, decidí hacer uso de la función PackBytes(Src[], SrcIdx, Dst[], DstIdx, Count). Lo primero que hice fue probar el ejemplo que se encuentra en el Manual de Programación Pawn del PLC en la pagina 175 y obtengo el siguiente error:
Error del compilador PAWN: PlcMain.p(72) : error 035: argument type mismatch (argument 3)
Te adjunto el código del programa completo.
PlcMain()
{
VirtualHmiInit()
// Direccion del servidor o esclavo ModBus.
#define SLAVE_ADDR (1)
// Crear variable que indica si esperamos una respuesta del Servidor.
new WaitResponse = 0
// Variable para almacenar datos.
new RxData[21]
// Crear variable para almacenar estado.
new MbStat
// Definir un array de 4 celdas, y en cada celda almacenar un carácter.
new Src[4]
// Variable de destino tipo celda.
new Dst
// Inicializar Cliente ModBus RTU.
// Velocidad 9600 bps, formato 8E1, timeout 10 segundos, interface RS232.
MbRtuClInit(19200, SERIAL_8N2, 10, MB_RTU_INTERFACE_RS485)
for(;;)
{
// Realizar transaccion ModBus si DIN5 = 1.
if(WaitResponse == 0)
{
// Enviar peticion para leer "Holding Registers".
if(MbRtuClSendReadHoldingReg(SLAVE_ADDR, 2089, 10) < 0)
{
// Error en transmision.
}
else
{
WaitResponse = 1
}
}
// Obtener Estado de Libreria.
MbStat = MbRtuClGetLibStatus()
// Comprobar si llego respuesta del Server.
if(MbStat == 0 && WaitResponse == 1)
{
// Si, leer registros recibidos.
//MbRtuClGetRxReg(RxData, 0, 2, 0)
MbRtuClGetRxBytes(RxData, 0, 21, 0)
// Mostrar valores de registros en LCD.
// Intento de empaquetar los bytes
//Valor=(RxData[8]*(2^24))+RxData[8]*(2^16)+(RxData[5]*(2^7))+RxData[6]
// Definir un array de 4 celdas, y en cada celda almacenar un carácter.
Src[0] = RxData[7]
Src[1] = RxData[8]
Src[2] = RxData[5]
Src[3] = RxData[6]
// Empaquetar 4 bytes del array Src[] en variable llamada Dst:
PackBytes(Src, 0, Dst, 0, 4)
nLcdPrintf(0, 0, LCD_CLRALL, "%d %d", RxData[0], Dst)
nLcdPrintf(0, 1, LCD_NONE, "%x %x %x %x %x", RxData[1],RxData[2],RxData[3],RxData[4],RxData[5])
nLcdPrintf(0, 2, LCD_NONE, "%x %x %x %x %x", RxData[6],RxData[7],RxData[8],RxData[9],RxData[10])
nLcdPrintf(0, 3, LCD_NONE, "%x %x %x %x %x", RxData[11],RxData[12],RxData[13],RxData[14],RxData[15])
nLcdPrintf(0, 4, LCD_NONE, "%x %x %x %x %x", RxData[16],RxData[17],RxData[18],RxData[19],RxData[20])
WaitResponse = 0
}
DelayS(5)
// Comprobar errores.
if(MbStat < 0)
{
// Error!... ver código de error en MbStat.
WaitResponse = 0
}
}
}
Espero tu respuesta.
Saludos y gracias!
Mensajes recientes