JÄGER ADwin-Pro II Systembeschreibung Seite 90

Pro II: Eingangsmodule
P2_Burst_Stop
86
Beispiel
#Include ADwinPro_All.Inc
#Define module 4
Dim Data_1[1000] As Long
Dim i As Long
Dim pattern As Long
Init:
Rem Rinfache Burst-Messreihe für Kanal 1 einrichten,
Rem zeitgesteuert mit 20ns Periodendauer, 2^26 Daten speichern
Rem ab Adresse 0.
P2_Burst_Init (module,1,0,67108864,1,0)
Rem Burst-Messreihe starten
pattern = Shift_Left(1,module-1)
P2_Burst_Start(pattern)
Processdelay=10000000
Event:
Rem Die letzten 1000 Messwerte des Kanals (langsam) lesen und in
Rem Data_1 ablegen
P2_Burst_CRead_Unpacked1(module,1000,Data_1,1,1)
Rem Burst-Messreihe unterbrechen, wenn Grenzwert überschritten
For i = 1 To 1000
If (Data_1[i]>5)
P2_Burst_Stop(pattern)
EndIf
Next
'nur ein Modul ansprechen
Then
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
ADwin