تست اتصال در 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 نیست

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

سورس ماشین حساب اندرویدی

سلام در این پست براتون یه ماشین حساب اندرویدی آماده کردم که چهار عمل اصلی رو انجام میده.

زبان : b4a

با مطالعه این سورس :

1. اولا طراحی اصولی در دیزاینر رو یاد میگیرید و این که چطوری اسکریپت نویسی کنید.

2. با نحوه ی تعریف متغییر در b4a آشنا خواهید شد.

سطح آموزش : معمولی 

برای دانلود سورس اینجا کلیک کنید.

حجم : 1.75 مگابایت