Anritsu MS2026C - Ms20 Xxc PM PN: 10580-00306 Rev. E

Example Visual Basic
MS20xxC PM PN: 10580-00306 Rev. E A-9
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
'read back the strat frequency
sInputString = ":SENSe:FREQuency:STARt?" & vbLf
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Buffer = ""
stat = viRead(sesn, Buffer, MAX_CNT, retCount)
'Set stop frequency
sInputString = "SENSe:FREQuency:STOP 7 GHz" & vbLf
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
'read back the stop frequency
sInputString = ":SENSe:FREQuency:STOP?" & vbLf
stat = viWrite(sesn, sInputString, Len(sInputString), retCount)
Buffer = ""
stat = viRead(sesn, Buffer, MAX_CNT, retCount)
Rem Close down the system
stat = viClose(sesn)
stat = viClose(dfltRM)
End Sub