JÄGER ADwin-Pro II Systembeschreibung Seite 211

ADwin
Beispiel
#Include ADwinPro_All.inc
#Define module 2
Dim values24[8] As Long
Dim channel As Long
Dim i As Long
Dim run_state As Long
Dim status As Long
Init:
P2_RTD_Config(module, 0, 0)
Rem use channels 1...6
For i = 1 To 6
Rem do channel settings: 3 wire, PT100, 50 Hz filter
P2_RTD_Channel_Config(module, i, 1, 2, 0, 7, 50)
Next
Processdelay=50000000
run_state = 0
Event:
SelectCase run_state
Case 0
Rem start measurement cycle
P2_RTD_start(Shift_Left(1, module-1))
run_state = 1
Case 1
Rem check for end of measurement cycle
status = P2_RTD_status(module)
If (status = 0)
Case 2
Rem read measured values and prepare start of next cycle
P2_RTD_read8(module, values24, 1)
For i = 1 To
Rem convert measurement values
fpar[i] = P2_RTD_convert(values24[i], 0, 1)
Next
run_state = 0
EndSelect
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
'single shot mode
Then run_state =
6
Pro II: Temperaturmess-Module
2
'messwerte lesen
P2_RTD_Start
207