تقييم الموضوع :
  • 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
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 198 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تصحيح خطا tahaayyoub 4 266 06-05-20, 12:47 AM
آخر رد: ابراهيم ايبو
  تصحيح كود bidaya 4 447 07-12-19, 11:31 PM
آخر رد: bidaya
  ممكن تصحيح كود sofiane-phy 2 325 06-12-19, 09:45 PM
آخر رد: sofiane-phy
  [VB.NET] تصحيح كود EMADSSS 0 287 22-11-19, 03:02 AM
آخر رد: EMADSSS
  [VB.NET] تصحيح كود حفظ EMADSSS 10 901 12-11-19, 10:18 AM
آخر رد: أبووسم
  [كود] تصحيح كود AbdoDabak 1 335 18-10-19, 06:24 PM
آخر رد: AbdoDabak
  كيف أعمل برنامج تصحيح وقراءة كروت الاجابات بإستخدام ماكينة التصوير جيولوجي مبتدئ 2 703 25-06-19, 12:52 AM
آخر رد: حريف برمجة
Photo مساعدة تصحيح الكود sofiane-phy 4 725 20-06-19, 03:01 PM
آخر رد: sofiane-phy
  [VB.NET] تصحيح كود بارك الله فيكم dubai.eig 9 1,027 16-05-19, 01:28 PM
آخر رد: elgokr

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


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