تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب تصحيح كود
#1
السلام عليكم
قمت بوضع الكود التالي في TIMER الهدف منه التحقق من وجود الأنترنيت بشكل مستمر، الكود شغال بشكل جيد في حالة وجود النت أما في غياب الأنترنيت فيشتغل لاكن يتسبب في تشنج البرنامج بشكل كبير 
هل يمكن إصلاح هذا الأشكال

كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '======================بسملــــــــــــــة ===========================
        My.Computer.Audio.Play(My.Resources.bismallah, AudioPlayMode.Background)
        '========================================================================
        '===========================التحقق من النت ===========================
        Timer2.Start()

'=====================التححق من وجود النت======================
   Public Shared Function CheckInternetConnection() As Boolean
       Try
           Return My.Computer.Network.Ping("www.google.com")
           Return True
       Catch
           Return False
       End Try
   End Function
   '===============================================================
   '===============================================================
   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       If CheckInternetConnection() = True Then
           Label6.Text = "متصل بالأنترنيت"
           Label6.BackColor = Color.Lime
       Else
           Label6.Text = " غير متصل بالأنترنيت"
           Label6.BackColor = Color.Red

       End If
   End Sub
الرد
تم الشكر بواسطة:
#2
وعليكم السلام...
صراحة لا أعرف أين المشكلة ولكن أعتقد أنها من الTimer, فأنا كنت دائماً أستخدم الكود الذي في المشاركة التالية:
http://vb4arb.com/vb/showthread.php?tid=14676
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة: عبد العزيز البسكري



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم