Other topics about Setting Measurement Conditions
The program listed in the below section is written in VISA-COM with Excel VBA. It can be executed from the external PC controller. The program demonstrates how to set up the measurement conditions.
Sub Setup()
'
'
' The memory area of the resource manager and the instrument I/O are acquired
Dim iomgr As VisaComLib.ResourceManager
Dim Analyzer As VisaComLib.FormattedIO488
Set iomgr = New VisaComLib.ResourceManager
Set Analyzer = New VisaComLib.FormattedIO488
' Open the instrument. Sets the GPIB address.
Set Analyzer.IO = iomgr.Open("GPIB0::17::INSTR")
' TimeOut time should be greater than the measurement time.
Analyzer.IO.timeout = 10000
'
' Initial Setup
Analyzer.WriteString ":SYST:PRES", True
' Set two channel
Analyzer.WriteString ":DISP:SPL D1_2", True
' Set trigger source at BUS.
Analyzer.WriteString ":TRIG:SOUR BUS", True
'
' Setup Channel 1
' Set measurement parameter for trace 1
Analyzer.WriteString ":CALC1:PAR1:DEF Z", True
' Set measurement parameter for trace 2
Analyzer.WriteString ":CALC1:PAR2:DEF TZ", True
' Set Y-Axis at Log format
Analyzer.WriteString ":DISP:WIND1:TRAC1:Y:SPAC LOG", True
' Stimulus Setup
' Turn on Continuous Activation mode for channel 1
Analyzer.WriteString ":INIT1:CONT ON", True
' Set sweep type at LOG
Analyzer.WriteString ":SENS1:SWE:TYPE LOG", True
' Set number of point
Analyzer.WriteString ":SENS1:SWE:POIN 201", True
' Set start freqency
Analyzer.WriteString ":SENS1:FREQ:STAR 10E3", True
' Set stop frequency
Analyzer.WriteString ":SENS1:FREQ:STOP 3E6", True
' Set OSC mode
Analyzer.WriteString ":SOUR1:MODE VOLT", True
' Set OSC level
Analyzer.WriteString ":SOUR1:VOLT 300E-3", True
'
' Setup Channel 2
' Set measurement parameter for trace 1
Analyzer.WriteString ":CALC2:PAR1:DEF CS", True
' Set measurement parameter for trace 2
Analyzer.WriteString ":CALC2:PAR2:DEF Q", True
' Split the trace windows
Analyzer.WriteString ":DISP:WIND2:SPL D1_2", True
' Stimulus Setup
' Turn on Continuous Activation mode for channel 1
Analyzer.WriteString ":INIT2:CONT ON", True
' Set sweep type at segment sweep
Analyzer.WriteString ":SENS2:SWE:TYPE SEGM", True
' Set segment dispay at freq base
Analyzer.WriteString ":DISP:WIND2:X:SPAC LIN", True
SegFmt = "7,0,1,0,0,0,0,0,3,"
SegNo1 = "1E4,1E5,50,0,0.3," ' Start Freq, Stop Freq, Nop, Voltage Type, OSC level
SegNo2 = "1E5,1E6,200,0,0.5,"
segNo3 = "1E5,1E6,50,0,0.3"
' Set sweep type at LOG"
Analyzer.WriteString ":SENS2:SEGM:DATA " & SegFmt & SegNo1 & SegNo2 & segNo3, True
'
' Save setting into state file
' Save settings to file
Analyzer.WriteString ":MMEM:STOR ""D:\State\Test.sta""", True
' Close IO
Analyzer.IO.Close
End Sub