+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] عمل امر بعد مرور 10 ثواني (/showthread.php?tid=16027)
عمل امر بعد مرور 10 ثواني - عبدالرحمن المكاوي - 03-06-16
اريد عندما تمر 10 ثواني من فتح البرنامج ان يعمل امر معين انا اكتبه
RE: عمل امر بعد مرور 10 ثواني - محمد كريّم - 03-06-16
استخدم Timer
RE: عمل امر بعد مرور 10 ثواني - عبدالرحمن المكاوي - 03-06-16
فين اخي انا عاوز الكود
RE: عمل امر بعد مرور 10 ثواني - silverlight - 03-06-16
PHP كود :
Dim sw As Stopwatch = New Stopwatch
Dim timeline As TimeSpan = New TimeSpan(0, 0, 0, 10, 0)
sw.Start()
While sw.Elapsed.TotalMilliseconds <= timeline.Seconds
' اكتب الكود الذي تريد تنفيذه هنا
End While
' الأن تقوم بإيقاف الساعة
sw.Stop()
' هذا السطر للتوضيح فقط والهدف منه اظهار الفترة الزمنية بعد انتهاء تنفيذ الكود
Me.Text = sw.ElapsedMilliseconds
أو لمزيد من الدقة يمكنك أن تكتب الكود بالشكل التالي
PHP كود :
Dim sw As Stopwatch = New Stopwatch
Dim timeline As TimeSpan = New TimeSpan(0, 0, 0, 10, 0)
sw.Start()
Do While sw.Elapsed.TotalMilliseconds <= timeline.Seconds
' do nothing
Loop
' الأن تقوم بإيقاف الساعة
sw.Stop()
' اكتب الكود الذي تريد تنفيذه هنا
' هذا السطر للتوضيح فقط والهدف منه اظهار الفترة الزمنية بعد انتهاء تنفيذ الكود
Me.Text = sw.ElapsedMilliseconds
RE: عمل امر بعد مرور 10 ثواني - CLARO - 05-06-16
للمبتدئين
ضع تايمر ثم ادخل على الخصائص ثم اكتب في خانه Interval
10000 لان كل 1000 = ثانيه