Anritsu Site Master S331L Scpi Programming Manual

Appendix A — Examples A-3 Visual Basic
S331L PM PN: 10580-00322 Rev. F A-7
sInputString = ":INST:NSEL 2"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Do
Sleep (200)
sInputString = ":INST:NSEL?"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
stat = viRead(sesn, Buffer, MAX_CNT, retCount)
Loop Until Val(Buffer) = 2
'System preset
sInputString = ":SYSTEM:PRESET"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
'Wait for previous operation to be completed
sInputString = "*OPC?"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Buffer = ""
stat = viRead(sesn, Buffer, MAX_CNT, retCount)
'Set start frequency
sInputString = ":SENSe:FREQuency:STARt 2 MHz"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
'Set stop frequency
sInputString = "SENSe:FREQuency:STOP 4 GHz"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
'Initiate One-port Calibration
sInputString = "SENSe:CORRection:COLLect:TYPE RFP1"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
'Wait for previous operation to be completed
sInputString = "*OPC?"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Buffer = ""
stat = viRead(sesn, Buffer, MAX_CNT, retCount)

Anritsu Site Master S331L Specifications

General

Brand	Anritsu
Model	Site Master S331L
Category	Measuring Instruments
Language	English