نهاد من

وبلاگ شخصی عباس دمرچیلو

نهاد من

وبلاگ شخصی عباس دمرچیلو

تست اتصال در Basic 4 Android

سلام . با یه آموزش دیگه از سورس دی ال -- برنامه نویسی اندروید --  خدمت شما دوستان هستیم.

یکی از دوستان توی فرم تماس با ما سوالی راجب Basic 4 Android مطرح کرد که من جوابش رو به ایملش فرستادم ولی :

چون سوال خوبی بود گفتم بزار پست کنم :

سوال این بود :

چطوری میشه توی بیسیک فور اندروید تست اتصال به اینترنت انجام داد و اگر دستگاه به اینترنت وصل بود فلان کار انجام بشه و اگه وصل نبود مثلا یه ارور به کاربر نمایش داده بشه.

و اما جواب :

برای این کار ما یه ترفند جالب میزنیم و اون ایینه که : میدونیم که آیپی پیش فرض همه دستگاه ها 127.0.0.1 هست و اگر دستگاه به اینترنت متصل بشه آیپی هم فرق میکنه.

حالا ما از این مورد استفاده میکنیم و باهاش اتصال به اینترنت رو  چک میکنیم . برای این کار از کتابخانه : Network استفاده میکنیم.

برای شروع کار یه متغیر در قسمت Globals از نوع ServerSocket  تعریف میکنیم. مثلا :

Dim x As ServerSocket

خوب حالا به یه متد احتیاج داریم تا برسی کنه و ببینه که آیا آیپی 127.0.0.1 هست یا نه . اگه بود False  رو برگردونه و اگر نبود True  رو برگردونه.

متد رو از نوع Boolean تعریف میکنم به شکل زیر :

Sub GetIp As Boolean

("",0) x.Initialize

    If x.GetMyIP = "127.0.0.1" Then

        Return False

    Else

        Return True

    End If

End Sub

خوب دیگه میشه گفت تمومه فقط مونده که از این متد استفاده کنیم !

مثلا من یه دکمه تعریف کردم و در رویداد کلیک کد رو به شکل زیر استفاده کردم :

Sub zamBtn_Click

Dim isNet As Boolean

    isNet = GetIp

If isNet = True Then

       ("تست اتصال","ارتباط با اینترنت برقرار است")msgbox

    Else

          ("تست اتصال","ارتباط با اینترنت برقرار نیست")msgbox

    End If

End Sub

فقط یه نکته داره که توی شبیه ساز همیشه اعلام میکنه که اینترنت متصل هست و دلیلش هم اینه که آیپیش 127.0.0.1 نیست

موفق باشید. :)