Hallo,
ich suche nach einem Algorythmus, der mir 1,2 und 3-Stellige Zahlen auf einem Display zentriert. Dabei soll das ganze auch harmonisch aussehen (Abstände zwischen den Zahlen). Es handelt sich um ein "EA eDIP320-8" Display, dass ich mittels XPort ansteuer.
Ich zeig euch einfach mal meinen Ansatz, das erklärt's besser als eine schriftliche Beschreibung:
Delphi-Quellcode:
function DisplayDigit(aNumbers: integer): boolean;
const DspWidth=320; // Breite des Displays
var cText: string;
n, nLeft: integer;
nTmp: integer;
DWidth, DWidthSum: integer;
Numbers: array of integer;
begin
ClientConnect;
DWidthSum:=0; // Breite aller Zahlen
SetLength(Numbers,Length(inttostr(aNumbers)));
for n:= Low(Numbers) to High(Numbers) do
begin
Numbers[n]:= StrToInt(inttostr(aNumbers)[n+1]);
DWidthSum:= DWidthSum+GetDigitWidth(Numbers[n],false); // Die Funktion GetDigitWidth läd das Bitmap-File ein und list die Breite aus
end;
if DWidthSum < DspWidth then // Falls die Display-Breite nicht ausgenutzt wird, dann das Übrige später als Rand aufaddieren
begin
nTmp:= Round((DWidthSum-DspWidth)/(High(Numbers)+1));
end;
for n:= High(Numbers) downto Low(Numbers) do // Hier wird Zahl für Zahl das Display mit den Bitmaps beschriftet
begin
DWidth:= GetDigitWidth(Numbers[n],false); // Breite des aktuellen Digits
nLeft:= Round(DWidthSum-(DWidth/(High(Numbers)+1)))-Round(DWidth/2);
nLeft:= nLeft+nTmp;
SendText2Dsp(nLeft,...);
DWidthSum:= (DWidthSum - DWidth);
end;
ClientDisconnect;
end;
So hab ich mir das ganze überlegt, funktioniert aber nicht immer. Natürlich könnte ich einfach auf bestimme Zahlenlängen abfragen, aber ich brauche was universelles, was auch im Falle eines größeren Display funktionieren würde.
Im Anhang könnt ihr das Ergebnis der Funktion sehen.
Hat von euch jemand eine Idee wie ich das lösen kann?
Viele Grüße
Croco