قياس سرعة البرنامج ؟؟؟

مغلق

بدأه الغنام في 27 أبريل 2007 · 4 رد · 677 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#127 أبريل 2007 في 20:51 صاحب الموضوع

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

تحية طيبة وبعد :

كيف يتم قياس سرعة البرنامج بالملي سكند (ملي ثانية) ؟؟

الفكرة موجودة لدي وهي حساب الوقت من بداية تنفيذ الكود وحتى إظهار النتيجة ولكن كيف يتم عرضها بالملي سكند ( ملي ثانية ) ؟؟

لأننا لو حسبناها بالثانية خصوصا في البرامج البسيطة راح يكون الوقت صفر .

طبعا الهدف من قياس سرعة البرنامج هو تحديد كفاءة البرنامج أو مايسمى بال performance .

أرجو المساعدة وشكراً ..............

#227 أبريل 2007 في 21:10

استخدم الـ Timer

بما إن في خاصية الـ Interval يكون كل 1000 يساوي ثانية واحدة ، يعني الواحد يساوي مللي ثانية

مثال :

Dim S As Integer

Private Sub Command1_Click()
Timer1.Enabled = True

'هنا يتم إجراء العملية

Timer1.Enabled = False
MsgBox S & " مللي ثانية"
End Sub

Private Sub Timer1_Timer()
S = S + 1
End Sub

تم تعديل هذه المشاركة بواسطة شبه جسم في 27 أبريل 2007 في 21:12

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#327 أبريل 2007 في 21:39

الأخ الفاضل ...

GetTick.zip

مرفق مثال بأستخدام (MS-VB6)

يمكنك أستخدام دالة API وهى GetTickCount ، ووظيفتها إعطاء عدد الميلى ثانية منذ إقلاع النظام

وبالتالى يمكن حساب الفرق فبل وبعد تنفيذ الدالة المراد حساب الـ Performance لها، المثال المرفق يقوم بحساب ذلك لـ 3 دوال، الأولى زمن قراءة ملف وهو "C:\Boot.ini" وبالطبع يمكن تغيره، والثانية زمن الحلقة التكرارية For-Next لعدد 1000000 مرة، والثالثة زمن عمل الاتصال بقاعدة بيانات أكسس

ويتم عرض النتائج بالميلى ثانية

ملحوظة: قد تكون الملفات وقواعد البيانات فى عملية التنفيذ الثانية أسرع من الأولى لأنه قد يكون مازال بعض البيانات موجوده فى الكاش (مثل مسار الملف أو بعض المكتبات المستخدمة)

شكراً

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 27 أبريل 2007 في 22:18

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible