Burster RESISTOMAT 2329, Руководство по эксплуатации

Страница: 139 / 148

139
of 148
antwort$ = SPACE$(5 ‘Pre-assign buffer
IF (CmdEmpfangen(id2329%, antwort$) = 0) THEN ‘Fetch register contents
SYSTEM
END
IF
LeseOperEventReg = VAL(antwort$) ‘Return value
END FUNCTION
FUNCTION LeseQuestFresReg (id2329%)
********************************************************************************************************************************
‘Read out Questionable Fres Register
‘********************************************************************************************************************************
DIM
befehl$(50)
befehl$ = "stat:ques:fres?" ‘Scan register
IF (CmdSenden(id2329%, befehl$) = 0) THEN
SYSTEM
END
IF
antwort$ = SPACE$(4) ‘Pre-assign buffer
IF (CmdEmpfangen(id2329%, antwort$) = 0) THEN ‘Fetch register contents
SYSTEM
END
IF
LeseQuestFresReg = VAL(antwort$) ‘Return value
END FUNCTION
FUNCTION LeseQuestReg (id2329%)
‘********************************************************************************************************************************
‘Read out Questionable Fres Register
‘********************************************************************************************************************************
DIM
befehl$(50)
befehl$ = "stat:ques?" ‘Scan register
IF (CmdSenden(id2329%, befehl$) = 0) THEN
SYSTEM
END
IF
antwort$ = SPACE$(4) ‘Pre-assign buffer
IF (CmdEmpfangen(id2329%, antwort$) = 0) THEN ‘Fetch register contents
SYSTEM
END
IF
LeseQuestReg = VAL(antwort$) ‘Return value
END FUNCTION