16-58
IM 765601-01E
16.4.4 Sample 2 (Example of Generating a Trigger from the PC and Reading the
Measured Results)
Attribute VB_Name = "Sample2"
'================================================================
'
' Sample 2 (Example of Generating a Trigger from the PC and Reading the Measured Results)
'
' CALL SampleSequence2()
'
'===============================================================
'----------------------------------------------------------------
'
' Setup 2
'
' <CH2 source settings>
' Source function: Voltage
' Source range: 20 V
' Limiter: ±50 mA
' Source level: -17.5 V
' Source trigger: External trigger
' Source delay: Minimum (= 15 us)
'
' <CH2 measurement settings>
' Measurement: ON
' Measurement function: Current
' Integration time: Minimum (= 250 us)
' Auto zero: OFF
' Measurement trigger Source change
' Measurement delay: 1 ms
'
' Output: ON
'
'----------------------------------------------------------------
Function Setup2(ByVal dev As Long)
Call CommSend(dev, "*RST") ' Reset to factory default settings
Call CommSend(dev, ":CHAN2:SOUR:FUNC VOLT") ' Source function Voltage
Call CommSend(dev, ":CHAN2:SOUR:RANG 20V") ' Source range 20 V
Call CommSend(dev, ":CHAN2:SOUR:PROT:LINK ON") ' Limiter tracking ON
Call CommSend(dev, ":CHAN2:SOUR:PROT:LEV 50mA") ' Limiter 50 mA
Call CommSend(dev, ":CHAN2:SOUR:PROT ON") ' Limiter ON
Call CommSend(dev, ":CHAN2:SOUR:LEV -17.5V") ' Source level -17.5 V
Call CommSend(dev, ":CHAN2:SOUR:TRIG EXT") ' Source trigger External trigger
Call CommSend(dev, ":CHAN2:SOUR:DEL MIN") ' Source delay Minimum
16.4 Sample Programs