كار با تصاوير سه بعدي

[morteza_5025]

با عرض سلام
بچه ها من قبلا با گرافیک پاسکال خوب کار کرده بودم الان میخوام یه برنامه نمونه از گرافیک در دلفی داشته باشم البته یه مقدار کار کردم فقط در رابطه با حرکت سه بعدی اطلاعاتی میخوام اگه کسی برنامه منظومه شمسی را داره برام بفرسته البته من اونو قبلا با پاسکال برنامه نویسی کرده بودم اگه کسی لازم داشت میتونم براش بفرستم
منتظرم
:موفق:

[net_ved]

از کتاب مهندس سعید دولتخواه کمک بگیر اسم کتاب: برنامه نویسی گرافیکی در دلفی 7 انتشارات دولت مند
:موفق:

[MiRHaDi]

سلام
اگه با پاسکال کار کردی خیلی راحت میتونی بیاریش تو دلفی !
ببین صفحه اونجا رو حالا بیا فرض کن یک Image هست ! بندازش روی فرم !
حالا ورود و خروج به حالت گرافیکی رو هم نمیخواد !
هر جا PutPixle داشتی رو بکن : image1.canvas.putpixel و به همین شکل
با 1 ساعت کارت تموم میشه
بعدش بذار اینجا برنامتو ببینیم چی نوشتی :)
بای

[Delphi Skyline]

با استفاده از opengl و activex هم میشه
کتاب opengl در همین سایت است

[morteza_5025]

سلام
از راهنمایی شما تشکر می کنم من با دلفی این پروژه را شروع کردم نتیجه را براتون ارسال می کنم


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
ScrollBox1: TScrollBox;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
x,y,o:integer;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Image1.Height:=500;
form1.Image1.Width:=500;
if x=100 then o:=1;
if x=200 then o:=-1;
x:=x+o;
form1.Image1.Canvas.Brush.Style:=bssolid;
form1.Image1.Canvas.Rectangle(0,0,400,400);
form1.Image1.Canvas.Brush.Style:=bsclear;
form1.Image1.Canvas.Ellipse(100,x,300,y);
form1.Image1.Canvas.Ellipse(110,x,290,y);
form1.Image1.Canvas.Ellipse(120,x,280,y);
form1.Image1.Canvas.Ellipse(130,x,270,y);
form1.Image1.Canvas.Ellipse(140,x,260,y);
form1.Image1.Canvas.Ellipse(150,x,250,y);
form1.Image1.Canvas.Ellipse(160,x,240,y);
form1.Image1.Canvas.Ellipse(170,x,230,y);
form1.Image1.Canvas.Ellipse(180,x,220,y);
form1.Image1.Canvas.Ellipse(190,x,210,y);
form1.Image1.Canvas.MoveTo(200,x);
form1.Image1.Canvas.LineTo(200,y);
form1.Image1.Canvas.LineTo(500,y);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=200;
end;

end.

اینم یک حرکت کره ساده یک بعدی
:موفق:
تا دلفی باشه غمی نداریم

با استفاده از opengl و activex هم میشه
کتاب opengl در همین سایت است

activeX نه directX

:wink:

[Sepidar]

http://glscene.sourceforge.net/misc/newtonian.zip