Pro II: Eingangsmodule
P2_ADCF_Read_Min_Max8
108
Beispiel
#Include
ADwinPro_All.Inc
#Define
module
5
Dim
Data_4[16]
As Long
Dim
i
As Long
Init:
Rem start module timer mode (continuous AD conversions)
P2_ADCF_Mode(Shift_Left(1,
P2_ADCF_Reset_Min_Max(module,11111111b)'reset all 8 F-ADC
Event:
Rem read high and low values of F-ADC 1...8
P2_ADCF_Read_Min_Max8(module,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(module,11111111b)'reset all 8 F-ADC
EndIf
If
(Data_4[i+1] > 50000)
Rem value is above limit
Rem ...
EndIf
Next
i
module
- 1), 1)
2
Then
Then
ADwin-Pro II Software, Handbuch Apr. 2021
ADwin