JÄGER ADwin-Pro II Systembeschreibung Seite 145

ADwin
Beispiel
#Include ADwinPro_All.inc
#Define module 5
#Define dac_no 1
Dim value[4] As Long
Dim ramp_active As Long
Init:
Processdelay = 6000
Rem stop possibly running ramp
P2_DAC_Ramp_Stop(module,
Rem write ramp, set ramp -2V..0V, time 10.5µs, no digital values
P2_DAC_Ramp_Write(module,dac_no,0,32768,0,0,10500,001b)
ramp_active = 1
Rem Do settings for output fifo (start output later)
value[1] = 0C001C000h
value[2] = 500
value[3] = 0C002FFFFh
value[4] = 700
P2_Dig_Fifo_Mode(module,3)
P2_Digout_Fifo_Clear(module)
P2_Digout_Fifo_Enable(module,11b)
Rem write 2 value pairs into output FIFO
P2_Digout_Fifo_Write(module,2,value,1)
Event:
If (ramp_active <> 0)
Rem As Long as ramp was running: check status
ramp_active = P2_DAC_Ramp_Status(module,
Else
Rem ramp has finished -> start output FIFO
P2_Digout_Fifo_Start(Shift_Left(1,module-1))
Rem write new value pairs into FIFO, if possible
If (P2_Digout_Fifo_Empty(module) >= 2)
P2_Digout_Fifo_Write(module,2,value,1)
EndIf
EndIf
ADwin-Pro II Software, Handbuch Apr. 2021
'6000 x 3.3 ns = 20µs
dac_no)
'output 1V, dig. output 16
' with output time 5 µs (relative)
'output 2V, dig. output 17
' with output time 7 µs (relative)
'Set FIFO as relative output
'clear FIFO
'Enable output channels 0+1
Then
Then
Pro II: Analoge Ausgänge
dac_no)
P2_DAC_Ramp_Status
141