06-12-16, 03:51 AM
السلام عليكم
طبعا كلنا نعلم ان التايمر يهنج البرنامج
خصوصا لو البرنامج كبير
فكيف يمكن الاستغناء عن التايمر
واستخدام شئ بديل
او فنكشن بديل يقوم بالمهمة بدل التايمر
مثال هذا الكود
وجربت هذا الكود ولم ينفع
وجرب هذا ايضا ولم ينفع
فهل من مساعد ؟
طبعا كلنا نعلم ان التايمر يهنج البرنامج
خصوصا لو البرنامج كبير
فكيف يمكن الاستغناء عن التايمر
واستخدام شئ بديل
او فنكشن بديل يقوم بالمهمة بدل التايمر
مثال هذا الكود
كود :
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
وجرب هذا ايضا ولم ينفع
فهل من مساعد ؟