JÄGER ADwin-Pro II Systembeschreibung Seite 22

Pro II: Allgemeine Befehle
P2_Sync_Enable
18
Beispiel
#Include ADwinPro_All.Inc
Dim i As Long
Dim Data_1[1000], Data_2[1000], Data_3[1000]
Dim Data_5[1000] As Long
- / -
Init:
Rem Kanäle auf den Modulen 1, 2, 4 und 5 aktivieren
P2_Sync_Enable(1,11b)
P2_Sync_Enable(2,11b)
P2_Sync_Enable(4,11b)
P2_Sync_Enable(5,100b)
P2_Write_DAC(5,1,0)
i=1
Event:
Rem Wandlung für Module 1,2,4,5 synchron starten
P2_Sync_All(11011b)
P2_Wait_EOC(1)
Rem A/D Wandler 1 der Module 1,2,4 auslesen
Data_1[i]=P2_Read_ADCF(1,1)
Data_2[i]=P2_Read_ADCF(2,1)
Data_3[i]=P2_Read_ADCF(4,1)
Rem Wert in Ausgangsregister des D/A Moduls 5 schreiben
P2_Write_DAC(5,1,Data_5[i])
If (i=1000) Then End
Inc(i)
'Ausgabe initialisieren
'Index initialisieren
'Auf des Ende der Wandlung warten
'Ende nach 1000 Durchläufen
'Index erhöhen
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
ADwin
As Long