نهاد من

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

نهاد من

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

دانلود سورس تست اتصال به زبان B4J

سلام. در این پست براتون یه سورس به زبان Basic 4 Java آماده کردم که : 1- آی پی شما رو نشون میده 2- وضعیت اتصال به شبکه رو مشخص میکنه.

برای دانلود و جزئیات بیشتر به ادامه مطلب مراجعه نمایید.


  ادامه مطلب ...

دانلود سورس کتاب اندرویدی با B4A

سلام خدمت همه دوستان اهل صفر و یک !

تو این پست یه سورس کتاب اندرویدی که شاید خیلی ها دنبالش هستن رو قرار دادم مبعش هم سایت : ایستگاه یادگیری

دانلود خود سورس (کتاب اندرویدی)

دانلود کتابخانه های استفاده شده

-- رایگان میباشد فقط : برنامه رو تو بازار پنج ستاره کنید و برای ظهور اقا امام زمان هم دعا کنید ...  --

رمز فایل : http://www.learningstation.ir

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

سامانه ورود و ثبت کاربر login.org

در این پست براتون سورس برنامه ثبت و ورود کاربر رو آماده کردم به همراه فایل پی دی اف آموزش این سورس.

این سورس به چهار زبان vb.net و #c و ++c و جاوا آماده شده و هر کدوم رو که میخواهین دانلود کنید .

دانلود آموزش سورس

دانلود سورس به زبان vb.net

دانلود سورس به زبان #c

دانلود سورس به زبان ++c

دانلود سورس به زبان جاوا

آموزشش هم کاملا تصویری و واضحه امید وارم لذت ببرید.