JÄGER ADwin-Pro II Systembeschreibung Seite 148

Pro II: Digitale Ein-/Ausgänge
P2_Digin_Fifo_Read_Fast
144
Beispiel
#Include ADwinPro_All.inc
Dim Data_1[20000] As Long
Dim num, index As Long
Init:
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)'Anzahl Wertepaare
If (num > 50) Then
Rem Wertepaare auslesen
P2_Digin_Fifo_Read_Fast(1, num, Data_1, index)
index = index + num
If (index > 10000)
EndIf
'Kanäle 0:15 als Eingänge
'FIFO löschen
Then index = 1
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
ADwin