JÄGER ADwin-Pro II Systembeschreibung Seite 66

Pro II: Eingangsmodule
P2_Burst_CRead_Unpacked4
62
Beispiel
#Include ADwinPro_All.Inc
#Define module 4
Dim Data_1[1000], Data_2[1000]
Dim Data_3[1000], Data_4[1000]
Dim pattern As Long
Init:
Rem Kont. Burst-Messreihe für Kanäle 1...4 einrichten mit 40ns
Rem Periodendauer, 2^25 je Kanal speichern ab Adresse 0.
P2_Burst_Init (module,15,0,3355444,2,010b)
Rem Burst-Messureihe starten
pattern = Shift_Left(1,module-1)
P2_Burst_Start(pattern)
Processdelay=50000000
Event:
Rem Die letzten 1000 Messwerte je Kanal (schnell) lesen und in
Rem den Feldern Data_1 bis Data_4 ablegen
P2_Burst_CRead_Unpacked4(module,1000,Data_1,Data_2,Data_3,
Data_4,1,3)
As Long
As Long
'nur ein Modul ansprechen
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
ADwin