جزيئات كيميائية 3d

[merouane]

السلام عليكم

أضع بين أيدي إخواني هذا البرنامج مع ملفه المصدري

سترون هنا جزيئات الماء ، البنزين و الماس و ...

http://www.delphi4arab.com/images/Delphi_MOLECULES.jpg

الجميل في الأمر أنه برمج بواسطة الدلفي 5 ( لذلك وضعت الملف EXE لمن لا يستخدمه)

ملاحظة : الشرح (من المصدر) باللغة الفرنسية

تحياتي :)

[B.M.AbdelAziZ]

بسم الله الرحمن الرحيم

مثال بسيط و جميل للرسوميات ثلاثية الابعاد بدلفي

ملاحظة: اظفت صورة فوق

والسلام عليكم ورحمة الله

[merouane]

السلام عليكم

فاتني وضع الصورة .. الله ينورك

تحياتي :)

[xinofix]

هل من الممكن إفادتنا بموقع البرنامج؟

[merouane]

هل من الممكن إفادتنا بموقع البرنامج؟

السلام عليكم

بالنسبة للموقع فهو www.phidels.com

لاحظ أن البرنامج لا يعمل تحت الدلفي 7

لذلك أعد تحميله

و اذهب إلى السطر أين
const
rayon : integer = 100; // rayon d'affichage
maximum = 180; // nombre maxi d'atomes acceptés par le programme
var
Bmpmano : TBitmap; // Double buffer : bitmap de dessin
Bmpfond : TBitmap; // Double Buffer : bitmao effacement

و صححه إلى
const

maximum = 180; // nombre maxi d'atomes acceptés par le programme
var
rayon : integer = 100; // rayon d'affichage

أي تغيير rayon من const إلى var

لأنه في البرنامج

begin
...
0:begin // benzène
maxat := 12;
rayon := 100;
tat[01]:=0; Pts[01].X:= 0.0998; Pts[01].Y:= 0.9950; Pts[01].Z:= 0;
.......
1: begin // Fullerène C60
maxat := 60;
rayon := 140;
tat[01]:=0; Pts[01].X:= 1.2265; Pts[01].Y:= 0.0000; Pts[01].Z:= 3.3145;
..........
end;

2:Begin // eau (approximatif en réalité 102° au lieu de 90°)
maxat := 3;
Rayon := 80;
tat[01]:= 2; Pts[01].X:= 0; Pts[01].Y:= -0.5; Pts[01].Z:= 0;
.....
end;
.......

وعذرا على التأخير

تحياتي :)