Delphi ile açı hesaplama

[adasis]

Arkadaşlar vereceğiniz cevaplara şimdiden teşekkürler.

Şimdi Delphi forma iki ayrı nokta belirleyip (x,y=20 ve x1,y1=90 gibi) bu iki nokta arasında bir çizgi çizdirip bu x,y nin x1,y1 e olan açıcını hesaplamalıyım ama gerektiğinde x,y noktaları 20 değilde sürükleyip bıraktığımdaki yeni nokta olacak tabi aynısı x1,y1 içinde gerekli, bir türlü mantığı kuramadım..

[conari]

Şunlara bir bak

http://www.delphipages.com/forum/showth ... p?t=204451

http://wall.riscom.net/books/delphi/del_faqs/1753.html

[Battosai]

Bunlar işini görür...

Kod: Tümünü seç

function ikiNoktaArasiUzaklik(x1,y1,x2,y2:Extended):Extended;
var
x,y:Extended;
Begin
 X  := x1 - x2;
 Y  := y2 - y1;
 Result  := round(sqrt(power(X, 2) + Power(Y, 2)));
End;

function ikiNoktaArasiAci(x1,y1,x2,y2:Extended):Extended;
var
d,x,y,r:Extended;
Begin
 X  := x1 - x2;
 Y  := y2 - y1;
 r  := ArcTan2(Y, X);
 d  := r * 180/pi;
 if d < 0 then
	   d :=d+pi * 2;
 if d < 0 then
    begin
	     d := 360 + d;
    end;
 Result:=d;
End;

[adasis]

Arkadaşlar ilginize teşekkür ederim.
Battosai arkadaşın cevabı hesaplama kısmını tam olarak işimi çözdü fakat şöyle bir problemim var.

Paintbox kullanarak iki farklı nokta arasına açılı çizgi çizdiriyorum açısınıda hesaplıyorum, fakat çizginin üst veya alt noktasından tutup yerini değiştiriyorum ama önceki çizgilerde görünüyor onlar görünsün istemiyorum.

[qamyoncu]

Kod: Tümünü seç

Paintbox1.Refresh;

[Battosai]

Önceki fonksiyonda değişiklik yaparak bir örnek hazırladım...Açı hesabını yaparken ilk tıklanan nokta X ekseni üzerinde gibi düşünüyorsunuz yani açı çizilen çizgi ile X ekseni arasındaki açı oluyor. Çizgiyi yatay olarak hizaladıkça sıfıra yaklaştığını göreceksin. Tam dikeyde de 90 derece oalcaktır. Örneğe bakarak daha iyi anlayabilirsiniz..

[adasis]

Arkadaşlar teşekkür ederim, sorun çözüldü, Battosai arkadaşın gönderdiği son örnek te üzerine tuz biber oldu.

Tekrar teşekkürler.