JÄGER ADwin-Pro II Systembeschreibung Seite 103

ADwin
Beispiel
#Include ADwinPro_All.Inc
Dim Data_4[16] As Long
Dim i As Long
Init:
P2_ADCF_Reset_Min_Max(1,11111111b)'reset all 8 F-ADC
Event:
Rem read high and low values of F-ADC 1...8
P2_ADCF_Read_Min_Max8(1,Data_4,1)
For i = 1 To 16 Step
If (Data_4[i] < 2500)
Rem minimum is below limit
Rem ...
P2_ADCF_Reset_Min_Max(1,11111111b)'reset all 8 F-ADC
EndIf
If (Data_4[i+1] > 50000)
Rem value is above limit
Rem ...
EndIf
Next i
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
2
Then
Then
Pro II: Eingangsmodule
P2_ADCF_Read_Min_Max8
99