JÄGER ADwin-Pro II Systembeschreibung Seite 93

ADwin
Für Module AIn-F-x/14 siehe auch das Beispiel für Kontinuierliche Messwertwandlung
(Pro II): "1 Kanal wandeln" auf
#Include ADwinPro_All.Inc
#Define module 4
Dim Data_1[1000], Data_2[1000]
Dim Data_3[1000], Data_4[1000]
Dim state As Long
Dim rest As Long
Dim pattern As Long
Init:
Rem Einfache Burst-Messreihe für Kanäle 1...4 mit 400ns/800ns
Rem Periodendauer, 1000 Messwerte je Kanal ab Adr. 0 speichern
P2_Burst_Init (module,15,0,1000,40,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:Von jedem Kanal 1000 Messwerte
Rem (schnell) abholen und in Data_1 bis Data_4 ablegen
P2_Burst_Read_Unpacked4(module,1000,0,Data_1,Data_2,Data_3,
Data_4,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
Seite 2099.
As Long
As Long
'nur ein Modul ansprechen
Pro II: Eingangsmodule
P2_Burst_Read_Unpacked4
89