delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

[صورة: Delphi_MOLECULES.jpg]

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

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

تحياتي Smile

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

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

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

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

السلام عليكم

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

تحياتي Smile

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

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

السلام عليكم

بالنسبة للموقع فهو 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;
[color=Blue][B]  rayon := 100;[/B][/color]
  tat[01]:=0; Pts[01].X:= 0.0998; Pts[01].Y:= 0.9950; Pts[01].Z:= 0;
....... 
 1: begin  // Fullerène C60
  maxat := 60;
[color=Blue][B]  rayon := 140;[/B][/color]
  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;
[color=Blue][B]  Rayon := 80;[/B][/color]
  tat[01]:= 2; Pts[01].X:= 0; Pts[01].Y:= -0.5; Pts[01].Z:= 0;
..... 
  end;
.......

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

تحياتي Smile

merouane

محمد عبد العزيز

merouane

xinofix

merouane