Rohde & Schwarz R&S UPP, User Manual

Page: 693 / 938

Remote Control - Fundamentals
R&S
®
UPP
677 User Manual 1411.1055.32 ─ 10
EventList.AddItem "ESR register is: " + Left(Response, ibcntl - 1)
DoEvents
End Sub
'SRQ subroutine in case RQS was set
Private Sub GPIB_Notify(ByVal LocalUPV As Long, ByVal LocalIbsta As Long, ByVal LocalIberr As Long,
ByVal LocalIbcntl As Long, RearmMask As Long)
Call ibrsp(UPV, Info): 'do a serial poll and read STB
EventList.AddItem "SRQ " + " was fired after " + Trim(Str(Timer - StartT)) + " s"
EventList.AddItem "STB register is: " + Trim(Str(Info))
Call ReadESR
ibloc UPV 'switch UPV to local
ibonl UPV, 0 'switch interface offline
End Sub
Private Sub Test_Click(): 'main program
Call ibdev(0, 20, 0, T3s, 1, 0, UPV) 'attach instrument
Call ibconfig(0, IbcAUTOPOLL, 1) 'enable auto serial polling
Call ibconfig(0, IbcEndBitIsNormal, 1 'set END bit on EOS match during read
Call ibconfig(0, IbcEOScmp, 0) ''7 bit EOS char
Call ibconfig(0, IbcEOSrd, 1) 'terminate read by EOS char
Call ibconfig(0, IbcEOSchar, 10) 'EOS character LF as terminator
Call ibclr(UPV) 'device clear
Call ibwrt(UPV, "*IDN?") 'ask for instrument identity
Call ibrd(UPV, Response) 'read query result
EventList.AddItem Left(Response, ibcntl - 1) 'display query result as message box
DoEvents
Call ibwrt(UPV, "*CLS") 'reset registers
Call ibwrt(UPV, "*ESE 1") 'enable operation complete bit to set ESB
Call ibwrt(UPV, "*SRE 32") 'ESB bit generates SRQ
Call ReadESR 'reading clears ESR register
GPIB.SetupMask = RQS 'set notify mask to Service Request
GPIB.SetupNotify UPV 'call and enable notify function
EventList.AddItem "SRQ enabled ..."
Status Reporting System