JÄGER ADwin-Pro II Systembeschreibung Seite 68

Pro II: Eingangsmodule
P2_Burst_CRead_Unpacked8
64
Beispiel
#Include ADwinPro_All.Inc
#Define module 4
Dim Data_1[1000], Data_2[1000]
Dim Data_3[1000], Data_4[1000]
Dim Data_5[1000], Data_6[1000]
Dim Data_7[1000], Data_8[1000]
Dim pattern As Long
Init:
Rem Kont. Burst-Messreihe für Kanäle 1...8 einrichten mit 40ns
Rem Periodendauer, 1Mio. Messwerte je Kanal speichern ab
Rem Adresse 100.
P2_Burst_Init (module,255,100,1000000,2,010b)
Rem Burst-Messureihe starten
pattern = Shift_Left(1,module-1)
P2_Burst_Start(pattern)
Processdelay=10000000
Event:
Rem Die letzten 10000 Messwerte je Kanal (langsam) lesen und in
Rem den Feldern Data_1 bis Data_8 ablegen
P2_Burst_CRead_Unpacked8(module,1000,Data_1,Data_2,Data_3,
Data_4,Data_5,Data_6,Data_7,Data_8,1,3)
As Long At DM_Local
As Long At DM_Local
As Long At DM_Local
As Long At DM_Local
'nur ein Modul ansprechen
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
ADwin