الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن مساعدة اريد كود تأجيل تنفيذ الكود لفترة

بدأه amrhamdy في 31 مايو 2008 · 5 رد · 1,346 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

ممكن مساعدة فى تأجيل تنفيذ الأمر أو الكود لفترة معينة

كنت أستخدم فى vb 6 هذا الكود

 

Public Sub amr(HowLong As Date) 
TempTime = DateAdd("s", HowLong, Now) 
While TempTime > Now 
DoEvents 
Wend 
End Sub 

Private Sub Command1_Click() 
amr 7 
MsgBox "welcome" 
End Sub

ولكن هذا الكود لم يعمل مع vb.net

ارجو المساعدة

وجزاكم الله خيراً

تم تعديل هذه المشاركة بواسطة amrhamdy في 31 مايو 2008 في 21:18

#2

ممكن تستخدم goto

#3

ممكن التوضيح

#4

هناك طريقة سهله مع ضرورة وجود TIMER اضف المؤقت 

  If Label1.Text = 5 Then
			'AddHandler Timer1.Tick, AddressOf Button1_Click
			MsgBox("A;SLKDFJAS;LDFKJAS;LDFKJAS;DLFK")
		End If

هذا الكود في الزر BUTTON

أما التايمر 

Timer1.Interval = 1000
		Label1.Text = Val(Label1.Text) + 1

أن شاء الله أنه واضح

#5

إليك أيضاً هذه الطريقة :

ضع هذا ال class في module حتى تستطيع استخدامه في كل البرنامج :-

Public Sub Delay(ByRef HowLong As Date)
		Dim TempTime As Object
		TempTime = DateAdd(Microsoft.VisualBasic.DateInterval.Second, HowLong.ToOADate, Now)
		While TempTime > Now
			System.Windows.Forms.Application.DoEvents()
		End While
	End Sub

و اكتب الآتي في الشفرة قبل الكود المراد تأخيره ، هذا الكود يؤخر التنفيذ لمدة ثانية و تظل بقيّة الأحداث الأخرى في البرنامج جارية :-

Delay(System.DateTime.FromOADate(1))
#6

شكراً على أهتمامكم

وجزاكم الله خيراّ

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…