JÄGER ADwin-Pro II Systembeschreibung Seite 41

ADwin
Beispiel
#Include ADwinPro_All.Inc
#Define module 1
Dim flags As Long
Init:
P2_SE_Diff(module,1)
P2_ADC_Set_Limit(module, 2, 42768, 256)
P2_Seq_Init(module, 3, 0, 10b,
P2_Seq_Start(Shift_Left(1, module-1))
P2_Seq_Wait(module)
Rem Flags durch Lesen rücksetzen
flags = P2_ADC_Read_Limit(module, 1)
Event:
flags = P2_ADC_Read_Limit(module,1)
If ((flags And 10b) = 10b)
Rem Untergrenze auf Kanal 2 ist unterschritten
Inc Par_1
EndIf
If ((flags And 20000h) = 20000h)
Rem Obergrenze auf Kanal 2 ist überschritten
Inc Par_2
EndIf
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
'Differentielle Eingänge
'Grenzwerte Kanal 2
0)'continuous max mode, Kanal 2
'Messreihe starten
'Flags 1...16 lesen
Then
Then
Pro II: Analoge Eingänge
P2_ADC_Read_Limit
37