Sweep Operation 9-23
Sweep branching program example
The code fragment below is a Visual Basic sweep branching subroutine. This example sets
up source memory locations 1-3 as indicated in code comments. Location 100 is used as a
dummy location. Failure at any one of locations 1-3 causes a branch to location 100 to stop the
sweep as soon as possible in the event of failure. For all three source memory locations, operat-
ing modes are set as follows:
• Source function: volts, 10V output voltage
• Measurement function: current, 100mA range, 105mA compliance
• Delay: 1s
Test limits for the three memory locations are:
• Location 1: 10mA to 20mA
• Location 2: 20mA to 30mA
• Location 3: 30mA to 40mA
Attribute VB_Name = “Headers”
Option Explicit
Public Sub RunSourceMemory()
Dim intGPIB As Integer
Dim strAnswer As String
intGPIB = 24 ‘ Primary address = 24.
Call OutputCmd(intGPIB, “:TRAC:CLE”) ‘Clear Readings from Buffer
‘Setup Source Memory Location 1
‘------------------------------
Call OutputCmd(intGPIB, “*RST”) ‘Restore GPIB default conditions.
Call OutputCmd(intGPIB, “:SOUR:FUNC VOLT”) ‘Current Source Function.
Call OutputCmd(intGPIB, “:SENS:FUNC ‘CURR:DC’”) ‘Current Sense Function.
Call OutputCmd(intGPIB, “:SENS:CURR:PROT .105”) ‘Set 105mA Compliance
Call OutputCmd(intGPIB, “:SENS:CURR:RANGE .1”) ‘Set 100mA Current Measure Range
Call OutputCmd(intGPIB, “:SOUR:DEL 1”) ‘Set Source Delay to 1
Call OutputCmd(intGPIB, “:SOUR:VOLT 10”) ‘10V Source Voltage.
Call OutputCmd(intGPIB, “:CALC2:FEED CURR”) ‘Send Current(A) Readings to Buffer
Call OutputCmd(intGPIB, “:CALC2:LIM1:STAT ON”) ‘Set Limit1 on
Call OutputCmd(intGPIB, “:CALC2:LIM1:COMP:FAIL IN”) ‘Set Fail Mode to In Compliance
Call OutputCmd(intGPIB, “:CALC2:LIM1:COMP:SOUR2 8”) ‘Set Digital Output Pattern for Compliance Failure
Call OutputCmd(intGPIB, “:CALC2:LIM2:STAT ON”) ‘Set Limit2 on
Call OutputCmd(intGPIB, “:CALC2:LIM2:UPP 2E-2”) ‘Set Upper Limit to 20mA
Call OutputCmd(intGPIB, “:CALC2:LIM2:LOW 1E-3”) ‘Set Lower Limit to 10mA
Call OutputCmd(intGPIB, “:CALC2:LIM2:UPP:SOUR2 2”) ‘Set Digital Output Pattern for Upper Limit #2
Failure
Call OutputCmd(intGPIB, “:CALC2:LIM2:LOW:SOUR2 3”) ‘Set Digital Output Pattern for Lower Limit #2
Failure
Call OutputCmd(intGPIB, “:CALC2:CLIM:PASS:SOUR2 13”) ‘Set Digital Output Pattern for Limit #2 Passing
Call OutputCmd(intGPIB, “:CALC2:CLIM:MODE GRAD”) ‘Set Limit Results to Grading
Call OutputCmd(intGPIB, “:CALC2:CLIM:BCON END”) ‘Set Binning Control to End
Call OutputCmd(intGPIB, “:CALC2:CLIM:PASS:SML NEXT”) ‘Set SML Pass Location
Call OutputCmd(intGPIB, “:CALC2:CLIM:FAIL:SML 100”) ‘Set SML Fail Location
Call OutputCmd(intGPIB, “:SOUR:MEM:SAVE 1”) ‘Save in Source Memory Location 1.
To Next Page
Loading...
Need help?
General
