[الماجيك مسعد]

السلام عليكم

طبعا كلنا نعلم ان التايمر يهنج البرنامج

خصوصا لو البرنامج كبير

فكيف يمكن الاستغناء عن التايمر

واستخدام شئ بديل

او فنكشن بديل يقوم بالمهمة بدل التايمر

مثال هذا الكود

كود :

Dim timercount As Integer = 0
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
timercount = timercount + 1
Dim Hrs As Integer
Dim Min As Integer
Dim Sec As Integer
Dim x = timercount.ToString
Sec = x Mod 60
Min = ((x - Sec) / 60) Mod 60
Hrs = ((x - (Sec + (Min * 60))) / 3600) Mod 60
txtRemaining.Text = String.Format("mg {0} hh, {1} mm, {2} ss", Hrs, Min, Sec)
End Sub

وجربت هذا الكود ولم ينفع

كود :

While True
Dim T As New Threading.Thread(sub()
timercount = timercount + 1
Dim x = timercount.ToString
Sec = x Mod 60
Min = ((x - Sec) / 60) Mod 60
Hrs = ((x - (Sec + (Min * 60))) / 3600) Mod 60
End Sub) With {.IsBackGround = true} : T.Start()
Thread.Sleep(Timer1.Interval)
End While

وجرب هذا ايضا ولم ينفع



فهل من مساعد ؟