RST Flexi-Mux Instruction Manual
ELM0029B
RST Instruments Ltd.
Page 23
ipi_sn(4,4) = 80019
ipi_sn(4,5) = 80020
ipi_sn(5,1) = 80021
ipi_sn(5,2) = 80022
ipi_sn(5,3) = 80023
ipi_sn(5,4) = 80024
ipi_sn(5,5) = 80025
'Open serial port and power-up string
SW12(SW12_1,1)
'Turn IPI On
Delay(0,10,sec)
PortSet (U8,1)
'Reset
Delay(0,100,mSec)
For k = 1 To 5
'Start of loop
PulsePort (U7,5000)
'Clock
Delay(0,500,mSec)
SerialOpen(ComC1,9600,0,0,128,4)
SerialFlush(ComC1)
'Guard against serial number error causing incorrect data
SerialOut(ComC1,"@@65534 MBA 247 247"+CHR(13),"",1,0)
Delay(0,1,Sec)
SerialFlush(ComC1)
'Set devices endianness to standard CDAB
SerialOut(ComC1,"@@65534 TXO 0"+CHR(13),"",1,0)
Delay(0,1,Sec)
SerialFlush(ComC1)
'Set & Verify Modbus Addresses
For i = 1 To n_ipi
'up to the number of IPI sensors
For j = 1 To n_ipi
'Set device Modbus address command to default 1 to "n_ipi"
SerialOut(ComC1,"@@"+ipi_sn(i,j)+" MBA "+i+" "+i+CHR(13),"",1,0)
Delay(0,1,Sec)
SerialFlush(ComC1)
'Read back the sensor SN for verification --- 0x64 register
ModbusMaster(modbus_result(i,j),ComC1,9600,i,3,ipi_sn(i,j),101,1,3,300,0)
Delay(0,1,Sec)
SerialFlush(ComC1)
Delay (0,1,Sec)
Next j
Next i
For i = 1 To n_ipi
If modbus_result(i,j) <> ipi_sn(i,j) Then
modbus_verfied = 0
EndIf
Next i
If modbus_verfied Then
modbus_verification = "Modbus Addresses Verified"
Else
modbus_verification = "Warning: IPI Modbus Adress Verification
Failed"
EndIf
Next k
'End of Loop
SerialClose(ComC1)
PortSet (U8,0)
'Reset