MR.B4A

با استفاده از این سورس b4a به راحتی میتوانید از صفحه نمایش گوشیتان عکس بگیرید و آن را به یک فایل پی دی اف تبدیل کنید و در حافظه گوشی ذخیره بنمایید. البته با استفاده از این سورس basic4android میتوانید فقط از صفحه گوشیتان اسکرین شات تهیه کنید یا فقط از دستورات تبدیل به فایل pdf استفاده بنمایید و تصاویر را به یک فایل pdf تبدیل کنید. چون برای تبدیل به فایل pdf از کدهای جاوا در سورس استفاده شده است، بنابراین، عملیات مربوط به تبدیل کردن، بسیار استاندارد نوشته شده است. نکته: این سورس قابلیت تبدیل یک تصویر به یک فایل پی دی اف را دارد حتما حتما قبل از تهیه سورس، فایل apk را نصب کنید و تست بنمایید https://s34.picofile.com/file/8490243376/tzt.apk.html تهیه و تنظیم مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

با استفاده از این سورس بیسیک فور اندروید میتوانید به سادگی بازی نوستالژی سنگ کاغذ قیچی رو توی پروژت پیاده سازی کنید. سورس: طبق معمول کدهارو داخل برنات کپی کن Sub Globals Dim appBar As Panel Dim lblTitle As Label Dim imgTop,imgBottom As ImageView Private pnl_adv As Panel Dim lblStart As Button Dim top = 1 , bottom = 1 As Int End Sub Sub Activity_Create(FirstTime As Boolean) Initialize_appBar addIMG End Sub Sub Initialize_appBar appBar.Initialize("") pnl_adv.Initialize("") appBar.Color = Colors.White appBar.Elevation = 3dip Activity.AddView(appBar,0,0,Activity.Width,56dip) Activity.AddView(pnl_adv,5%x,87%y,90%x,10%y) lblTitle.Initialize("") lblTitle.TextColor = Colors.Black lblTitle.Text = "سنگ کاغذ قیچی" lblTitle.Typeface = Typeface.LoadFromAssets("vazir.ttf") lblTitle.Gravity = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL) appBar.AddView(lblTitle,0,0,appBar.Width,appBar.Height) End Sub Sub addIMG imgTop.Initialize("") imgTop.Gravity = Gravity.CENTER imgTop.Bitmap = LoadBitmap(File.DirAssets, top & ".png") Activity.AddView(imgTop,Activity.Width/2 -100dip,100dip,200dip,200dip) imgBottom.Initialize("") imgBottom.Gravity = Gravity.CENTER imgBottom.Bitmap = LoadBitmap(File.DirAssets, bottom & ".png") Dim h As Int = Activity.Height - 300dip Activity.AddView(imgBottom,Activity.Width/2 -100dip,h,200dip,200dip) lblStart.Initialize("start") lblStart.TextColor = Colors.Black Dim cd As ColorDrawable cd.Initialize(Colors.Green, 8dip) lblStart.Background = cd lblStart.Text = "شروع کن" lblStart.TextSize = 25 lblStart.Typeface = Typeface.LoadFromAssets("vazir.ttf") lblStart.Gravity = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL) Dim h As Int = Activity.Height/2 - 30dip Activity.AddView(lblStart,100dip,h,Activity.Width-200dip,60dip) End Sub Sub start_Click top = Rnd(1,3) + 1 bottom = Rnd(1,3) + 1 Dim anim As Animation anim.InitializeRotateCenter("",0,360,imgTop) anim.RepeatCount = 1 anim.Duration = 50 anim.Start(imgTop) anim.Start(imgBottom) imgTop.Bitmap = LoadBitmap(File.DirAssets, top & ".png") imgBottom.Bitmap = LoadBitmap(File.DirAssets, bottom & ".png") End Sub و دیگر هیچ ( بدون لیوت ) طراح و نویسنده: مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

ویژگی ها گرفتن اسکرین شات از صفحه نمایش به صورت خودکار آپلود عکس در هاست واقعی به صورت خودکار حذف عکس های گرفته شده از حافظه گوشی کاربر به منظور پرنشدن حافظه. به همراه فایل PHP نکته: این سورس تا زمانی کار میکند که فعال باشد و از صفحات درون خود برنامه عکس میگیرد، نه از همه جای گوشی اگر تست میخواهید، آدرس هاستتان را بدهید، و از تست، ویدئو گرفته میشود. هاستی که من درون این برنامه استفاده کردم غیرفعال شده و به همین دلیل فیلم تستی ازش ندارم. طراح و نویسنده: مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

