بررسی روشن بودن و خاموش بودن wifi در بیسیک فور اندروید

با سلام و سپاس

 

اگر سوالی بود در نظرات درج کنید تا پاسخگو باشیم.

 

موفق باشید.

 

کد زیر رو در مینفیست خودتون قرار بدید:

 

AddReceiverText(SendNotification,
<intent-filter>
<action android:name="android.net.wifi.STATE_CHANGE"/>
</intent-filter>)

و کد زیر هم خودش ساب هست که وصل بودن رو بررسی می کنه و برمی گردونه

Sub Service_Start (StartingIntent As Intent)
         If StartingIntent.Action = "android.net.wifi.STATE_CHANGE" Then
            If Not(StartingIntent.HasExtra("bssid")) Then Return
            Dim jo As JavaObject = StartingIntent
            Dim NetInfo As Object = jo.RunMethodJO("getParcelableExtra",Array("networkInfo")).RunMethod("getDetailedState",Null)
            Dim State As JavaObject : State.InitializeStatic("android.net.NetworkInfo.DetailedState")
            If (NetInfo <> State.GetField("DISCONNECTED") And NetInfo <> State.GetField("CONNECTED")) Then Return           
            LogColor("SentNotification:Service_Start: Connection event: "&NetInfo,Colors.Red)
       end if

سورس کد برنامه تهران شناس ( تایید شده کافه بازار ) رایگان

با سلام و سپاس خدمت دوستان و کاربران عزیز

 

امروز براتون سورس تهران شناس رو مهیا کرده ایم.

 

 تمام امکانات بازی آفتابه رو داره ولی خب ایده ش متفاوته. در قسمت درباره ما یک انیمیشن خیلی جالبی کار کرده شده که چرخش سکه رو تداعی می کنه، خودش می تونه ی جور بازی باشه.

 

امیدوارم مورد قبول واقع کردد.

 

لینک کافه بازار : https://cafebazaar.ir/app/com.andraulic.tehranshenas/?l=fa

 

com.andraulic.tehranshenas3.jpg (720×1280)

com.andraulic.tehranshenas1.jpg (720×1280)

 

com.andraulic.tehranshenas4.jpg (720×1280)

 

دانلود سورس

 

پکیج کتابخانه ها

سورس کد گت المنت سایت قیمت موبایل ( بیسیک فور اندروید )

با سلام و سپاس 

 

با این سورس کد شما نحوه گرفتن اطلاعات سایت رو ربه وسیله گت المنت و جدا سازی آن بوسیله ریجکس رو فرا میگیرید.

 

که خود مبحث ریجکس خیلی کار آمد و پیچیده می باشد که در آینده نزدیک به آن هم میپردازیم .

Continue reading “سورس کد گت المنت سایت قیمت موبایل ( بیسیک فور اندروید )”

سورس کد محاسبه اوقات شهری ( رایگان ) بیسیک فور اندروید

با سلام و درود به کاربران گل یاهو ۹۸ YAHOO

 

امروز سورس کد آموزنده محاسبه اوقات شهری که این سورس کد خیلی آموزنده و در هر برنامه ای جای دارد .

 

همکنون میتونید این سورس رو به رایگان دانلود کنید .

 

موفق باشید.

 

 

دانلود سورس

 

دانلود کتابخانه ها

 

ساخت صفحه ارتباط با ما بیسیک فو اندروید b4a ( آنلاین + php )

با سلام و درود خدمت دوستان عزیز

 

امروز آموزش ارتباط با ما تحت وب رو برای شما مهیا کرده ایم .

امیدوارم مورد قبول شما عزیزان واقع گردد.

مشکلی بود در نظرات بیان کنید تا رسیدگی شود .

 

ابتدا شما باید ی جدول داخل دیتابیس خودتون ایجاد کنید و اطلاعات دیتابیس رو داخل فایل php زیر وارد کنید:


خط اول که چیز خاصی نداره و فقط واسه اتصاله

DBName:اسم دیتابیس ،USERNAME ,PAssword اینها هم که کاملا مشخصه

داخل ۲ و ۳ و ۴ هم اومدیم متغییر تعریف کردیم(یکی واسه عنوان،بکی هم واسه ایمیل،یکی هم واسه توضیحات)

خط ۵ هم اومدیم داخل دیتابیس گذاشتیم (بجای tbl_Name اسم جدول دیتابیس خودتونو بنویسید)

-بریم سراغ بیسیک

