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; .......

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

تحياتي