با استفاده از این سورس بیسیک فور اندروید ویوی مورد نظرت رو با استفاده از SeekBar بچرخون کدهای زیر را با سلیقه خودتون در اکتیویتی کپی کنید: Sub Globals Dim poPan As B4XView Dim poPan2 As B4XView Dim poPan3 As B4XView Private btn As Button Private lbl As Label Private img As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("page1") poPan = btn poPan2 = img poPan3 = lbl End Sub Private Sub sb1_ValueChanged (Value As Int, UserChanged As Boolean) poPan.Rotation = Value End Sub Private Sub sb2_ValueChanged (Value As Int, UserChanged As Boolean) poPan2.Rotation = Value End Sub Private Sub sb3_ValueChanged (Value As Int, UserChanged As Boolean) poPan3.Rotation = Value End Sub طراح و تهیه کننده: مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

با استفاده از این سورس basic4android، میتوانید یک لینک موزیک رو به صورت آنلاین پخش کنید. ویژگی ها تنظیم سرعت پخش تنظیم ولوم قابلیت مکث و توقف موزیک نمایش زمان و حجم فایل صوتی تست: https://s34.picofile.com/file/8490124826/AudioStreamer_answer.apk.html تهیه و تنظیم محمدرضا پیرزاده ناشر مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

باسلام خدمت برنامه نویسان عزیز، به خصوص برنامه نویسان b4a سورس برنامه ای که میبینید به زبان basic4android نوشته شده است. کار اصلی این سورس، محاسبه ارزش پروژه نرم افزاری شما است ( حالا چه خریدار و چه فروشنده ) فرقی هم ندارد با چه زبان برنامه نویسی هم نوشته باشید. ویژگی های سورس: * لیست ویوی سفارشی با قابلیت اضافه کردن ویوهای مختلف * محاسبه ارزش پروژه با استفاده از الگوریتم محاسباتی ( کاملا آفلاین ) * دارای دیالوگ باکس کشویی از پایین برای نمایش توضیحات * تبدیل عدد به روز و ماه ( در ویدئو ببینید تا متوجه شید ) * استفاده از اسکرول عمودی و افقی * جداسازی 3 رقم 3 رقم مبلغ پروژه * دیتابیس آفلاین ( insert , delete , update ) * جلوگیری از تایپ انگلیسی * استفاده از Toast messages سفارشی * استفاده از کتابخانه لودینگ اختصاصی * منوی متریال راست چین * نمایش عکس و بزرگنمایی و حرکت تصویر * قابلیت اسکرول متن، حتی متن های طولانی * امکان سرچ پروزه های ذخیره شده براساس حروف الفبا و سرچ زنده ( live search ) درضمن میتوانید از کافه بازار خود اپلیکیشن را تهیه بفرمایید: https://cafebazaar.ir/app/ir.project.cost.estimation.mr.b4a تهیه و تنظیم مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a ویرایش شده1۱۲:۱۶ قبل‌ازظهر

پکیج شامل این مینی سورس ها میباشد: انیمیشن برای ویوها ناویگیشن منو بازکردن لینک ها در برنامه مدیریت رینگتن های گوشی افکت ریپل ویو برای ویوها هر سورس به همراه ویدئوی آموزشی کوتاه و کتابخانه ها و کلاس های مربوطه دوستان دقت کنید که قبل از تهیه پکیج، حتما ابتدا فایل نصبی سورس را روی گوشیتان تست کنید که جواب دهد. تهیه و تنظیم مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

بااستفاده از این سورس کد بیسیک فور اندروید، یک حالت ویوی کلیک متریالی به ویوهای پروژتون اضافه کنید تا جلوه بصری زیباتری داشته باشند. سورس کد: ابتدا ویوهای مورد نظرتان را در لیوت بسازید و سپس این دستورات را در اکتیویتیتان اضافه کنید: Sub Globals Private ripple As RippleView Private Button1 As Button Private Button2 As Button Private Label1 As Label Private Label2 As Label End Sub ripple.Initialize(Button1, Colors.White, 100, False) ripple.Initialize(Button2, Colors.RGB(0, 188, 212), 500, True) ripple.Initialize(Label1, Colors.RGB(175, 180, 43), 200, False) ripple.Initialize(Label2, Colors.RGB(245, 0, 87), 700, True) بعد از اضافه کردن این دستورات، وقتی روی ویو کلیک میشه، حالت انیمیشنی کلیک نمایان میشه. تهیه و تنظیم: مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

سلام خدمت همه برنامه نویسان اندروید با زبان شیرین b4a درخدمتتون هستیم با یکی دیگر از سورس های کاربردی بیسیک فور اندروید. سورس کتاب پیشرفته2 درمورد سورس کتاب، میتوان گفت که همه برنامه نویسان، حالا در هر زبانی، باید نوشتن یک کتاب را بلد باشند. چرا، چون نکات بسیار مهم و کلیدی از جمله دیتابیس آفلاین و یا آنلاین در آن رعایت شده است که خودش دارای نکات بسیار مهمی است. در اینجا ما برای شما سورس کتاب پیشرفته را آماده کرده ایم که با دانلود آن، نکات بسیاری در رابطه با برنامه نویسی اندروید با زبان بسیک فور اندروید را میتوانید بیاموزید. من اسم این سورس را کتاب پیشرفته2 گذاشتم چون یک سورس دیگر با همین نام دارم که من پیشنهاد میکنم از همین سورس ( سورس جدید ) استفاده کنید، چرا که ویژگی های بسیاری به نسبت سورس قبلی دارد. ویژگی های سورس: * بازکردن فایل pdf در خود برنامه * افکت انیمیشنی برای رفتن به اکتیویتی های دیگر ( از چپ به راست و از راست به چپ ) * دیتابیس آفلاین ( استفاده از دستور select ) * منوی متریال راستچین * افکت متریالی برای انتخاب گزینه ( درمنوی متریال استفاده شده است ) * اسکرول کردن متن طولانی * ساخت گالری عکس با قابلیت zoom عکس * حذف میله اسکرول بار افقی و عمودی * نمایش عکس و متن از دیتابیس باهم * نمایش صفحه وب در اپلیکیشن * بازکردن لینک های تلگرامی و اینستاگرامی در بخش درباره ما * پیاده سازی تبلیغات تپسل فایل تست: https://s34.picofile.com/file/8489998942/computer.apk.html https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

روشی که 100% جواب بده متاسفانه وجود ندارد و شبیه سازهای جدید رفتارشون بسیار شبیه گوشی واقعی شده. من یک نمونه کد میذارم اما حتما خودتون تست کنید. این ساب رو به پروژه تان اضافه کنید: Sub IsEmulator As Boolean Try Dim Build As JavaObject Build.InitializeStatic("android.os.Build") Dim model As String = Build.GetField("MODEL") Dim manufacturer As String = Build.GetField("MANUFACTURER") Dim brand As String = Build.GetField("BRAND") Dim device As String = Build.GetField("DEVICE") Dim product As String = Build.GetField("PRODUCT") model = model.ToLowerCase manufacturer = manufacturer.ToLowerCase brand = brand.ToLowerCase device = device.ToLowerCase product = product.ToLowerCase If model.Contains("sdk") Or model.Contains("emulator") Then Return True If manufacturer.Contains("genymotion") Then Return True If brand.Contains("generic") Or device.Contains("generic") Then Return True If product.Contains("sdk") Or product.Contains("emulator") Then Return True Catch Log(LastException) End Try Return False End Sub سپس به این شکل ازش استفاده کنید: If IsEmulator Then Msgbox("برنامه روی شبیه‌ساز اجرا شده", "") Else Msgbox("برنامه روی گوشی واقعی اجرا شده", "") End If تهیه و تنظیم مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

درخدمتتون هستیم با یک سورس بسیار کمیاب برای b4a همانطور که میدانید، سورس تقویم میلادی برای b4a به وفور یافت میشود، اما تقویم شمسی تقریبا نه! با استفاده از این سورس میتوانید تقویم شمسی را داخل پروژه خود پیاده سازی کنید. همچنین سورس قابلیت ثبت تاریخ تولد و نوتیف فرا رسیدن تاریخ تولد را هم دارد. به دلیل اینکه این سورس کاملا به شکل دستی نوشته شده و از کتابخانه خاصی در آن استفاده نشده، بسیار انعطاف پذیر بوده و به راحتی میتوانید آن را تغییر دهید. اما نقطه ضعفش هم همین است! یعنی باید هرسال آن را بروز کرد و رویدادها و روزها را دستی تغییر داد. ویژگی ها: * نمایش تقویم هر ماه * نمایش رویدادهای هرماه هم به صورت متنی و هم به صورت علامتی روی تقویم * امکان نمایش تاریخ کامل روز * ایجاد نوتیفیکیشن بعد از اجرای برنامه * امکان اضافه کردن تاریخ تولد، اسم و تصویر برای شخص * امکان حذف تاریخ اضافه شده ( حذف فیلد دیتابیس، همچنین تصویر مخاطب از حافظه ) * امکان ثبت تاریخ تولد و نمایش آن فایل تست: https://s34.picofile.com/file/8489955676/calender_shamsi.apk.html https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

با استفاده از این سورس فوق العاده حرفه ای، به ویوهایتان ( پنل، ایمیج ویو، باتن، لیبل و... ) حالت انیمیشنی بدهید. این سورس دارای 8 حالت انیمیشن منحصر به فرد برای ویوها است. کدهای زیر را در اکتیویتی خود کپی کنید Sub Globals Dim Animator As MP_ViewAnimator Private Panel1 As Panel End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("page") Animator.Initialize("MyAnim") Animator.SetView(Panel1) Animator.Delay = 500 Animator.Reverse = True End Sub Private Sub Button6_Click Animator.PresetZoomIn(1000) End Sub Private Sub Button5_Click Animator.PresetZoomOut(1000) End Sub Private Sub Button4_Click Animator.PresetFadeIn(1000) End Sub Private Sub Button3_Click Animator.PresetFadeOut(1000) End Sub Private Sub Button2_Click Animator.PresetShake(1000) End Sub Private Sub Button1_Click Animator.PresetSpin(1000) End Sub Private Sub Button7_Click Animator.PresetBounceIn(1000) End Sub Private Sub Button8_Click Animator.PresetAttentionSeeker(1000) End Sub عضویت در کانال ما https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

📱 سورس نمایش پیامک های گوشی به زبان بیسیک فور اندروید 🟢 ویژگی های اپلیکیشن ☯️ لیست کردن همه پیامک های گوشی ☯️ ذخیره پیامک ها به شکل PDF ☯️ ذخیره پیامک ها به شکل فایل متنی ☯️ جستجو بین پیام ها با استفاده از نام مخاطب ☯️ حالت شب و روز ☯️ جستجو بین پیام ها با استفاده از تاریخ ☯️ جستجوی زنده (Live Search) ☯️ طراحی شیشه ای ☯️ نمایش تاریخ هر پیامک ☯️ لینک برنامه به ایتا و تلگرام ☯️ لینک برنامه به فروشگاه 🌟 ویژگی های سورس 📌 پیاده سازی تبلیغات ویدئویی همسان تپسل 📌 ذخیره فایل PDF & TXT در اندرویدهای زیر و بالای 10 📌 ذخیره فایل های ذکرشده در پوشه دانلود و یا پوشه دست ساز 📌 فیت کردن اندازه متن با لیبل 📌 استفاده از لیست ویوی سفارشی 📌 سه نقطه گذاری در آخر متن های طولانی 📌 استفاده از افکت Ripple جهت زیبایی 📌 ساخت مسنجر برای نمایش پیام های ارسالی و دریافتی 📌 نمایش توست مسیج سفارشی شبیه توست مسیج تلگرام 📌 تبدیل بخشی از متن به لینک به همراه قابلیت کلیک 📌 گرفتن نسخه اندروید 📌 کار با حافظه داخلی گوشی و ذخیره فایل در حافظه 📌 عدم تاثیرگذاری فونت و گوشی روی برنامه با استفاده از جاوا 📌 قابلیت نمایش دیالوگ برای بارگذاری پیامک ها 📌 نمایش شماره دلخواه در دیالر گوشی 🔑 به همراه ترجمه خط به خط 🔗 به همراه کتابخانه های مورد نیاز 📌 توجه کنید که ابتدا فایل APK را دانلود کنید و روی گوشی مورد نظر نصب کنید. اگر جواب داد، سورس را تهیه نمایید. فایل APK جهت تست 👇 https://s34.picofile.com/d/8488884718/9f4b2ea1-3c40-4f73-a173-b19ad521268e/Read_all_SMS_messages.apk تهیه و تنظیم مرتضی صباغی MR.B4A کانال های ارتباطی ایتا https://eitaa.com/basic4androidlan تلگرام https://t.me/programmingwithb4a

