View Full Version : رسم یک زاویه
1485159
پنج شنبه 05 شهریور 1388, 23:27 عصر
چطوری میشه یه زاویه xدرجه ای رسم کرد؟
tdkhakpur
جمعه 06 شهریور 1388, 00:41 صبح
روی فرم یک 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
جمعه 06 شهریور 1388, 00:46 صبح
برای رسم مستقیم با دلفی باید از متدهایی که کلاس Canvas شئ در اختیارتون میزاره استفاده کنید ، در غیر این صورت میتونید از OpenGL در دلفی استفاده کنید .
1485159
جمعه 06 شهریور 1388, 02:35 صبح
میشه در مورد الگوریتمش توضیح بدین؟مخصوصا سطر های 7 و 8 .
tdkhakpur
جمعه 06 شهریور 1388, 13:11 عصر
میشه در مورد الگوریتمش توضیح بدین؟مخصوصا سطر های 7 و 8 .
خوب الگوریتمی در کار نیست فقط دو سه محاسبه ریاضیه.
رادیان را به درجه و سپس sin و cos آن را بدست می آورد بعد دو نقطه آخر یک خط را جایگزین میکند..
1485159
جمعه 06 شهریور 1388, 13:26 عصر
رادیان را به درجه و سپیس sin و cos آن را بدست می آورد بعد نتقطه آخر یک خط را جایگزین میکند..
که چی بشه؟
tdkhakpur
جمعه 06 شهریور 1388, 14:28 عصر
که چی بشه؟
یعنی چی؟
عزیزم- برای اینکه زاویه را برای شما بسازد.:لبخندساده:
1485159
جمعه 06 شهریور 1388, 15:41 عصر
منظورم اینه که بدون تبدیل به رادیان نمشه این کارو کرد؟(آخه من هنوز رادیان نخوندم)و یا این که رادیان رو توضیح بدین...
1485159
جمعه 06 شهریور 1388, 16:08 عصر
من کد زیر رو نوشتم و به نظرم باید کار کنه ولی کار نمیکنه چرا؟
image1.Canvas.MoveTo(0,200);
image1.Canvas.LineTo(200,Round(tan(40))*200+200);
1485159
جمعه 06 شهریور 1388, 17:16 عصر
فهمیدم !
شما یه بار برو با ماشین حساب ویندوز تانژانت عدد 30 رو حساب کن و بعد با دلفی...
متوجه میشی...
به این دلیله که کدی که من گزاشتم کار نمیکنه....
راه حلی دارین؟
1485159
جمعه 06 شهریور 1388, 20:29 عصر
کسی نظری نداره؟
Felony
جمعه 06 شهریور 1388, 21:39 عصر
کد شما قرار بوده چی کار کنه که نمیکنه ؟ شما یه مختصات شروع دادین و یک مختصات پایان که در بین این دو نقطه باید یک خط رسم بشه و به درستی هم رسم میشه .
1485159
جمعه 06 شهریور 1388, 23:11 عصر
فعلا هیچی ولی منتظر باشین...
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.