burster 2329 Bedienungsanleitung Seite 137

Typ 2329
antwort$ = SPACE$(5
IF (CmdEmpfangen(id2329%, antwort$) = 0) THEN
SYSTEM
END IF
LeseOperEventReg = VAL(antwort$)
END FUNCTION
FUNCTION LeseQuestFresReg (id2329%)
********************************************************************************************************************************
'Questionable Fres Register auslesen
'********************************************************************************************************************************
DIM befehl$(50)
befehl$ = "stat:ques:fres?"
IF (CmdSenden(id2329%, befehl$) = 0) THEN
SYSTEM
END IF
antwort$ = SPACE$(4)
IF (CmdEmpfangen(id2329%, antwort$) = 0) THEN
SYSTEM
END IF
LeseQuestFresReg = VAL(antwort$) ' Rückgabewert übergeben
END FUNCTION
FUNCTION LeseQuestReg (id2329%)
'********************************************************************************************************************************
'Questionable Fres Register auslesen
'********************************************************************************************************************************
DIM befehl$(50)
befehl$ = "stat:ques?"
IF (CmdSenden(id2329%, befehl$) = 0) THEN
SYSTEM
END IF
antwort$ = SPACE$(4)
IF (CmdEmpfangen(id2329%, antwort$) = 0) THEN ' Register abholen
SYSTEM
END IF
LeseQuestReg = VAL(antwort$)
END FUNCTION
RESISTOMAT
'Buffer unbedingt vorbesetzen
'Rückgabewert übergeben
'Buffer unbedingt vorbesetzen
'Buffer unbedingt vorbesetzen
'Rückgabewert übergeben
®
'Register abholen
'Register anfordern
'Register abholen
'Register anfordern
Seite 137