Anritsu Site Master S331L Scpi Programming Manual

A-3 Visual Basic Appendix A — Examples
A-8 PN: 10580-00322 Rev. F S331L PM
sInputString = "SENSe:CORRection:COLLect:INITialize"
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)
'measure open
MsgBox "Connect open at port 1"
sInputString = ":SENSe:CORRection:COLLect:OPEN"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Do
Sleep (200)
'wait open measurement to complete and returns 1
sInputString = ":SENSe:CORRection:COLLect:STATus? OPEN"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
stat = viRead(sesn, Buffer, MAX_CNT, retCount)
Loop Until Val(Buffer) = 1
'measure short
MsgBox "Connect short at port 1"
sInputString = ":SENSe:CORRection:COLLect:SHORt"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Do
Sleep (200)
'wait short measurement to complete and returns 1
sInputString = ":SENSe:CORRection:COLLect:STATus? SHORt"
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
stat = viRead(sesn, Buffer, MAX_CNT, retCount)
Loop Until Val(Buffer) = 1
'measure load

Anritsu Site Master S331L Specifications

General

Brand	Anritsu
Model	Site Master S331L
Category	Measuring Instruments
Language	English