Rohde & Schwarz FPL1000 Manuel D'utilisation page 1027

®
R&S FPL1000
Catch exp As InvalidCastException
Catch exp As Exception
End Try
' Close session
mbSession.Dispose()
' Wait for end
Console.WriteLine("Press any key to end")
Console.ReadKey()
End Sub
10.12.7.2 Waiting for the arrival of a service request
There are basically two methods of waiting for the arrival of a service request:
Manuel d'utilisation 1179.5860.09 - 12
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, _
'Enable the event for service request
'------------------------------------------------
' Your command plase use here
' mbSession.Write("Your command")
'------------------------------------------------
Dim Status = mbSession.WaitOnEvent( _
If (Status.EventType() = _
Console.WriteLine("SRQ is recognized")
'If SRQ is recognized => subroutine for evaluation
Srq()
End If
Catch exp As Exception
Console.WriteLine(exp.Message)
End Try
Console.WriteLine("Resource selected must be a message-based session")
Console.WriteLine(exp.Message)
EventMechanism.Queue)
MessageBasedSessionEventType.ServiceRequest, SRQWaitTimeout)
MessageBasedSessionEventType.ServiceRequest) Then
Remote commands
Using the status register
1027
1027