JÄGER ADwin-Pro II Systembeschreibung Seite 165

ADwin
Beispiel
#Include ADwinPro_All.inc
Dim Data_1[10000], Data_2[10000]
Dim num, index As Long
Init:
Rem Bei AOUT-1/16: Zeile mit P2_DigProg löschen
P2_DigProg(1,1100b)
P2_Digin_Fifo_Enable(1,0)'Überwachung aus
P2_Digin_Fifo_Clear(1)
P2_Digin_Fifo_Enable(1,10011b)'Kanäle 1,2,5 überwachen
index = 1
Event:
num = P2_Digin_Fifo_Full(1)
If (num > 50) Then
Rem Wertepaare auslesen
P2_Digin_Fifo_Read(1, num, Data_1, Data_2, index)
index = index + num
If (index > 10000)
EndIf
ADwin-Pro II Software, Handbuch Apr. 2021
As Long
'Kanäle 15:0 als Eingänge
'FIFO löschen
'Anzahl Wertepaare
Then index = 1
Pro II: Digitale Ein-/Ausgänge
P2_Digin_Fifo_Read
161