رسم یک زاویه

[1485159]

چطوری میشه یه زاویه xدرجه ای رسم کرد؟

[tdkhakpur]

روی فرم یک button قرار بدید و این کدها رو داخلش قید کنید.


procedure TForm1.Button1Click(Sender: TObject);
var
sinx, cosx, w : real;
x, y , deg : integer;
begin
deg := 56;
w := 100;
sinx := sin(deg*3.14159/180)*-1;
cosx := cos(deg*3.14159/180);
Canvas.FillRect(ClientRect);
Canvas.MoveTo(200, 200);
Canvas.LineTo(400, 200);
x := Round(cosx*w);
y := Round(sinx*w);
Canvas.Pen.Color := RGB(255, 0, 0);
Canvas.MoveTo(200, 200);
Canvas.LineTo(200+x, 200+y);
end;

[Felony]

برای رسم مستقیم با دلفی باید از متدهایی که کلاس Canvas شئ در اختیارتون میزاره استفاده کنید ، در غیر این صورت میتونید از OpenGL در دلفی استفاده کنید .

[1485159]

میشه در مورد الگوریتمش توضیح بدین؟مخصوصا سطر های 7 و 8 .

[tdkhakpur]

میشه در مورد الگوریتمش توضیح بدین؟مخصوصا سطر های 7 و 8 .
خوب الگوریتمی در کار نیست فقط دو سه محاسبه ریاضیه.
رادیان را به درجه و سپس sin و cos آن را بدست می آورد بعد دو نقطه آخر یک خط را جایگزین میکند..

[1485159]

رادیان را به درجه و سپیس sin و cos آن را بدست می آورد بعد نتقطه آخر یک خط را جایگزین میکند..
که چی بشه؟

[tdkhakpur]

که چی بشه؟
یعنی چی؟
عزیزم- برای اینکه زاویه را برای شما بسازد.:لبخندساده:

[1485159]

منظورم اینه که بدون تبدیل به رادیان نمشه این کارو کرد؟(آخه من هنوز رادیان نخوندم)و یا این که رادیان رو توضیح بدین...

[1485159]

من کد زیر رو نوشتم و به نظرم باید کار کنه ولی کار نمیکنه چرا؟


image1.Canvas.MoveTo(0,200);
image1.Canvas.LineTo(200,Round(tan(40))*200+200);

[1485159]

فهمیدم !
شما یه بار برو با ماشین حساب ویندوز تانژانت عدد 30 رو حساب کن و بعد با دلفی...
متوجه میشی...
به این دلیله که کدی که من گزاشتم کار نمیکنه....
راه حلی دارین؟

[1485159]

کسی نظری نداره؟

[Felony]

کد شما قرار بوده چی کار کنه که نمیکنه ؟ شما یه مختصات شروع دادین و یک مختصات پایان که در بین این دو نقطه باید یک خط رسم بشه و به درستی هم رسم میشه .

[1485159]

فعلا هیچی ولی منتظر باشین...