Punkt zwischen 2 Punkten

[Evian]

mh.. irgendwie stell ich mich zu doof an.. also mein Code ist im Mom folgender:

Delphi-Quellcode:

Function getpoint(anf,ende:TPoint;pro:integer):TPoint;
VAR
point : TPoint;
calc : double;
BEGIN
  calc := 100 / pro; 
  point.X := anf.X + round((ende.X-anf.X)*calc);
  point.Y := anf.y + round((ende.Y-anf.Y)*calc);
  result := point;
END;

aber funktioniert halt nicht.

(uhh man ist das Peinlich :oops:)

[markusj]

Richtig ...

da wo ich was von Punkt dazwischen gesprochen habe, ist die Prozentzahl drinne ...
Ach ja, bei der Bestimmung des Punktes muss die Rechnung mit beiden Teilkomponenten der Vektoren durchgeführt werden ... (Grundlage Vektorrechung ... Man multipliziert einen Vektor, indem man seine Teilvektoren multipliziert etc.)
Sprich Punktdazwischen.X := (Prozentzahl/100)*Richtungsvektor.X+Punkt1.X
und das ganze noch mit Y...

mfG

Markus

ROTKASTEN: Die Strecken müssen über Pytagoras bestimmt werden!!
EDIT: ROTKASTEN2 ... Evian ... was geht nicht???

[Khabarakh]

Zitat:

Zitat von markusj

ROTKASTEN: Die Strecken müssen über Pytagoras bestimmt werden!!

Abgesehen davon, dass man den guten Mann mit h schreibt: Wofür denn das :gruebel: ?

Zitat:

Delphi-Quellcode:

calc := 100 / pro;

Das ist die einzige Zeile Code, in der ich spontan einen Fehler sehe.

[markusj]

Der Rotkasten war auf R2D2 bezogen ... ... weil man mit seiner Formel nicht rechnen kann, auch nicht für die halbe Strecke ... dafür braucht man Phytagoras ... (besser so? *g*)
Aber stimmt, er rechnet nicht Prozent/100 sondern 100/Prozent ... das ist der Fehler!!!

mfG

Markus

[Evian]

ja hast recht.. zu meiner rechtfertigung muss ich aber sagen, dass ich den ganzen Tag auf arbeit rum wegitiere und mir die ganze zeit VBA reinziehen muss.. da wird man irgendwann bescheuert