A-4 Visual Basic Appendix A — Examples
A-12 PN: 10580-00322 Rev. F S331L PM
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 4 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