Hallo,

hab mal eine Frage, speziell an die GIS. Ich habe folgenden Pascal-Code, den ich in Java gern vorliegen hätte.

 
function TForm1.GetValue(ch: Integer; chL, chH: Byte): string;
var
  y: SmallInt;
begin
  y:= SmallInt(256*chH+ chL);
 
  if (y and $2000) = 0 then
    y:= y and $1FFF
  else
    y:= y or $E000;
  Result:= FormatFloat('0.000 g', 0.004*y);
  end;
end;

in JAVA habe ich es so gemacht:

 
  private double getValue(int sensorType, int chL, int chH) {
    double value = 256*(byte)chH + (byte)chL;
 
    if (((int)value & 0x2000) == 0)
      value = (int)value & 0x1FFF;
    else
      value = (int)value | 0xE000;
    return 0.004*value;
  }

das scheint aber nicht 100%ig korrekt zu sein. Ich erhalte aus dem Delphi-Tool andere Werte als aus meinem JAVA-Programm. Kann mir einer sagen, wo der Fehler leigt?

Gruß Micha

--
applied-geodesy.org - OpenSource Least-Squares Adjustment Software for Geodetic Sciences

Tags:
Java, Pascal