int8 Vorzeichenproblem

Hallo,

ich versuche gerade einem DS18S20 Werte unter 0°C abzuringen und
es klappt es einfach nicht...

Folgendes habe ich versucht (FTemp ist vom Typ Int8, TMsb und TLsb vom Typ Byte) :
...
if TMsb = $00 then
TLsb := TLsb shr 1;
FTemp := Int8(TLsb);

Else

TLsb := (not TLsb)+1; // Two's Complement
TLsb := TLsb shr 1; // Ganzzahlig
FTemp := Int8(TLsb); // so damit neg. Zahlen mögl. sind

bis hierher stimmen die Werte... es kommt Bei meinem Testbeispiel 25 heraus...

Incl(FTemp, 7); //

und hier bekomme ich keine -25 sondern -103..


EndIf;
...

Gebe ich FTemp := -25; ein bekomme ich auch auf dem Display
auch -25 angezeigt, wenn ich hingegen folgendes probiere:

FTemp := 0;
Incl(FTemp, 7);

bekomme ich -128 heraus, was ja ausserhalb des int8 Wertebereichs liegt.

Mache ich hier einen kompletten Denkfehler???

Grüße

Elmar

Hallo Gunter

Vielen Dank für deine Hilfe,
ich möchte die Temperatur eines ds18s20 auslesen und darstellen. Für positive Werte klappt das auch. Nur die negativen machen mir Probleme. Ich habe zwei Byte - eines fürs Vorzeichen und eines mit der Temperatur - als 2'Komplement. Wenn ich das umrechne bekomme ich zwar den korrekten positiven Wert - aber beim umwandeln eben nicht den korrekten negativeb Wert.
Ich bekomme nicht -25 sondern -103. Ich habe angenommen, dass das Bit 7 das Vorzeichen Bit ist.
In der Hilfe steht auch folgendes:

int8
ShortInt

1. Vordefinierter Type. Short Integer.
8bit, 1 Byte, -127..128

daher mein Verdacht, dass der Wert ausserhalb des Wertebereichs liegt.
Wie mache ich denn aus einer positiven 25 eine negative -25 ?

Entschuldigung wenn das absolute Grundlagen sind aber in Delphi oder Lazarus
ist das irgendwie einfacher...

Gruß

Elmar

Hi Elmar,

stimmt! In der Online Hilfe ist da ein Schreibfehler (in den Manuals ist es OK)
(ist beim nächsten Update dann auch aus der Hilfe raus).

Aus Integern (beliebiger Länge) macht Du mittels
myInt := -(myInt);
den negativen Wert!

Mit 2'Komplementen hast Du nix zutun!
Bit Operationen sind nur bei binären Variablen sinnvoll (Byte, Word, ...).
Oder auch bei BitSets (ist aber andere "Baustelle").


Nö!
Pascal ist eine ausgewachsene Programmiersprache auf die Delphi aufbaut.
OK. OOP, Fensterverwaltung, Events, ... gibt es da natürlich noch nicht
(bzw. beim AVRco schon, in den System-bedingt engen Grenzen).

Aber Bit-Manipulationen sind nur notwendig, wenn man eigene Hardware
ansteuern muss. Arithmeti läuft (mit den verfügbaren Typen) genauso wie
in Delphi!

Gruß
Gunter

p.s.
ich habe Dein letztes Posting ("löschen") mal editiert!