JÄGER ADwin-Pro II Systembeschreibung Seite 99

ADwin
ermittelt die Anzahl der noch durchzuführenden Burst-Messungen
P2_Burst_Status
auf dem angegebenen Modul.
Syntax
#Include ADwinPro_All.Inc
ret_val P2_Burst_Status
=
Parameter
Eingestellte Moduladresse (1...15).
module
Anzahl der noch auszuführenden Messungen.
ret_val
Bemerkungen
Bei Modulen AIn-F-x/16 ist der Befehl ab Revision E04 verfügbar.
Der Befehl soll nur bei einer einfachen Burst-Messreihe (siehe
Init) verwendet werden.
Wenn eine Messreihe bereits abgeschlossen ist, liefert die Funktion den Rück-
gabewert 0 (Null).
Siehe auch
P2_Burst_Init, P2_Burst_Read_Index, P2_Burst_Read_Unpacked1,
Burst_Read_Unpacked2, P2_Burst_Read_Unpacked4,
Unpacked8, P2_Burst_Reset, P2_Burst_Start, P2_Read_ADC,
Gültig für
AIn-F-4/14 Rev. E, AIn-F-4/16 Rev. E, AIn-F-8/14 Rev. E, AIn-F-8/16 Rev. E
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 mit 250ns/500ns
Rem Periodendauer, 1000 Messwerte ab Adresse 0 speichern.
P2_Burst_Init (module,1,0,1000,25,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)
If (rest = 0) Then
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 Apr. 2021
module
( )
'nur ein Modul ansprechen
'Status: Burst-Messreihe läuft
state = 1'Alle Messwerte liegen vor
Pro II: Eingangsmodule
LONG
LONG
P2_Burst_
P2_
P2_Burst_Read_
P2_Burst_Stop
P2_Burst_Status
P2_Burst_Status
95