Rohde & Schwarz FSVA - Page 1011

Remote Control
R&S
®
FSVA/FSV
1011Operating Manual 1176.7510.02 ─ 09
'For example on TCP use TCPIP0::192.168.1.2::inst0::INSTR
mbSession = CType(ResourceManager.GetLocalManager().Open("FSV"), _
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")
'If SRQ is recognized => subroutine for evaluation
Srq()
End If
Catch exp As Exception
Console.WriteLine(exp.Message)
End Try
Catch exp As InvalidCastException
Console.WriteLine("Resource selected must be a message-based session")
Catch exp As Exception
Console.WriteLine(exp.Message)
End Try
' Close session
mbSession.Dispose()
' Wait for end
Console.WriteLine("Press any key to end")
Remote Control – Programming Examples