Set ECal States
This example cycles through the state settings on the first ECal module it finds on the USB bus.
The state settings include all of the ECal states on Port A, Port B and the AB thru path. The first state on a port-pair path such as AB is the thru state that is used during calibrations. The second state on that path is the "confidence state" which is the equivalent of an attenuator that is used by the ECal Confidence Check feature.
The SCPI commands in this example are sent over a COM interface using the SCPIStringParser object. You do NOT need a GPIB connection to run this example.
This VBScript (*.vbs) program can be run as a macro in the PNA. To do this, copy the following code into a text editor file, such as Notepad, and save it on the PNA hard drive as *.vbs.
Learn how to setup and run the macro.
See Other SCPI Example Programs
|
Option Explicit Dim app Set app = CreateObject("AgilentPNA835x.Application") Dim scpi Set scpi = app.ScpiStringParser Dim moduleIndexList ' These are 1-based indices as opposed to 0-based, ' so if this query returns 0 it indicates there appear ' to be no ECal modules connected. moduleIndexList = Split( scpi.Parse("SENS:CORR:CKIT:ECAL:LIST?"), ",") If CInt(moduleIndexList(0)) = 0 Then MsgBox "No ECal module was found" WScript.Quit(0) End If SetStates("A") SetStates("B") SetStates("AB") MsgBox "Done" Sub SetStates(path) Dim pathNumStates pathNumStates = CInt( scpi.Parse("CONT:ECAL:MOD1:PATH:COUN? " + path) ) Dim stateNum For stateNum = 1 To pathNumStates Dim stateNumStr stateNumStr = CStr(stateNum) Dim pathDescr If Len(path) = 1 Then pathDescr = "port " + path Else pathDescr = "path " + path End If Dim isOK isOK = MsgBox("Click OK to switch to state number " + stateNumStr + " of " + pathDescr, vbOKCancel) If isOK = vbCancel Then WScript.Quit(0) scpi.Parse "CONT:ECAL:MOD1:PATH:STAT " + path + "," + stateNumStr Next End Sub |
Last Modified:
|
16-Mar-2011 |
New topic |