با سلام و درود به کاربران گل یاهو ۹۸ YAHOO
امروز سورس کد آموزنده محاسبه اوقات شهری که این سورس کد خیلی آموزنده و در هر برنامه ای جای دارد .
همکنون میتونید این سورس رو به رایگان دانلود کنید .
موفق باشید.
دانلود سورس
دانلود کتابخانه ها
پشتیبانی : 09352511893
با سلام و درود به کاربران گل یاهو ۹۸ YAHOO
امروز سورس کد آموزنده محاسبه اوقات شهری که این سورس کد خیلی آموزنده و در هر برنامه ای جای دارد .
همکنون میتونید این سورس رو به رایگان دانلود کنید .
موفق باشید.
دانلود سورس
دانلود کتابخانه ها
با سلام و درود خدمت دوستان عزیز
امروز آموزش ارتباط با ما تحت وب رو برای شما مهیا کرده ایم .
امیدوارم مورد قبول شما عزیزان واقع گردد.
مشکلی بود در نظرات بیان کنید تا رسیدگی شود .
ابتدا شما باید ی جدول داخل دیتابیس خودتون ایجاد کنید و اطلاعات دیتابیس رو داخل فایل 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 خودتون رو بدین
مدرس : آقا سجاد
با سلام و سپاس
سورسی که امروز براتون مهیا کردم حجم عکس رو به صورت باورنکردنی کم میکنه
سورس و کتابخانه پیوست شد .
امیدوارم مفید واق گردد.
دانلود سورس و کتابخانه
با سلام و سپاس خدمت دوستان عزیز
کتابخانه ای که امروز براتون مهیا کردم خیلی جالبه .
دید تو برنامه ای مثل تلگرام یا جیمیل لینکی رو باز میکنیم تو خود برنامه مرورگر شبیه گوگل کروم باز میشه امروز میخواهیم به این مبحث بپردازیم .
برای این کار کافیه کتابخانه پیوست شده رو به کتابخانه های بیسیکتون اضافه کرده و سمپل رو ران کنید یا همون ریلیز کنید .
شایان به ذکر می باشد که اگر گوگل کروم نصب باشه با اون محیط باز میشه و گرنه از مرورگر پیش فرض استفاده میشود.
برای این کار گوگل مستنداتی را در اختیار برنامه نویسان قرار داده که برای ( اندروید استودیو – اکلیپس ) هست .
و برای بیسیک۴اندروید به صورت مستقیم نمیشه از اونا استفاده کرد.
ولی با این کتابخانه که معرفی میکنیم میشه چنین کاری رو پیداه سازی کرد.
لینک مستندات : 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 برای بیسیک فور اندروید
دوستان اکثر شما با این کتابخانه آشنا هستید کتابخانه ای برای کش کردن و نمایش عکس تمام نسخه ها و مثال ها پیوست شد.
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
با سلام و سپاس
با این تکه کد شما میتونید بین دو متن در فاصله ایجاد کنید .
ابتدا تیک کتابخانه 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)
جای اون ۱٫۳ میتونی از مقادیر دیگه استفاده کنید بنا به استفاده خودتون
با سلام و سپاس خدمت دوستان و کاربران عزیز
Continue reading “سورس و کتابخانه GoogleMapPaths کار با نقشه b4a”
درود دوستان
شما با این کتابخانه و مثالی که براتون قرار دادم به راحتی می تونید تنظیمات متریال ایجاد کنید .
دانلود کتابخانه
دانلود سورس
با سلام و سپاس خدمت شما عزیزان و عزاداران عزای حسینی
دورود به تمامی کاربران عزیز وب سایت یاهو ۹۸ YAHOO
امروز براتون کاربا کتابخانه ByteConverter1.1 رو در قالب یه سمپل آماده کرده ام .
کار این کتابخانه تبدیل فرمت های کد به هم مثل اعشار به عدد صحیح رشته به عدد و …
امید وارم مورد مفید واقع گردد برای شما عزیزان
محتاج دعای شما هستیم در این شب های عزیز ما رو هم دعا فرمایید .
با سپاس
دانلود کتابخانه
دانلود سورس
با سلام و سپاس
امروز سورس کدی برای کار با gps براتون مهیا کرده هم که هر مشکل شما رو در این زمینه حل میکنه .
میتونید اینتنت بدید کاربر بره gps رو روشن کنه
میتونید نقطعه یابی کنید تو نقشه داخل برنامه
میتونید طول و عرض جغرافیایی رو بگیرید
میتونید مختصاتتون رو دخیره و بعد دوباره روی نخشه لود کنید
و غیره
امیدوارم مورد قبول واقع گردد.
دانلود نمونه APK
دانلود سورس
با سلام و درود خدمت کاربران عزیز وب سایت
در این ساعت از سایت بنابه در خواست یکی از دوستان قطعه کد عکس تصارفی رو براتون نوشتم و قرار میدم .
موفق و سر بلند باشید .
#Region Project Attributes #ApplicationLabel: B4A Example #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private ImageView1 As ImageView Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("1") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim yahoo98 As Int yahoo98 = Rnd(1, 4) ' in your case between 1 and 3 ImageView1.Bitmap = LoadBitmap(File.DirAssets, "image_" & NumberFormat(yahoo98, 2, 0) & ".png") End Sub
توجه : شایان به ذکر می باشد که برای کد بالا شما باید در فولدر files سورس خود ۴ عکس به ترتیب :
image_01.png
image_02.png
image_03.png
image_04.png
قرار بدبد و یه لی یوت یا لایوت بسازید و درونش ImageView1 و Button1 رو قرار بدید و اسم لایوتتونم به نام ۱ ذخیره کنید .
با سلام و سپاس
در این ساعت از سایت یاهو ۹۸ YAHOO98 برای کاربران عزیز :
سورس کد ذخیره عکس از ایمیج ویو رو مهیا کرده ایم که میتونید کیفیت ذخیره عکس رو انتخاب کنید .
قسمت مربوط به کیفیت عدد ۱۰۰ می باشد که میتونید ۱۰۰ رو تغییر بدید .
( کیفیت اصلی ۱۰۰ می باشد) .
Sub btn_Click Dim bit1 As Bitmap bit1 = ImageView1.Bitmap Dim out As OutputStream out=File.OpenOutput(File.DirRootExternal,"1.png",True) bit1.WriteToStream(out, 100, "PNG") out.Close ToastMessageShow("عکس ذخیره شد",False) End Sub
دانلود سورس
با سپاس
با این سورس کد و کتابخانه شما قادر خواهید بود که کلبه Contacts خود رو با تمامی محتوا در بیسیک فور اندروید نمایش بدید و از اون ها استفاده کنید .
امید وارم مفید واقع گردد.
سورس کد و کتابخانه پیوست شد .
موفق باشید .
دانلود سورس
دانلود کتابخانه
با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO
امروز براتوئن سورس و کتابخانه HBDrag رو مهیا کرده ایم که باهاش میتونید تمامی اشیاء رو درگ کنید .
امیدوارم مفید واقع گردد.
با سپاس
دانلود سورس
دانلود کتابخانه