Agilent Technologies 33250A Guide D'utilisation page 303

'
' AM Modulation
'
Arb.Output "OUTPut:LOAD INFinity"
Arb.Output "APPLy:SINusoid 1e6,1,0"
Arb.Output "AM:INTernal:FUNCtion RAMP"
Arb.Output "AM:INTernal:FREQuency 10e3" ' Modulating frequency: 10kHz
Arb.Output "AM:DEPTh 80"
Arb.Output "AM:STATe ON"
Check_Errors
MsgBox "AM Modulation", vbOKOnly, "33250A Example"
Arb.Output "AM:STATe OFF"
'
' FM Modulation
'
Arb.Output "outp:load 50"
Arb.Output "appl:sin 20e3,1,0"
Arb.Output "fm:dev 20e3"
Arb.Output "fm:int:freq 1000"
Arb.Output "fm:stat on"
Check_Errors
MsgBox "FM Modulation", vbOKOnly, "33250A Example"
Arb.Output "fm:stat off"
'
' Linear Sweep
'
Arb.Output "sweep:time 1"
Arb.Output "freq:start 100"
Arb.Output "freq:stop 20000"
Arb.Output "sweep:stat on"
Check_Errors
MsgBox "Linear Sweep", vbOKOnly, "33250A Example"
Arb.Output "sweep:stat off"
'
' Pulse Waveform with variable Edge Times
'
Arb.Output "output:state off"
Arb.Output "volt:low 0;:volt:high 0.75" ' Low = 0V, High = 0.75V
Arb.Output "pulse:period 1e-3"
Arb.Output "pulse:width 100e-6"
Arb.Output "pulse:tran 10e-6"
Arb.Output "func pulse"
Arb.Output "output:state on"
For i = 1 To 20
Arb.Output "puls:tran " & (0.00001 + i * 0.000001)
Sleep 300
Next i
Check_Errors
MsgBox "Pulse Waveform with variable Edge Times", vbOKOnly, "33250A Example"
Suite à la page suivante...
Chapitre 6 Programmes d'application
Exemple : Microsoft Visual Basic pour Windows
' Configure for Hi Z load
' 1MHz Sine, 1Vpp, 0Vdc offset
' Modulating signal: Ramp
' Modulating depth: 80%
' Turn ON AM modulation
' Routine checks for errors
' Turn OFF AM modulation
' Configure for 50 ohm load
' 20kHz Sine, 1Vpp, 0Vdc Offset
' FM deviation: 20kHz
' FM Modulating Freq: 1kHz
' Turn ON FM modulation
' Routine checks for errors
' Turn OFF FM modulation
' 1 second sweep time
' Start frequency: 100Hz
' Stop frequency: 20kHz
' Turn ON sweeping
' Routine checks for errors
' Turn OFF sweeping
' Disable Output BNC
' 1ms intervals
' 100us pulse width
' Edge time 10us
' Select Function Pulse
' Enable Output BNC
' Vary edge by 1usec steps
' Wait 300msec
' Routine checks for errors
4
6
303