با استفاده از سورس basic4android زیر، زنگ تلفن، زنگ هشدار و زنگ نوتیفیکیشن گوشیتان را ست کنید این سورس به زبان بیسیک فور اندروید نوشته شده است و بسیار بسیار کاربردی است 🌠 عضویت در کانال ما 👈 https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a سورس: 👇👇 این کدها را در اکتیویتی که میخواهید سورس را پیاده کنید، کپی کنید: Sub Globals Private MediaPlayer As MediaPlayer Private Ring As RingtoneManager Private Ring_alarm As RingtoneManager Private Ring_notif As RingtoneManager Private run As RuntimePermissions Private MES As ManageExternalStorage Private Phone As Phone Private pnl_adv As Panel End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("ab") MediaPlayer.Initialize If File.Exists(File.DirInternal,"db.db")=False Then File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db") End If run.CheckAndRequest(run.PERMISSION_WRITE_EXTERNAL_STORAGE) run.CheckAndRequest(run.PERMISSION_READ_EXTERNAL_STORAGE) MES.Initialize(Me,"MES") If Phone.SdkVersion < 30 Then run.CheckAndRequest(run.PERMISSION_WRITE_EXTERNAL_STORAGE) run.CheckAndRequest(run.PERMISSION_READ_EXTERNAL_STORAGE) Wait For Activity_PermissionResult (Permission As String, Result As Boolean) If Result Then CheckManageWriteSettings Else If Not(MES.HasPermission) Then MES.GetPermission Else CheckManageWriteSettings End If End If End Sub Sub Activity_Resume If Phone.SdkVersion >30 Then If MES.HasPermission Then CheckManageWriteSettings End If End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub CheckManageWriteSettings If Not(CanWriteToSystemSettings) Then Dim in As Intent in.Initialize("android.settings.action.MANAGE_WRITE_SETTINGS","package:"&Application.PackageName) StartActivity(in) Wait For Activity_Resume If Not(CanWriteToSystemSettings) Then Log("no permission...") Return End If End If End Sub Sub CanWriteToSystemSettings As Boolean If Phone.SdkVersion >= 23 Then Dim ctxt As JavaObject ctxt.InitializeContext Dim settings As JavaObject settings.InitializeStatic("android.provider.Settings.System") Return settings.RunMethod("canWrite", Array(ctxt)) End If Return True End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) MediaPlayer.Stop MediaPlayer.Load(File.DirAssets,Position&".mp3") MediaPlayer.Play End Sub Private Sub btn_play_notif_Click MediaPlayer.Load(File.DirAssets,"notif.mp3") MediaPlayer.Play End Sub Private Sub btn_set_notif_Click If File.Exists(File.DirRootExternal,"notif.mp3") = False Or File.Exists(File.DirRootExternal,"notif.mp3") Then File.Copy(File.DirAssets,"notif.mp3",File.DirRootExternal,"notif.mp3") Dim r_notif As String Try r_notif = Ring_notif.AddToMediaStore(File.DirRootExternal,"notif.mp3","notif",False,True,False,True) File.WriteString(File.DirInternal,"notif.txt",r_notif) Catch Dim re_notif As String re_notif = File.ReadString(File.DirInternal,"notif.txt") Ring_notif.DeleteRingtone(re_notif) r_notif = Ring_notif.AddToMediaStore(File.DirRootExternal,"notif.mp3","notif",False,True,False,True) File.WriteString(File.DirInternal,"notif.txt",r_notif) End Try Ring_notif.SetDefault(Ring_notif.TYPE_RINGTONE,r_notif) ToastMessageShow(" به عنوان صدای نوتیف تنظیم شد",True) End If End Sub Private Sub btn_set_warning_Click If File.Exists(File.DirRootExternal,"alarm.mp3") = False Or File.Exists(File.DirRootExternal,"alarm.mp3") Then File.Copy(File.DirAssets,"alarm.mp3",File.DirRootExternal,"alarm.mp3") Dim r_alarm As String Try r_alarm = Ring_alarm.AddToMediaStore(File.DirRootExternal,"alarm.mp3","alarm",True,False,False,True) File.WriteString(File.DirInternal,"alarm.txt",r_alarm) Catch Dim re_alarm As String re_alarm = File.ReadString(File.DirInternal,"alarm.txt") Ring_alarm.DeleteRingtone(re_alarm) r_alarm = Ring_alarm.AddToMediaStore(File.DirRootExternal,"alarm.mp3","alarm",True,False,False,True) File.WriteString(File.DirInternal,"alarm.txt",r_alarm) End Try Ring_alarm.SetDefault(Ring_alarm.TYPE_RINGTONE,r_alarm) ToastMessageShow(" به عنوان صدای آلارم تنظیم شد",True) End If End Sub Private Sub btn_play_warning_Click MediaPlayer.Load(File.DirAssets,"alarm.mp3") MediaPlayer.Play End Sub Private Sub btn_play_ringtone_Click MediaPlayer.Load(File.DirAssets,"ringtone.mp3") MediaPlayer.Play End Sub Private Sub btn_set_ringtone_Click If File.Exists(File.DirRootExternal,"ringtone.mp3") = False Or File.Exists(File.DirRootExternal,"ringtone.mp3") Then File.Copy(File.DirAssets,"ringtone.mp3",File.DirRootExternal,"ringtone.mp3") Dim r As String Try r = Ring.AddToMediaStore(File.DirRootExternal,"ringtone.mp3","rington",False,False,True,True) File.WriteString(File.DirInternal,"ringtone.txt",r) Catch Dim re As String re = File.ReadString(File.DirInternal,"ringtone.txt") Ring.DeleteRingtone(re) r = Ring.AddToMediaStore(File.DirRootExternal,"ringtone.mp3","ringtone",False,False,True,True) File.WriteString(File.DirInternal,"ringtone.txt",r) End Try Ring.SetDefault(Ring.TYPE_RINGTONE,r) ToastMessageShow(" به عنوان صدای زنگ تنظیم شد",True) End If End Sub Private Sub btn_stop_Click MediaPlayer.Stop End Sub ✅✅ سپس یک کلاس ماژول استاندارد بسازید و کدهای زیر را در آن کپی کنید: #Event: StorageAvailable Sub Class_Globals Private ion As Object Private mCallback As Object Private mEventName As String End Sub 'Initializes the object Public Sub Initialize (Callback As Object, EventName As String) mCallback = Callback mEventName = EventName End Sub Public Sub HasPermission As Boolean Dim has As Boolean Dim jo As JavaObject jo.InitializeStatic("android.os.Environment") has = jo.RunMethod("isExternalStorageManager", Null) Return has End Sub Public Sub GetPermission If HasPermission Then RaiseEvent Return End If Dim in As Intent in.Initialize("android.settings.MANAGE_APP_ALL_FILES_ACCESS_PERMISSION", "package:"&Application.PackageName) StartActivityForResult(in) End Sub Private Sub RaiseEvent Log("Calling : " & mEventName & "_StorageAvailable") CallSubDelayed(mCallback, mEventName & "_StorageAvailable") End Sub Private Sub ion_Event (MethodName As String, Args() As Object) As Object RaiseEvent Return Null End Sub Private Sub StartActivityForResult(i As Intent) Dim jo As JavaObject = GetBA ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null) jo.RunMethod("startActivityForResult", Array As Object(ion, i)) End Sub Private Sub GetBA As Object Dim jo As JavaObject = Me Return jo.RunMethod("getBA", Null) End Sub ⭕⭕ و در نهایت به سلیقه خود، لیوت مورد نظرتون رو طراحی کنید.

