Inhaltsverzeichnis
Werbung
Zähler
Cnt_SE_Diff
130
Beispiel
Rem Wählen Sie das passende Include für ADbasic / TiCoBasic
#Include
ADwinGoldII.inc'für ADbasic
Rem #Include GoldIITiCo.incfür TiCoBasic
Dim
error
AS LONG
Dim
old_1,
new_1
Dim
old_2,
new_2
INIT:
CNT_Enable(0)
Cnt_SE_Diff(0001b)
ended)
CNT_Mode(1,10000b)
CNT_Clear(0001b)
CNT_Enable(0001b)
old_1
=
0
old_2
=
0
error
=
0
EVENT:
PAR_1
= CNT_Read(1)
Rem Statusregister auslesen und maskieren
PAR_2
= Cnt_Get_Status(1)
If
(PAR_2
AND
01000b
Inc
PAR_3
error
=
1
ENDIF
If
(PAR_2
AND
10000b
Inc
PAR_4
jetzt
error
=
1
ENDIF
PAR_5
=
Shift_Right(PAR_2
PAR_6
=
PAR_2
AND
PAR_7
=
Shift_Right(PAR_2
'Variablen
AS
LONG'dimensionieren
AS LONG
'Alle Zähler stoppen
'Zähler 1 diff. (2-4 single
'Zähler 1: Modus Takt-Richtung
'Zähler 1 auf 0 setzen
'Zähler 1 starten
'Variablen...
'initialisieren
'Fehlerindikator zurücksetzen
'Zähler 1 auslesen
AND
01Fh
= 01000b)
THEN
'Leitungsfehler Zähler 1?
'Anzahl Leitungsfehler bis jetzt
'Fehlerindikator setzen
= 10000b)
THEN
'Anzahl Korrelationsfehler bis
'Fehlerindikator setzen
AND
100b,2)
1b
'Zustand Eingang A
AND
10b,1)
ADwin-Gold II , Handbuch Version 1.52, März 2010
ADwin
'Korrelationsfehler
'Zustand CLR-Eingg
'Zustand Eingang B
Werbung
Inhaltsverzeichnis
