+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] (/showthread.php?tid=104)
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - kml_hmd - 27-03-2008
شكرا علي الاجتهاد الرائع و المفيد ونتمني لك دوام الصحة و العافية والي المزيد من الاجتهاد
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - kisokiso - 29-03-2008
[COLOR="DarkOrange"][B]شكرا اخي
بارك الله فيك
[/COLOR][/B]
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - merouane - 31-03-2008
Bbsafia
professor DeXTeR
kml_hmd
kisokiso
العفو و شكرا للردود ، الاحترام والتقدير متبادل
professor DeXTeR
kml_hmd
kisokiso
العفو و شكرا للردود ، الاحترام والتقدير متبادل
كنت سأسعد كثيرا لو كانت المشاركات تعليقات عن المحتوى ( لأنه يوجد الكثير ما يتوجب الحديث عنه ) أو من الذين يحسنون الفرنسية ترجمة تعليقات القراء في المقال الأصلي.
صراحة أطمح إلى نقاش نرفع فيه المستوى إلى درجة التطوير.. لا أرى أننا سنتقدم أو سنقدم شيئا إذا بقينا على هذه الوتيرة
هذا طبعا إذا أردنا لهذا المنتدى أن يكون مرجعا للغة الدلفي في المنطقة العربية، وأيضا إذا أردنا أن نوفر دعم اللغة العربية أكثر في تطوير البرمجيات.
فقط رأي..
تحياتي
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - Delphawi - 16-04-2008
إقتباس :باختبار بواسطة دلفي 7 نجد أن الطريقة الثانية أحسن بنسبة أداء بـ 1.7 : 1 (أسرع بـ 1.7 مرة)كيف تم هذا الاختبار ؟ من اي اداة ؟
وجزاك الله خيرا
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - merouane - 16-04-2008
الطريقة المستعملة من طرف الكاتب الأصلي وآخرين هي عبر الإجراء GetTickCount
أنظر SDK Help المرفق مع دلفي عند Win32 Developper's References
أو من موقع ميكروسوفت : http://msdn2.microsoft.com/en-us/library/ms724408.aspx
أظنها تنفع مع جميع لغات البرمجة ضمن Windows
هذا مثال أدرجه أحد المبرمجين
كود :
var GTADD, GTDIV : cardinal;
procedure .... ;
begin
GTADD := GetTickCount;
For N := 1 to 10000000 do X := 22 + 8;
GTADD := GetTickCount - GTADD;
GTDIV := GetTickCount;
For N := 1 to 10000000 do X := 22 / 8;
GTDIV := GetTickCount - GTDIV;
caption := format('Add=%d ms / Div=%d ms',[GTADD, GTDIV]);
end;مع العلم أنه استعمل تكرار من 10000000 للحصول على قيمة قابلة للقياس، لأن GetTickCount ترجع قيمة milliseconds أي جزء من ألف جزء من الثانية (للعمليات الصغيرة قد ينتج 0)
وحسب المعالج processor فمثلا أحدهم قد يحصل على GTADD = 20 ms ، GTDIV = 30 ms بالنسبة للمثال أعلاه وآخر - مثلي - يحصل على GTADD = 15 ms ، GTDIV = 32 ms
.
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - Delphawi - 16-04-2008
شكرا مروان
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - abo-ghadab - 17-05-2008
اليك شكر نابع من القلب
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - askander - 30-10-2009
الف شكر على الترجمة بانتظار المزيد
تكتيكات لتحقيق أقصى سرعة لتنفيذ الشيفرة [مترجم] - aboodr - 13-01-2010
جزاك الله خيرا اخي الكريم وربنا يباركلك