JÄGER ADwin-Pro II Systembeschreibung Seite 85

ADwin
Beispiel
#Include ADwinPro_All.Inc
#Define module 1
Dim Data_1[1000] As Long
Dim state As Long
Dim rest As Long
Dim pattern As Long
Init:
Rem Einfache Burst-Messreihe für Kanal 1 einrichten mit 20ns
Rem Periodendauer, 1000 Messwerte ab Adresse 0 speichern.
P2_Burst_Init (module,1,0,1000,1,0)
Rem Burst-Messreihe starten
pattern = Shift_Left(1,module-1)
P2_Burst_Start(pattern)
Processdelay=10000000
state=0
Event:
Rem Anzahl der restlichen Messwerte holen
rest = P2_Burst_Status(module)
Rem Alle Messwerte liegen vor: Status ändern
If (rest=0) Then state=1
If (state=1) Then
Rem Alle Messwerte liegen vor: 1000 Messwerte (schnell)
Rem abholen und in Data_1 ablegen
P2_Burst_Read_Unpacked1(module,1000,0,Data_1,1,3)
Rem Nächste Burst-Messreihe starten
state=0
P2_Burst_Reset(pattern)
P2_Burst_Start(pattern)
EndIf
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
'nur ein Modul ansprechen
'Status: Burst-Messreihe läuft
Pro II: Eingangsmodule
P2_Burst_Reset
81