16-59
IM 765501-01E
Communication Commands
3
2
1
6
5
4
9
8
7
12
11
10
15
14
13
18
17
16
16.4.6 Sample 4 (Example of Updating the Source Level with the Sweep
Function)
Attribute VB_Name = “Sample4”
‘================================================================
‘
‘ Sample 4 (Example of Updating the Source Level with the Sweep Function)
‘
‘ CALL SampleSequence4().
‘
‘===============================================================
‘————————————————————————————————
‘
‘ Setup 4
‘
‘
‘ <Source setting>
‘ Source mode: Pulse
‘ Sweep: ON
‘ Source function: Voltage
‘ Source range setting: 12 V
‘ Limiter: OFF
‘ Source level: 0 V
‘
‘ <Pulse settings>
‘ Pulse base: –10 V
‘ Pulse width: 500 us
‘
‘ <Sweep setting>
‘ Type: Linear
‘ Range: 0 V to 10 V 0.1 V steps
‘ Sweep count: 1
‘ Level after the sweep operation: Reset to the initial level
‘
‘ <Measurement setting>
‘ Measurement: OFF
‘
‘ <Trigger setting>
‘ Trigger source: Internal trigger 10 ms period
‘ Source delay: Minimum (= 1 us)
‘
‘ Output: ON
‘
‘————————————————————————————————
Function Setup4(dev As Integer)
Call CommSend(dev, “*RST”) ‘ Reset to factory default
settings
Call CommSend(dev, “:SOUR:SHAP PULS”) ‘ Pulse source mode
Call CommSend(dev, “:SOUR:MODE SWE”) ‘ Sweep mode
Call CommSend(dev, “:SOUR:FUNC VOLT”) ‘ Source function Voltage
Call CommSend(dev, “:SOUR:VOLT:RANG 12”) ‘ Source range setting 12 V
Call CommSend(dev, “:SOUR:CURR:PROT:STAT OFF”)‘ Limiter OFF
Call CommSend(dev, “:SOUR:VOLT:LEV 0V”) ‘ Source level 0 V
Call CommSend(dev, “:SOUR:VOLT:PBAS -10.0V”) ‘ Pulse base –10 V
Call CommSend(dev, “:SOUR:PULS:WIDT 500us”) ‘ Pulse width 500 us
Call CommSend(dev, “:SOUR:VOLT:SWE:SPAC LIN”) ‘ Linear sweep
Call CommSend(dev, “:SOUR:VOLT:SWE:STAR 0”) ‘ Start 0 V
Call CommSend(dev, “:SOUR:VOLT:SWE:STOP 10”) ‘ Stop 10 V
Call CommSend(dev, “:SOUR:VOLT:SWE:STEP 0.1”) ‘ Step 0.1 V
Call CommSend(dev, “:SWE:COUN 1”) ‘ Sweep count 1
Call CommSend(dev, “:SWE:LAST RET”) ‘ Level after the sweep operation
Initial level
16.4 Sample Programs