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
Index
App
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