JÄGER ADwin-Pro II Systembeschreibung Seite 87

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
REM Beispiel für AIn-F-x/14
module
#Define 4
#Define buffer_count
#Define channels 4
#Define frq_Hz 5000
#Define mem_idx Par_1
#Define count Par_2
#Define overflow Par_3
Dim Data_1[5000000]
Dim i, prev_mem_idx,
LowInit:
For i = 1 To buffer_count
Data_1[i] = 0 : Data_2[i] =
Next i
Init:
Processdelay = 300000000
P2_Set_LED(module, 1)
Rem Kont. Burst-Messreihe, n Kanäle, 500/1000ns Periodendauer
P2_Burst_Init(module, 2^channels-1, 0, buffer_count, 50, 010b)
P2_Burst_Start(Shift_Left(1,
start_idx = 1
prev_mem_idx = 0
overflow = 0
Event:
Rem Aktuelle Speicheradresse
mem_idx = P2_Burst_Read_Index(module)
Rem Anzahl neuer Messwerte/Kanal seit dem letzten Zyklus
count = (mem_idx - prev_mem_idx) *
If (count > 0) Then
Rem Messwerte aus dem Modulspeicher lesen
P2_Burst_Read(module,count,prev_mem_idx,Data_1,start_idx,0)
Rem Start-Index in Data_1 für den nächsten Zyklus
start_idx = start_idx
prev_mem_idx = mem_idx
EndIf
If (count < 0) Then
Rem Anzahl der Messwerte bis zum Ende des Buffers
count = buffer_count
Rem Messwerte aus dem Modulspeicher lesen
P2_Burst_Read(module,count,prev_mem_idx,Data_1,start_idx,0)
Rem Start-Index in Data_1 für den nächsten Zyklus
start_idx = 1
prev_mem_idx = 0
Inc(overflow)
EndIf
Rem Messwerte liegen gepackt im Feld Data_1
Finish:
P2_Set_LED(module, 0)
ADwin-Pro II Software, Handbuch Apr. 2021
Seite 2099.
500000'Größe des Buffers
'1, 2, 4 oder 8 Kanäle
As Long'deutlich größer als Buffer
start_idx As Long
0 : Data_3[i] =
/ frq_Hz
'LED einschalten
module - 1))
2 /
+ count
'Index im Buffer merken
- prev_mem_idx *
'Index im Buffer merken
'Überlaufzähler erhöhen
'LED ausschalten
0 : Data_4[i] =
channels
2 / channels
Pro II: Eingangsmodule
P2_Burst_Read
0
83