+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في Timer (/showthread.php?tid=17935)
مشكلة في Timer - 3asfa~mdmra - 06-11-16
سلام عليكم
اخواني عند ماخصلت برنامج واصبح قابل لاستخدام
واجهتني مشكلة وهي انه البرنامج يتجمد عند
تشغيل التايمر يعني بهنج
الرجاء النظر للكود داخل الـTimer
والتعديل علية ليصبح Timer يشتغل بوقت محدد او
ايجاد حل لهذه المشكلة
وشكراً
RE: مشكلة في Timer - hassan - 07-11-16
شوف اخي اذا كانت التايمر تعمل بشكل سليم لاكن تعلق البرنامج لفتره حتى تنفذ الكود المطلوب ثم يرجع البرنامج طبيعي
استخدم BackgroundWorker فهاذا حل المشكله ان شاء الله
شكرا لك
RE: مشكلة في Timer - Basil Abdallah - 28-12-16
جرب الامر Try
RE: مشكلة في Timer - silverlight - 28-12-16
هذا سببه الاستخدام الخاطي للتايمر
فكما هو واضح من الكود أنك تحاول ارسال بيانات معينة من خلال تايمر و ايضا من خلال Loop
منطقي جدا ان البرنامج يهنج
إما أن تستخدم threading أو تقوم بعمل SyncLock للتايمر حتي لا يتم تنفيذ الأوامر الموجودة داخل التايمر مرة واحدة
أعتقد أنك أيضا تحتاج أن تتأكد من ان البيانات لا تساوي Nothing قبل تنفيذ الأمر Send
واضح انك أيضا تحاول ارسال بيانات لموقع معين علي الانترنت
أعتقد انك محتاج تتأكد إنك متصل فعلا بالموقع او بالايميل او بالانترنت هذا يحدده ما تقوم بتنفيذه من الكود من خلال Loop
RE: مشكلة في Timer - silverlight - 29-12-16
كمثال توضيحي
افتح مشروع و ضع علي الفورم ليست بوكس و باتون و تايمر
و اكتب الكود بالشكل التالي
فقط شاهد ما يحدث عند الضغط علي الباتون لتشغيل التايمر
PHP كود :
Public Class Form1
Private txt As String = "vb4arab#data#ali#color#sunclock#ali#anystring#---------"
Public lastTxt As Integer = -1
Private txtLock As New Object
Private strings() As String = New String(100) {}
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
' و ممكن تكتب الكود بين هاتين السطرين
SyncLock txtLock
For Each s As String In txt.Split("#"c)
lastTxt += 1
If lastTxt < txt.Length Then
strings(lastTxt) = s
End If
Next
End SyncLock
For i = 0 To strings.Length - 1
Dim current As String = strings(i)
If Not String.IsNullOrEmpty(current) Then
ListBox1.Items.Add(current)
End If
Next
'' أو ممكن تستخدم التايمر نفسه
'SyncLock Timer1
' For Each s As String In txt.Split("#"c)
' lastTxt += 1
' If lastTxt < txt.Length Then
' strings(lastTxt) = s
' End If
' Next
'End SyncLock
'For i = 0 To strings.Length - 1
' Dim current As String = strings(i)
' If Not String.IsNullOrEmpty(current) Then
' ListBox1.Items.Add(current)
' End If
'Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
End Class
RE: مشكلة في Timer - مساعدة - 29-12-16
السلام عليكم
كأبسط طريقة ممكن تستغل الأمر Application.DoEvents داخل كل حلقة تكرار مثل For أوDo وغيرها
كود :
For i = 0 To 10
Application.DoEvents
For Each s In o
Application.DoEvents
Next
NextRE: مشكلة في Timer - silverlight - 29-12-16
الأخ مساعدة
لو استخدمت SyncLock أو أي Lock أخر مناسب مع التايمر فهنا انت لا تحتاج نهائي ان تستخدم Application DoEvent و ربما لا تحتاج الي جملة Try أيضا
عموما هذا كله مرتبط بما تنفذه من كود داخل التايمر
بشكل عام الفكرة هنا انك لا تجعل التايمر يهنج البرنامج