Rohde & Schwarz R&S FSP Series, Руководство по эксплуатации

Страница: 739 / 796

Operating Manual 1164.4556.12 - 06 7.5
R&S FSP Remote Control – Programming Examples
Basic Programming Steps for the VISA Interface
The following programming example describes the Hold() function, which returns
control to the operating system for the period of the waiting time selectable in milli-
seconds.
Rem **********************************************************************
Rem The waiting function below expects the transfer of the desired
Rem waiting time in milliseconds. The keyboard and the mouse remain
Rem operative during the waiting period, thus allowing desired elements
Rem to be controlled
REM **********************************************************************
Public SUB Hold(delayTime As Single)
Start = Timer
'Save timer count on calling the function
DO While Timer < Start + delayTime / 1000
'Check timer count
DoEvents
'Return control to operating system to enable control of
desired elements as long as timer has not elapsed
LOOP
END SUB
REM **********************************************************************
The waiting procedure is activated simply by calling Hold(<Waiting time in millisec-
onds>) .
7.2.1.4 Service Request Routine
A service request is processed in the service request routine.
REM ------------ Service request routine ----------------------------------
Public SUB Srq()
ON ERROR GOTO noDevice
'No user existing
Call viReadSTB(analyzer, STB%)
'Serial poll, read status byte
IF STB% > 0 THEN
'This instrument has bits set in the STB
SRQFOUND% = 1
IF (STB% AND 16) > 0 THEN CALL Outputqueue
IF (STB% AND 4) > 0 THEN CALL ErrorQueueHandler
IF (STB% AND 8) > 0 THEN CALL Questionablestatus
IF (STB% AND 128) > 0 THEN CALL Operationstatus
IF (STB% AND 32) > 0 THEN CALL Esrread
END IF
noDevice:
END SUB
REM ***********************************************************************
Reading out the status event registers, the output buffer and the error/event queue
is effected in subroutines.