ABB Protronic 100 Bedienungsanleitung Seite 40

'Demoprogramm zur Bearbeitung von IEEE-Werte-Darstellung
'in Quick-Basic 4.5
'-------------------------------------------------------
DECLARE FUNCTION BINAER$ (z$)
CLS
DO UNTIL i = 127
'----------------------------------------------------------
'Aufbereitung:
'==========================================================
'Vorzeichen separieren
'----------------------------------------------------------
'Exponenten bestimmen
ELSE
END IF
'----------------------------------------------------------
'Mantisse bestimmen
'----------------------------------------------------------
'Worte und Bytes für Telegramm bestimmen
'-------------------------------------------------------
'Kontrolldarstellung
'=======================================================
'Zurückrechnen
'-------------------------------------------------------
'es sind empfangen worden die Bytes(0) bis Byte(3)
'-------------------------------------------------------
'Vorzeichen ist in Bit 7 von Byte(3) kodiert
Vorzeichen = 1
40 Protronic 100/500/550, Digitric 500, MODBUS-Schnittstellenbeschreibung
INPUT "Realwert (e = ende) "; RealWert
IF UCASE$(RealWert$) = "E" THEN END
RealWert! = VAL(RealWert$)
Vorzeichen = 0
IF RealWert! < 0 THEN
RealWert! = RealWert! * (-1)
Vorzeichen = -1
END IF
Exponent% = 0
X! = RealWert!
IF X! > 1 THEN
DO UNTIL X! < 1
X! = X! / 2
Exponent% = Exponent% + 1
LOOP
Exponent% = Exponent% - 1
DO UNTIL X! > 1
X! = X! * 2
Exponent% = Exponent% - 1
LOOP
PRINT Exponent%
Mantisse = RealWert! * (2 ^ (23 - Exponent%))
Mantisse = Mantisse AND &H7FFFFF
Exponent% = (Exponent% + &H7F) * 128
Date0 = Mantisse MOD &H10000
Date1 = Mantisse \ &H10000 + Exponent%
Byte(0) = Date0 MOD 256
Byte(1) = Date0 \ 256
Byte(2) = Date1 MOD 256
Byte(3) = Date1 \ 256 + ((-1) * Vorzeichen) * &H80
PRINT "IEEE-Wert: ";
FOR i = 3 TO 0 STEP -1
PRINT BINAER$(HEX$(Byte(i)));
NEXT
PRINT
Version 1.0
Anhang 3
42/62-50040 DE