RST Flexi-Mux Instruction Manual
ELM0029B
RST Instruments Ltd.
Page 17
If TimeIntoInterval (0,60,Min)Then
'Default 1hr
PortSet (SE2,1) 'Reset
Delay(0,100,mSec)
SerialOpen(Com1,38400,0,0,10000)
'SET UP AVW200 COM
For i=1 To nVW
PulsePort (SE1,5000)
'Clock
Delay(0,500,mSec)
AVW200 (Result,Com1,0,200,VW(i,1),1,1,1,1500,3500,1,_50Hz,1,0)
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
Res(i)=VW(i,6)
'thermistor resistance
Call SH3k(Res(i),VW_Temp(i))'Call SH3k(Res(i),VW_Temp(i))
'3k
thermistor - convert therm resistance to deg C
Next i
SerialClose(Com1)
PortSet (SE2,0)
CallTable VWP_Table
EndIf
NextScan
EndProg
A-3.
4-W
IRE
S
WITCHING WITH
S
EPARATE
E
XCITATION
a
IC7565B / IC757B / IC7560B / IC7570 Series
Refer to Figure 5-5.
' 4 strings of IPI's to 1 MUX
Const n_ipi_strings = 4
Const max_ipi_nodes = 13
'Below block for debugging, make variables Public
Dim serial_test_tr As String * 8
Dim serial_test_sr As String * 8
Public current_ipi
Dim serial_parse_sr As String * 64
Dim n_bytes_tr, n_bytes_sr
Dim parse(3)
Dim p, j, k, q , i
Dim string_length
Public rs485_interface As String * 80
Public ipi_A(n_ipi_strings,max_ipi_nodes)
Public ipi_B(n_ipi_strings,max_ipi_nodes)
Public ipi_temperature(n_ipi_strings,max_ipi_nodes)
Public tr_com_error(n_ipi_strings,max_ipi_nodes)
Public sr_com_error(n_ipi_strings,max_ipi_nodes)
Public ipi_sn(n_ipi_strings,max_ipi_nodes)
Units ipi_A = SIN(
θ
)
Units ipi_B = SIN(
θ
)
Units ipi_temperature = °C
