محمدرضا شاهپیری

درود. من متاسفانه اصلا وقت نمیکنم که کد بنویسم برای دوستان اما به شکل زیره کلیتش Dim contactTask As PersianAsyncTask Private Sub startInsert contactTask.Initialize("task") contactTask.Execute(Null) End Sub Private Sub task_DoInBackground(Params() As Object) As Object Dim totalSize As Int=lst.Size For i=0 To totalSize-1 Dim contact As MyContact=lst.Get(i) InsertContact (contact.name , contact.number) contactTask.PublishProgress(i+1) Next End Sub Private Sub task_PostExecute(Result As Object) ToastMessageShow("inset contacts done",False) End Sub Private Sub task_ProgressUpdate(Progress() As Object) Dim totalSize As Int=lst.Size Dim current As Int=Progress(0) Log(current& " from "&totalSize&" inserted ") End Sub

چون کار سنگین انجام میدین تو نخ اصلی ui فریز میشه باید از ترد استفاده کنید. کتابخونه زیر رو استفاده کنید و توی متد doInBackground کار اینزرت رو انجام بدین

یه کلاس بسازید مثلا به نام MyContact به شکل زیر Sub Class_Globals Public name , number As String End Sub Public Sub Initialize End Sub متد ساخت شماره ها ه مبه شکل زیر میشه Public Sub generateNumbers For i=1 To 50 Private a,b,c,d,e,f,g As String Private number As String Private name As String a=Rnd(0,9) b=Rnd(0,9) c=Rnd(0,9) d=Rnd(0,9) e=Rnd(0,9) f=Rnd(0,9) g=Rnd(0,9) number="0912"&a&b&c&d&e&f&g name="مخاطب" & i Dim cs As MyContact cs.Initialize cs.name=name cs.number=number lst.add(cs) Next End Sub وقتی هم روی لیست کلیک شد ایندکس رو به متد زیر پاس بدید Private Sub addContact(index As Int) Dim cs As MyContact =lst.Get(index) InsertContact ( cs.name , cs.number ) End Sub من نمیدونم هدف و بیزینس کارتون چیه. چیکا میخواین بکنید دقیقا؟

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

درود دسترسی اس ام اس دسترسی خطرناکیه و اندروید شدیدا روش حساسیت داره. دلیل استفاده تون چیه؟ اگه نیاز ضروری ندارید استفاده نکنید مورد زیر رو هم تست کنید شاید رفع بشه.exported="false" یعنی برنامه خودتون فقط میتونه این رسیور رو گوش کنه <receiver android:name=".Service.Broadcast_sms" android:exported="false"> <intent-filter > <action android:name="android.provider.Telephony.SMS_RECEIVED" /> </intent-filter> </receiver>

عزیز مواردی که گذاشتم رو باید دانلود و استفاده کنید نه چیزایی که از قبل دارین. تحریمیم دیگه...

درود. کتابخونه پولکی انجمن مشکلی نداره عزیز. مشکل از سیستم شما هست. یک بار به کل b4aوsdk رو حذف کنید و از سایت مرجع دوتاشونو بگیرید. همینطور ریسورسها رو. نباید مشکلی باشه 1:https://www.b4x.com/b4j/files/jdk-19.0.2.zip 2:https://dl.google.com/android/repository/commandlinetools-win-9123335_latest.zip 3:https://www.b4x.com/android/files/resources_7_24.zip

نیازی به جاوا نیست. کتابخونه gps رو تیک بزنید و کد زیر رو منیفست اضافه کنید AddPermission(android.permission.ACCESS_FINE_LOCATION) به شکل زیر میتونید بگیرید لوکیشن رو Sub Process_Globals Dim gp As GPS Dim runtime As RuntimePermissions End Sub Sub Activity_Create(FirstTime As Boolean) If runtime.Check("android.permission.ACCESS_FINE_LOCATION") Then startLocating Else runtime.CheckAndRequest("android.permission.ACCESS_FINE_LOCATION") End If End Sub Private Sub startLocating gp.Initialize("gp") If gp.GPSEnabled = False Then StartActivity(gp.LocationSettingsIntent) gp.start(1000,2) End Sub Private Sub Activity_PermissionResult (Permission As String, Result As Boolean) If Result Then startLocating End If End Sub Private Sub gp_LocationChanged (Location1 As Location) Log("gp_LocationChanged:"&Location1.Longitude&"-"&Location1.Latitude) End Sub Private Sub gp_UserEnabled (Enabled As Boolean) Log("gp_UserEnabled:"&Enabled) End Sub

عزیز این خطا به خاطر تحریمه. متن خطا مشخصه که. ارور403 یعنی تحریم. باید از قند شکن استفاده کنید

توی log چه پیغام خطایی چاپ میشه؟

دسترسی android.permission.INTERNET رو دادین؟

درود. کلاس Geocoder پس زمینه از اینترنت استفاده میکنه. همینطور تحریم هم هستیم طبق معمول. دسترسی اینترنت و قندشکن رو روشن کنید اکی میشه

درود. من کلیت سوالتون رو متوجه نشدم عزیز. لطفا کاملتر توضیح بدین اما برای محاسبه عبارت ریاضی از کتابخونه قدرتمند evalex استفاده کنید. که به شکل زیرهست. ابتدا فایل رو تو پوشه additionallibs کپی کنید خط زیر رو اضافه کنید #Region Project Attributes #AdditionalJar: EvalEx-2.6 #End Region متد جاوای زیر رو به اکتیویتی اضافه کنید #If java import com.udojava.evalex.Expression; public String evaluateExpression(String expression) { try { Expression exp = new Expression(expression); return exp.eval().toString(); } catch (Exception e) { return "Error"; } } #End If ساب زیر رو اضافه کنید Private Sub calculate(exp As String) As String Dim jo As JavaObject Return jo.InitializeContext.RunMethod("evaluateExpression",Array(exp)) End Sub و به شکل زیر استفده کنید Dim x As String=calculate("6/4-5*6+8") Log(x)

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

تنظیمات خود گوشی. جایی که اطلاعات برنامه هست. توی settings->app

گوشیای هواوی و شیائومی واقعا سرطانن. انقد دستکاری کردن سیستم عاملو که اکثر چیزها روشون کار نمیکنن. احتمالا دسترسی بازار گرنت نشده یا یه محدودیت دیگه ای داره. تو صفحه تنظیمات برنامه برید ببینید چی فعال نیست

درود. راه اصلی و استانداردش همینه. مشکل چی هست؟ دسترسی ACCESS_NETWORK_STATE رو اضافه کردین؟

سلام و درود. نسخه آخر کتابخونه رو دانلود کنید همچنین b4a و sdk هم باید به روز باشه نباید مشکلی باشه

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

درود. بله دوست عزیز این یکی از کلاسهای این کتابخونه اس

نسخه آخر b4a رو نصب کنید و از sdk سایت مرجع استفاده کنید نباید موردی باشه

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

این کتابخونه چیز خاصی برای کامپایل نیاز نداره. فقط sdk سایت مرجع کافیه. مشکل کتابخونه های دیگه اس احتمالا

سلام و درود باید از متد زیر استفاده کنید myketBilling.queryInventoryAsync Private Sub myket_onQueryInventoryFinished(result As IabResult,inventory As Inventory) Dim userPurchases As List=inventory.AllProducts.As(List) For Each purchase As Purchase In userPurchases Log(purchase.Token) Next End Sub