تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديد زمن تنفيذ العمليات باستخدام الفئة TimeSpan
#1
كاتب الموضوع : محمد الناشـري

تتسم الفئة TimeSpan ( وهي تمثل فترة زمنية فاصلة ) بامكانية جيدة تجعلها من الفئات المثلى لتحديد زمن تنفيذ العمليات بدقة .
المقصود بزمن تنفيذ العمليات هو الزمن الذي تستغرقة عباره معينة لتنفيذ عملية ما ...
ولتحديد زمن تنفيذ أي عملية علينا أن نقوم بقياس الوقت الملائم قبل البدء في تنفيذ هذة العملية وبعد تنفيذها مباشرة .. ثم نقوم بحساب الفارق وهو عبارة عن الوقت الذي استغرقة تنفيذ العملية .
الكود التالي يوضح زمن تنفيذ الحلقة الدورانية For لقيمة I والتي يحددها المستخدم

كود :
[COLOR=#000000][COLOR=#dd0000]'تعريف متغيرين من نوع Date
Dim Tstart, Tend As Date
'[/COLOR][COLOR=#0000bb]TimeSpan  تعريف متغير من فئة
Dim duration [/COLOR][color=#007700]As [/color][COLOR=#0000bb]TimeSpan
Tstart [/COLOR][color=#007700]= [/color][color=#0000bb]Now[/color][color=#007700]() [/color][COLOR=#dd0000]'وقت البدء في تنفيذ العملية  

If input_txt.Text <> "" Then
startTime_txt.Text = Tstart.Minute & ":" & Tstart.Second & ":" & Tstart.Millisecond
'[/COLOR][COLOR=#0000bb]العملية المنفذة
Dim i [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer
[/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]= [/color][color=#0000bb]1 To Val[/color][color=#007700]([/color][color=#0000bb]input_txt[/color][color=#007700].[/color][color=#0000bb]Text[/color][COLOR=#007700])
  [/COLOR][color=#0000bb]value_txt[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]i
  i [/COLOR][color=#007700]+= [/color][COLOR=#0000bb]0.25
Next
Tend [/COLOR][color=#007700]= [/color][color=#0000bb]Now[/color][color=#007700]() [/color][COLOR=#dd0000]'وقت الانتهاء من تنفيذ العملية  
endTime_txt.Text = Tend.Minute & ":" & Tend.Second & ":" & Tend.Millisecond
'[/COLOR][COLOR=#0000bb]ايجاد الفرق بين قيمتي الوقت لتحديد زمن تنفيذ العملية  
duration [/COLOR][color=#007700]= [/color][color=#0000bb]Tend[/color][color=#007700].[/color][color=#0000bb]Subtract[/color][color=#007700]([/color][color=#0000bb]Tstart[/color][COLOR=#007700])
[/COLOR][color=#0000bb]millisecond_txt[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]duration[/color][color=#007700].[/color][COLOR=#0000bb]TotalMilliseconds
second_txt[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]duration[/color][color=#007700].[/color][COLOR=#0000bb]TotalSeconds
Button3[/COLOR][color=#007700].[/color][color=#0000bb]Enabled [/color][color=#007700]= [/color][COLOR=#0000bb]False
[/COLOR][COLOR=#007700]Else
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"  فضلا ادخل قيمة I  "[/color][COLOR=#007700])
[/COLOR][color=#0000bb]input_txt[/color][color=#007700].[/color][color=#0000bb]Focus[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][/COLOR]

مارايكم بهذة الطريقة ؟ وهل الزمن المحدد قريب من الصحيح ؟ هل هناك طريقة أفضل في تحديد الزمن المستغرق من قبل عملية ؟ الباب مفتوح للنقاش


الملفات المرفقة
.rar   01223195396.rar (الحجم : 66.87 ك ب / التحميلات : 40)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اصنع محرر أكواد خاص بك باستخدام الأداة RichTextBox السكر المغرور 8 1,517 03-09-16, 07:59 PM
آخر رد: tryold
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 535 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  [VB.NET] التشفير باستخدام خوارزمية rsa alking-0999 10 1,316 08-07-15, 04:24 PM
آخر رد: مبرمج بلا حدود
  الجزء الثالث من:كيف تجعل الـ Text Box ذكي!يترجم العمليات الحسابية ويخرج الناتج (الأقواس المتعددة) !! أنس محمود 9 2,057 06-12-14, 10:11 PM
آخر رد: RFEE3 ALSHAN
  @@@ تنفيذ كود vb.net من خلال مربع نص @@@ @@أبورائد@@ 18 3,820 27-10-14, 01:07 AM
آخر رد: hamaonline
  @@@ معالجة العمليات الحسابية من خلال مربع نص وإظهار النتيجة @@@ @@أبورائد@@ 9 1,585 25-05-13, 01:07 PM
آخر رد: shaker.soft
  الجزء الثاني من:كيف تجعل الـ Text Box ذكي!يترجم العمليات الحسابية ويخرج الناتج ( العمليات المتعددة)! أنس محمود 0 688 22-02-13, 12:39 AM
آخر رد: أنس محمود
  كيف تجعل الـ Text Box ذكي !! يترجم العمليات الحسابية ويخرج الناتج !! بالداخل المزيد !! أنس محمود 0 1,549 20-02-13, 12:58 AM
آخر رد: أنس محمود
  رسم الباركود برمجيا باستخدام (Code128) RaggiTech 3 2,641 06-10-12, 12:51 AM
آخر رد: RaggiTech
  مقال- تطوير الفورم رسم الفورم باستخدام +GDI وتحريكه Moving و تغيير أبعاده Resize RaggiTech 2 870 05-10-12, 07:00 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم