R&S FSV3013 - Page 1203

Remote Commands
R&S
®
FSVA3000/ R&S
®
FSV3000
1203User Manual 1178.8520.02 ─ 01
Status = viWaitOnEvent(analyzer, VI_EVENT_SERVICE_REQ, SRQWaitTimeout, VI_NULL,
VI_NULL)
IF (status = VI_SUCCESS) THEN CALL Srq
'If SRQ is recognized =>
'subroutine for evaluation
END SUB
REM ***********************************************************************
Private mbSession As MessageBasedSession
Sub Main()
Console.WriteLine("Example of initialization _
of the SRQ in the case of errors.")
Dim SRQWaitTimeout = 4000 ' Timeout As Integer for WaitOnEvent
'Opening session
Try
'FSW is alias, instead of use resource string.
'For example on TCP use TCPIP0::192.168.1.2::inst0::INSTR
mbSession = CType(ResourceManager.GetLocalManager().Open("FSW"), _
MessageBasedSession)
mbSession.TerminationCharacterEnabled = True
Try
mbSession.Write("*CLS") 'Reset status reporting system
mbSession.Write("*SRE 168") 'Enable service request for
'STAT:OPER, STAT:QUES and ESR register
mbSession.Write("*ESE 60") 'Set event enable bit for
'command, execution, device-dependent and query error
mbSession.Write("STAT:OPER:ENAB 32767")
'Set OPERation enable bit for all events
mbSession.Write("STAT:OPER:PTR 32767")
'Set appropriate OPERation Ptransition bits
mbSession.Write("STAT:QUES:ENAB 32767")
'Set questionable enable bits for all events
mbSession.Write("STAT:QUES:PTR 32767")
'Set appropriate questionable Ptransition bits
Console.WriteLine("Wait on event - Blocking")
mbSession.EnableEvent(MessageBasedSessionEventType.ServiceRequest, _
EventMechanism.Queue)
'Enable the event for service request
'------------------------------------------------
' Your command plase use here
' mbSession.Write("Your command")
'------------------------------------------------
Dim Status = mbSession.WaitOnEvent( _
MessageBasedSessionEventType.ServiceRequest, SRQWaitTimeout)
If (Status.EventType() = _
MessageBasedSessionEventType.ServiceRequest) Then
Console.WriteLine("SRQ is recognized")
Programming Examples