irb4x.ir

سلام #تخفیف امروز فقط با ۴۹۹ هزار تومن یک ماه تبلیغ شما در اپلیکیشن‌های ما ۱. ۳۰ روز ۴۹۹ تومن ۲. ۲۰ روز ۳۰۰ تومن ۳. ۱۵ روز ۲۴۹ تومن تخفیف برای مشتریهای قبلیمون توضیحات بیشتر @goodarzi1 ——————————————————- @irb4x

سلام تبلیغ برنامه شما در برنامه بانک رمان به صورت بنری در صفحه اصلی با + 250 کا نصب با کمترین هزینه نمایش بر اسا ای پی 20 ریال نمایش ویدیو 300 ریال کلیک 500 ریال https://play.google.com/store/apps/details?id=ir.ali.gholami.romanbank ————————————————— https://play.google.com/store/apps/details?id=ir.ali.gholami.romanashegh3 ————————————————— https://play.google.com/store/apps/details?id=ir.ali.gholami.romanashegh1 جهت توضیحات بیشتر و سفارش به ای دی زیر پیام بدین @Goodarzi1 ———————————————————————————- @IRB4X

نسخه جدید بیسیک توضیحات https://www.b4x.com/android/forum/threads/b4a-v9-90-has-been-released.119043/ دانلود https://www.b4x.com/android/files/B4A.exe ----------------------------------------------- #b4a_9.90 @irb4x

سلام ۲ محصول سایت فقط ۶۰ هزار تومان فقط ۱ نفر جهت خريد @Goodarzi1 Http://irb4x.ir/shop

🔹 اگر از تارگت 29 استفاده میکنید و دسترسی خواندن و نوشتن هم از کاربر میگیرید حتما این کد رو بزارید منیفست👇 . 🔹چون بعضی اندروید های 10 هنگام خوندن فایل به ارور دسترسی برمیخورن ----------------------------------------'--- SetApplicationAttribute(android:requestLegacyExternalStorage,"true") @irb4x

⭕️ شوک اطلاعاتی قرن روزنامه آمريكايي واشنگتن‌پست و تلويزيون «زد دي‌اف» آلمان با انتشار نتايج يك تحقيق مشترک مدعي شدند شركت سوئيسي «كريپتو اي.جي» كه به عنوان معتبرترين شركت دنيا درخصوص ارائه خدمات كدهاي رمزگذاري شده ارتباطاتي شناخته مي شود، به صورت مخفيانه متعلق به سيا بوده و همكاري محرمانه‌اي هم با دستگاه اطلاعات آلمان داشته است 🔸 واشنگتن‌پست:… ----------------------------------------------- https://irb4x.ir/?p=8982 #كريپتو_اي_جي #اخبار @irb4x

اشتراک گذاری متن با اینتنت Sub Share(Text As String) Dim in As Intent in.Initialize(in.ACTION_SEND, "") in.PutExtra("android.intent.extra.TEXT", Text) in.SetType("text/plain") in.WrapAsIntentChooser("اشتراک گذاری متن") StartActivity(in) End Sub   ----------------------------------------------- https://irb4x.ir/?p=8974 #b4a #اشتراک_متن #اینتنت #بیسیک4اندروید #آموزش @irb4x

تبدیل اعداد انگلیسی به فارسی Sub En_TO_Fa(Label1 As Label,Text As String) As String Label1.Text=Text.Replace("0","٠").Replace("1","١").Replace("2","٢").Replace("3","٣").Replace("4","٤") _ .Replace("5","٥").Replace("6","٦").Replace("7","٧").Replace("8","٨").Replace("9","٩") Return Label1.Text End Sub   ----------------------------------------------- https://irb4x.ir/?p=8977 #b4a #بیسیک4اندروید #آموزش @irb4x

بیسیک فور اندروید رایگان شد بیسیک فور اندروید رایگان شد در ضمن میتونید کتابخونه ها و مثالها و کلاسهای بیسیک فور اندروید رو هم از سایتش دانلود کنید   https://www.b4x.com/b4a.html     ----------------------------------------------- https://irb4x.ir/?p=8972 #b4a #بیسیک4اندروید #اخبار @irb4x

چک کردن وضعیت اینترنت Sub check_connection As Boolean Dim r As Reflector r.Target = r.GetContext r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String") r.Target = r.RunMethod("getActiveNetworkInfo") 'Log(r.Target) 'Log(r.RunMethod("isConnected")) If r.Target Null Then Return True Else Return False End If End Sub   ----------------------------------------------- https://irb4x.ir/?p=8970 #اینترنت #بیسیک4اندروید #چک_کردن_اینترنت #آموزش @irb4x