RST Flexi-Mux Instruction Manual
ELM0029B
RST Instruments Ltd.
Page 15
S
AMPLE
P
ROGRAMMING
A-1.
2-W
IRE
S
ERIAL
S
WITCHING
Refer to Figure 5-3.
Const nVW = 4
Const nThm = 2
Const A=1.40503E-03
'log poly coefficients 3K therm
Const B=2.36939E-04
Const C=1.01266E-07
Public Bunits(nVW),VW_therm(nThm)
Public VW(nVW,5)
Public Htz(nVW),Amp(nVW),S2N(nVW),NF(nVW),DR(nVW)
Public kPa(nVW)
Public i
Units Bunits() = B
Units Htz = Hz
Units kPa() = kPa
Units VW_therm = °C
Units NF = Hz
DataTable (VWire,1,-1)
Sample (1,Batt_volt,FP2)
Sample (1,PTemp,FP2)
Sample (nVW,kPa(),IEEE4)
Sample (nVW,Bunits(),IEEE4)
Sample (nThm,VW_therm(),IEEE4)
EndTable
BeginProg
'Main Program
Scan (1,Min,0,0)
PanelTemp (PTemp,60)
Battery (Batt_volt)
If TimeIntoInterval (0,30,Min) Then
'Enter loop every 30mins
PortSet (C2,1)
'Reset
Delay(0,100,mSec)
For i=1 To 10
PulsePort (C1,5000)
'Clock
Delay(0,500,mSec)
If i < 5 Then
VibratingWire (VW(i,1),1,U3,1500,3500,1,0.05,"",60)
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 frequency
DR(i)=VW(i,5)
'decay ratio
Bunits(i) = (VW(i,1)^2)/1000
'Convert to B Units
Else
If i >= 5 AND i <=6 Then
Thermistor (VW_therm(i-4),1,mV5000,U3,2500,True ,0,60,A,B,C)
'Temperature
EndIf
EndIf
Next i
PortSet (C2,0)
CallTable VWire