JÄGER ADwin-Pro II Systembeschreibung Seite 195

ADwin
Beispiel
#Include ADwinPro_All.inc
#Define module 1
Dim error As Long
Init:
P2_Cnt_Enable(module,0000b)
Rem Zähler 1: Modus Takt-Richtung
P2_Cnt_Mode(module,1,0)
P2_Cnt_Clear(module,1b)
P2_Cnt_Enable(module,1b)
error = 0
Event:
PAR_1 = P2_Cnt_Read(module,1)'Zähler 1 lesen
PAR_2 = P2_Cnt_GetStatus(module,1)
REM Leitungs- bzw. Kabelfehler Zähler 1?
If (PAR_2 And 10000b
REM Anzahl Leitungs- bzw. Kabelfehler
Inc PAR_3
error = 1
EndIf
REM Korrelationsfehler Zähler 1?
If (PAR_2 AND 01000b
Inc PAR_4
error = 1
EndIf
REM Zustand Eingang CLR
PAR_5 = Shift_Right(PAR_2
REM Zustand Eingang A
PAR_6 = Shift_Right(PAR_2
REM Zustand Eingang B
PAR_7 = PAR_2 And
ADwin-Pro II Software, Handbuch Apr. 2021
'Zähler stoppen
'Zähler 1 auf 0 zurücksetzen
'Zähler 1 starten
'Fehlerindikator zurücksetzen
And
= 10000b) Then
'Fehlerindikator setzen
= 01000b) Then
'Anzahl Korrelationsfehler
'Fehlerindikator setzen
And 100b,2)
And 10b,1)
1b
11111b 'Status
Pro II: Zähler
P2_Cnt_Get_Status
191