برای این که بتوانید در b4a لینک خود را از طریق مرورگر و یا داخل خود برنامه باز کنی، حتما نیاز به این میکنی سورس کد پیدا خواهی کرد. با استفاده از این سورس یادمیگیرید که چگونه در بییک فور اندروید، یک لینک را با استفاده از فراخوانی یک مرورگر و یا داخل خود برنامه باز کنید. سورس: Sub Process_Globals End Sub Sub Globals Private i As Intent Private xui As XUI Private rip As RippleView Private wv_link As WebView Private pnl_adv As Panel Private lbl_open_browser As Label Private lbl_open_web_view As Label Private lbl_html As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") If rip.IsInitialized=False Then rip.Initialize(lbl_html,Colors.Black,100,False) rip.Initialize(lbl_open_browser,Colors.Black,100,False) rip.Initialize(lbl_open_web_view,Colors.Black,100,False) End If End Sub Private Sub activity_PermissionResult (Permission As String, Result As Boolean) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Private Sub wv_link_PageFinished (Url As String) ToastMessageShow("سایت کامل بارگذاری شد",True) End Sub Private Sub lbl_open_web_view_Click wv_link.LoadUrl("https://www.time.ir/") wv_link.Visible=True End Sub Private Sub lbl_open_browser_Click i.Initialize(i.ACTION_VIEW,"https://www.time.ir/") StartActivity(i) End Sub Private Sub lbl_html_Click wv_link.LoadUrl(xui.FileUri(File.DirAssets,"h.html")) wv_link.Visible=True End Sub کانال ایتا https://eitaa.com/basic4androidlan کانال تلگرام https://t.me/programmingwithb4a