اول ی لایوت میزاریم که سه تا ادیت تکست داره و ی باتن برای ارسال

ی متغییر از نوع httpjob تعریف می کنیم

Dim ht_add As HttpJob

اکتیویتی لود لیوت می کنیم و کد های زیر را داخل sub click می نویسیم

Sub button1_Click
	If EditText1.Text = "" Or EditText2.Text = "" Or EditText3.Text = "" Then
		ToastMessageShow("همه موارد را پر کنید",False)
	
		Return
	End If
	If EditText1.Text.Length < 4 Then
		ToastMessageShow("نام خانوادگی نمیتواند کمتر از ۴ حرف باشد",False)
		
		Return
	End If
	If EditText3.Text.Length < 10 Then
		ToastMessageShow("توضیحات نمیتواند کمتر از ۱۰ حرف باشد",False)
		
		Return
	End If
	ht_add.PostString("http://*****/add.php","user="&EditText1.Text&"&email="&EditText2.Text&"&desc="&EditText3.Text)
End Sub

چند تا خط اول که واسه کنترله خودتون بهش شاخه برگ بدین

و اما خط اخر

اومدیم postString کردیم مطالبی که داخل ادیت تکست ها هستن

به جای http://*****/add.php هم آدرس فایل php خودتون رو بدین

مدرس : آقا سجاد

سورس و کتابخانه ImageCompressor برای بیسیک فور اندروید

با سلام و سپاس 

 

سورسی که امروز براتون مهیا کردم حجم عکس رو به صورت باورنکردنی کم میکنه 

 

سورس و کتابخانه پیوست شد .

 

امیدوارم مفید واق گردد.

 

 

 

 

دانلود سورس و کتابخانه

کتابخانه و سمپل کار با Chrome Custom Tabs

با سلام و سپاس خدمت دوستان عزیز

 

کتابخانه ای که امروز براتون مهیا کردم خیلی جالبه .

 

دید تو برنامه ای مثل تلگرام یا جیمیل لینکی رو باز میکنیم تو خود برنامه مرورگر شبیه گوگل کروم باز میشه امروز میخواهیم به این مبحث بپردازیم .

 

 

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

 

شایان به ذکر می باشد که اگر گوگل کروم نصب باشه با اون محیط باز میشه و گرنه از مرورگر پیش فرض استفاده میشود.

 

برای این کار گوگل مستنداتی را در اختیار برنامه نویسان  قرار داده که برای ( اندروید استودیو – اکلیپس ) هست .

 

و برای بیسیک۴اندروید به صورت مستقیم نمیشه از اونا استفاده کرد.

 

ولی با این کتابخانه که معرفی میکنیم میشه چنین کاری رو پیداه سازی کرد.

 

لینک مستندات : https://developer.chrome.com/multidevice/android/customtabs

 

موفق باشید.

 

Sub Activity_Create(FirstTime As Boolean)
	yahoo.Initialize("yahoo")
	Activity.AddView(yahoo,20dip,20dip,100%x-40dip,60dip)
	yahoo.Text = "YAHOO98 open cherom"
End Sub

Sub yahoo_Click
	Dim crypt3r As ChromCustomTabs
	crypt3r.Initialize("crypt3r")
	crypt3r.chromeCustomTab("https://crypt3r.ir/wp")
End Sub

 

دانلود سورس

 

دانلود کتابخانه

کتابخانه UniversalImagLoader برای بیسیک فور اندروید (تمام نسخه ها)

با سلام و سپاس خدمت کاربران گرامی 

 

کتابخانه  UniversalImagLoader برای بیسیک فور اندروید

 

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

 

 

libUniversalImageLoader_V1.0.0.zip

http://s8.picofile.com/file/8308973918/libUniversalImageLoader_V1_0_0.zip.html


libUniversalImageLoader_V1.0.1.zip

http://s9.picofile.com/file/8308973968/libUniversalImageLoader_V1_0_1.zip.html


libUniversalImageLoader_V1_0_2

http://s8.picofile.com/file/8308973992/libUniversalImageLoader_V1_0_2.zip.html


UniversalImagLoaderEx.zip

http://s9.picofile.com/file/8308974018/UniversalImagLoaderEx.zip.html


UniversalImagLoaderEx2_Flags.zip

http://s8.picofile.com/file/8308974042/UniversalImagLoaderEx2_Flags.zip.html

 

 

 

 

 

 

 

اجرا کردا سرویسی از آپی به آپ دیگر در بیسیک فور اندروید

با  سلام و درود فروان

