Megohmmeter
Model 24508
Page 34
Technical data
General informa
-
tion
Pr
eparations for
use
Contr
ols and con
-
nections
Manual operation
of the unit
Contr
olling the
unit r
emotely
Maintenance and customer service
‘*************** ;Messwert aufbereiten ********************
messwert$ = MID$(Lesen$, 3, 5):
exponent$ = MID$(Lesen$, 9, 3):
exponent = VAL(exponent$)
IF exponent > 128 THEN
exponent = (exponent - 128) * (-1): ‘negativer Exponent
END IF
IF exponent > 20 THEN
PRINT „*** Fehlermessung (offener Messkreis?) ***“: ‘ > Messbereiche
GOTO Ende1
END IF
messwert = VAL(messwert$) * 10 ^ exponent:
PRINT „ Messwert Zahl = „; messwert:
‘******************* Programm-Abschluss ****************
Ende1: ‘Einsprung bei Fehler
GOTO Programmschleife:
Ende2:
CLOSE #1 ‘Schnittstelle COM 1 schliessen
END: ‘Programmende
‘******************* Unterprogramm einlesen *************
einlesen: REM Unterprogramm aktuellen Input von Typ 24508
einlesen
I$ = „“: REM Variable loeschen
Lesen$ = „“: REM String loeschen
WHILE I$ <> CHR$(13): REM einlesen bis CR
I$ = INPUT$(1, #1): REM 1 Zeichen abholen
Lesen$ = Lesen$ + I$: REM Zeichen zusammensetzen
WEND: REM alle Zeichen abholen bis Ende = LF
RETURN:
CASE CHR$(32) ‘Hex 20 Binaer 0010 0000B
PRINT „ Messwert > Messbereich (oder offene Messleitungen) „:
CASE CHR$(33) ‘Hex 21 Binaer 0010 0001B
PRINT „ Messwert > Messbereich und Messwert > Grenzwert“:
CASE CHR$(48) ‘Hex 30 Binaer 0011 0000B
PRINT „***************************************************************“
END SELECT:
PRINT „ Message Typ 24508 = „; Lesen$:
Contr
olling the
unit r
emotely
