
RST Flexi-Mux Instruction Manual
ELM0029B
RST Instruments Ltd.
Page 24
SW12(SW12_1,0)
'Turn IPI Off
Scan (1,Min,0,0)
PanelTemp (PTemp,60)
Battery (Batt_volt)
If TimeIntoInterval (0,30,Min) Then
'Enter loop every 30mins
PortSet (U2,1)
'Reset
Delay(0,100,mSec)
For i=1 To 10
PulsePort (U1,5000)
'Clock
Delay(0,100,mSec)
VibratingWire (VW(i,1),1,U3,1500,3500,1,0.05,"",60,A,B,C)
Htz(i)=VW(i,1)
'frequency
Amp(i)=VW(i,2)
'amplitude
S2N(i)=VW(i,3)
'signal to noise ratio
NF(i)=VW(i,4)
'noise frquency
DR(i)=VW(i,5)
'decay ratio
Bunits(i) = (VW(i,1)^2)/1000
'Convert to B Units
VW_Temp(i)= VW(i,6)
'Temperature
Next i
PortSet (U2,0)
CallTable VWire
SW12(1,1)
'Power IPI ON
Delay(0,10,sec)
For i = 1 To 5
For j = 1 To 5
'Read A Axis, B Axis and Temp starting from 0x30 register
ipi_data(i,j) = "NAN"
ipi_data(i,j) = "NAN"
ipi_data(i,j) = "NAN"
Next j
Next i
'IPI Code Below
PortSet (U8,1)
'Reset
Delay(0,100,mSec)
For i = 1 To 5
PulsePort (U7,5000)
'Clock
Delay(0,500,mSec)
For j = 1 To 5
ModbusMaster(modbus_result(i,j),ComC1,9600,19,3,ipi_data(i,j,1),49,3,3,300)
'Read IPI Data
Delay(0,50,mSec)
Next j
Next i
PortSet (U8,0)
'Reset
SW12(1,0)
'Power IPI OFF
CallTable IPI_GEN4_table
EndIf
NextScan
EndProg
A-4.
8-W
IRE
S
ERIES
/P
ARALLEL
S
WITCHING
Const nVW = 10
Const A=1.40503E-03
'log poly coefficients 3K therm
Const B=2.36939E-04
Const C=1.01266E-07