المشاركات : 334
المواضيع 87
:
: 18
الإنتساب : Feb 2008
السلام عليكم
أضع بين أيدي إخواني هذا البرنامج مع ملفه المصدري
سترون هنا جزيئات الماء ، البنزين و الماس و ...
الجميل في الأمر أنه برمج بواسطة الدلفي 5 ( لذلك وضعت الملف EXE لمن لا يستخدمه)
ملاحظة : الشرح (من المصدر) باللغة الفرنسية
تحياتي
الملفات المرفقة
MOLECULES.zip (الحجم : 207.89 ك ب / التحميلات : 558)
المشاركات : 3,686
المواضيع 98
:
: 567
الإنتساب : Feb 2008
بسم الله الرحمن الرحيم
مثال بسيط و جميل للرسوميات ثلاثية الابعاد بدلفي
ملاحظة: اظفت صورة فوق
والسلام عليكم ورحمة الله
المشاركات : 334
المواضيع 87
:
: 18
الإنتساب : Feb 2008
السلام عليكم
فاتني وضع الصورة .. الله ينورك
تحياتي
المشاركات : 93
المواضيع 19
:
: 0
الإنتساب : Feb 2008
هل من الممكن إفادتنا بموقع البرنامج؟
المشاركات : 334
المواضيع 87
:
: 18
الإنتساب : Feb 2008
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;
.......
وعذرا على التأخير
تحياتي