برای اجرای سرویس یه اپ دیگه میتونید پکیج نیم اون اپ و اسم سرویس رو بهش بدید و اون سرویس رو باز میکنه.

 

منتهی باید اون سرویس قابلیت exported ش برابر با true باشه که بتونید اجراش کنید.

 

حتی اگه میخواین سرویس های اپ خودتون هم قابلیت اجرا توسط اپ های دیگه داشته باشه رو باید توی مانیفست برا سرویس یه properties براش تعریف کنید با عنوان android:exported و مقدارشو true بدید.

 

Sub StartAnotherAppService(PackageName As String,Servicename As String)

Dim int1 As Intent
int1.Initialize("","")
int1.SetComponent(PackageName & "/." & Servicename)
StartService(int1)

End Sub

 

گرداورنده : آقاخانی 

ایجاد فاصله بین دو متن در بیسیک فور اندروید

با سلام و سپاس

 

با این تکه کد شما میتونید بین دو متن در فاصله ایجاد کنید .

 

ابتدا تیک کتابخانه  reflection بزنید و بعد ساب زیر رو اضافه کنید :

 

sub setLineSpace (lbl as label,meghdar as float)

  Dim r As Reflector
  r.Target = lbl
  r.RunMethod3("setLineSpacing",1, "java.lang.float", meghdar, "java.lang.float")

end sub

 




setLineSpace(lbl1,1.3)

 

جای اون ۱٫۳ میتونی از مقادیر دیگه استفاده کنید بنا به استفاده خودتون

سورس و کتابخانه GoogleMapPaths کار با نقشه b4a

با سلام و سپاس خدمت دوستان و کاربران عزیز 

 

Continue reading “سورس و کتابخانه GoogleMapPaths کار با نقشه b4a”

کتابخانه ساخت تنظیمات متریال برای بیسیک فور اندروید

درود دوستان

 

شما با این کتابخانه و مثالی که براتون قرار دادم به راحتی می تونید تنظیمات متریال ایجاد کنید .

 

 

دانلود کتابخانه

 

دانلود سورس

تغییر فونت متن تب های DSTabLayout در AHviewPager و دیزاین ساپورت

با سپاس 

 

با این تکه که میتوانید فونت های  متن تب های DSTabLayout در AHviewPager و دیزاین ساپورت رو تغییر بدهید .

 

کلیت کار به این صورته که میایم با یک حلقه فور تمام لیبل های parent ای که DSTabLayout بهش اد شده رو میگیریم و فونت شون رو تغییر میدیم.

معمولاً parent موردنظر خود اکتیویتی هست :

 

For Each v As View In Activity.GetAllViewsRecursive
If v Is Label Then
Dim lb As Label=v
lb.Typeface=Typeface.LoadFromAssets("font.ttf")
End If
Next

 

 

گرداورنده : نیکروان 

سورس کد و کتابخانه ByteConverter1.1

با سلام و سپاس خدمت شما عزیزان و عزاداران عزای حسینی 

 

دورود به تمامی کاربران عزیز وب سایت یاهو ۹۸ YAHOO

 

امروز براتون کاربا کتابخانه ByteConverter1.1 رو در قالب یه سمپل آماده کرده ام .

 

کار این کتابخانه تبدیل فرمت های کد به هم مثل اعشار به عدد صحیح رشته به عدد و …

 

امید وارم مورد مفید واقع گردد برای شما عزیزان

 

محتاج دعای شما هستیم در این شب های عزیز ما رو هم دعا فرمایید .

 

با سپاس 

 

دانلود کتابخانه

 

دانلود سورس

 

 

سورس کد حرفه ای کار با gps در بیسیک فور اندروید

با سلام و سپاس 

 

امروز سورس کدی برای کار با gps براتون مهیا کرده هم که هر مشکل شما رو در این زمینه حل میکنه .

 

میتونید اینتنت بدید کاربر بره gps رو روشن کنه

میتونید نقطعه یابی کنید تو نقشه داخل برنامه

میتونید طول و عرض جغرافیایی رو بگیرید 

میتونید مختصاتتون رو دخیره و بعد دوباره روی نخشه لود کنید 

و غیره

 

امیدوارم مورد قبول واقع گردد.

 

دانلود نمونه APK

 

دانلود سورس

 

 

Screenshot_2017-09-22-20-45-24.png (480×800)

 

Screenshot_2017-09-22-20-45-10.png (480×800)

Screenshot_2017-09-22-20-45-01.png (480×800)