Einzelnen Beitrag anzeigen

SimOr

Registriert seit: 25. Sep 2003
Ort: Moers
33 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Realzahl nach Integer formatiern

  Alt 19. Feb 2004, 22:52
Is ja auch egal...irgendwie will das ganze programm aber nich...magut, ein großteil geht...
also ich umreiß das mal so grob
Geradengleichung y=mx+n is ja jedem geläufig..ich programmier so als zusätzliche übung eben was , wenn ich x1,y1 und x2,y2 eingeben sagt es mir in nem memofeld die steigung, den y-achsenabschnitt sowie die formel mit den werten nochmal eingesetzt...
naja, alles schön, bis auf das zeichnen einger gerade...
ich hab die realzahlen der koordinaten in integer umgewandelt und so weiter und so fort..
naja, jetzt zeichnet der die gerade aber nich so wie man das anhand der koordinaten glauben sollte, sondern, wie ich glaube, um 90 ° verdreht...ich zeig euch mal die passage mit der ich die koordinaten ausrechne
Delphi-Quellcode:
  Kx1:=round(X1)+265;
  Kx2:=round(X2)+265;
  Ky1:=round(Y1)+180;
  Ky2:=round(Y2)+180;
  //Linie zeichnen
  Moveto (Kx1,Ky1);
  Lineto(Kx2,Ky2);
Ich glaube das hängt mit dem trunc, round oder frat zusammen, das die das nich sauber genug umrechnen oder so...hab da aber immo nich so nen peil von
  Mit Zitat antworten Zitat