Megohmmeter
Model 24508
Page 33
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
Contr
olling the
unit r
emotely
GOTO Ende1:
END IF:
IF Flag1$ <> CHR$(0) THEN ‘ungleich Binaer 0000 0000B = Fehler
PRINT „ Typ 24508 Steuer-Code-Fehler „‘optioneller Code zu If
CHR$(128)
GOTO Ende1: ‘deckt alle Fehler ab
END IF:
PRINT : PRINT : PRINT „ Messzeit Start und Warten auf Messergebnis“:
‘************* Messwert einholen und auf Bildschirm *********************
GOSUB einlesen:
‘Warten auf Messwert und Einlesen des
Messwertes
PRINT ‘Neue Zeile
PRINT „ Typ 24508 Daten$ = „ + Lesen$; ‘Wenn Timeout programmiert
dann minimale Messzeit warten
‘Antwort$ = Lesen$ = xx,yyyyy,Ezzz + CHR$(13)
‘xx = 8 Bit Flag in Hex
‘ = 00 = Messwert < Grenzwert (Isolation-Fehler)
‘ = 01 = Messwert > Grenzwert (ok)
‘ = 10 = Messwert < Messbereich
‘ = 20 = Messwert > Messbereich
‘ = 30 = Problem mit Umess (Kurzschluss)
‘ = 21 = Kombination 20 + 01
‘, = Datenseparator
‘yyyyy = Messwert 16 bits (0-65000)
‘E = Exponent
‘zzz
= Exponent ueber 8 bit mit Vorzeichen
‘ wenn >128 exponent = negativ
‘*********** Antwort zerlegen, zuerst Flag **************
Flag2$ = MID$(Lesen$, 1, 1):
PRINT „ Flag_2 = „; CHR$(ASC(Flag2$)); : ‘ Fehlercode in ASCII um-
setzen
SELECT CASE Flag2$
CASE CHR$(0) ‘Hex 00 Binaer 0000 0000B
PRINT „ Messwert < Grenzwert —> Isolations-Fehler“:
CASE CHR$(1) ‘Hex 01 Binaer 0000 0001B
PRINT „ Messwert > Grenzwert —> Isolation ok“:
CASE CHR$(16) ‘Hex 10 Binaer 0001 0000B
PRINT „ Messwert < Messbereich „:
