JÄGER ADwin-Pro II Systembeschreibung Seite 146

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