JÄGER ADwin-Pro II System- Und Hardware-Beschreibung Seite 146

Pro II: Digital-IO-Module
Pro II-CNT-x Rev. E
EVENT-Eingang
142
REM Beispiel: Umrechnung von Gray- in Binär-Code
REM PAR_1 = zu wandelnder Gray-Wert
REM PAR_2 = Flag für einen neuen Gray-Wert
REM PAR_9 = Ergebnis der Gray-zu-Binär-Wandlung
Dim m, n As Long
Event:
If (Par_2 = 1) Then
m = 0
Par_9 = 0
For n = 1 To 32
m = (Shift_Right(Par_1,(32-n))
Par_9 = (Shift_Left(m,(32-n)))
Next n
Par_2 = 0
EndIf
Dieser Eingang kann, sofern er freigeben wurde, einen extern getriggerten
ADbasic-Prozess starten.
Abb. 126 – Pro II-CNT-x Rev. E: Frontplatten
HCPL-2631
HCPL-2631
Event
Abb. 127 – Pro II-CNT-I Rev. E: Platine mit Jumpern
'Start der Wandlung
'Variable initialisieren
' -"-
'Alle 32 Bits durchgehen
And 1)
Or PAR_9
'Nächste Wandlung ermöglichen
CNT-T CNT-I CNT-D
COUNTER COUNTER COUNTER
INPUT INPUT INPUT
LS19 LS19
HCPL-2631 HCPL-2631 HCPL-2631
LS19
HCPL-2631 HCPL-2631 HCPL-2631
HCPL-2631
19OPT16E1001
ADwin-Pro II Hardware, Handbuch Dez. 2018
ADwin
XOr m
19DIOCNT1003
XILINX
SPARTAN
XC2S150