+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تطيبق رسم دالة بدلفي من احد الكتب (/showthread.php?tid=8905)
تطيبق رسم دالة بدلفي من احد الكتب - Delphi_2007 - 30-09-2017
السلام عليكم
عملت تطبيق رسم دالة بواسطة برنامج الموجود باحد الكتب بحيث قمت بتتبع كل الخطوات ولكن لم يفلح معي
الكود هو:
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var
x0,y0,a,b:Integer;
x,y:real;
dx:real;
begin
x0:=BoiteDessin.ClientWidth div 2;
y0:=BoiteDessin.ClientHeight div 2;
BoiteDessin.Canvas.MoveTo (0,y0);
BoiteDessin.Canvas.LineTo (x0*2,y0);
BoiteDessin.Canvas.MoveTo(x0,0);
BoiteDessin.Canvas.LineTo(x0,y0*2);
x:= -10;
dx:=0.05;
y:=x*sin(x);
a:=round(x*12+x0);
b:=round(-y*15+y0);
BoiteDessin.Canvas.MoveTo(a,b);
Repeat
BoiteDessin.Canvas.LineTo(a,b);
x:=x+dx;
y:=x*sin(x);
a:=Round(x*15+x0);
b:=Round(-y*15+y0);
Unit1 x>10;
end;
end.RE: تطيبق رسم دالة بدلفي من احد الكتب - محمد عبد العزيز - 01-10-2017
السلام عليكم
لديك خطأ في كتاب كود دلفي، الكلمة Until وليس Unit1
كود :
Until x>10;RE: تطيبق رسم دالة بدلفي من احد الكتب - Delphi_2007 - 01-10-2017
وعليكم السلام، شكرا اخي على التوضيح جزيت خيرا.