رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


تمامی فعالیت ها

این جریان به طور خودکار بروزرسانی می شود     

  1. دیروز
  2. اقا مجید من میزان فاصله رو نمیخوام محل های نزدیک رو میخوام مثلا ببینم نزدیکترین مقدار به مقدار مختصاتم کجاست و کدوم؟ لیست کنم
  3. اگه میخواین حکم بسازین میتونین اول با موتور Construct 2 شروع کنید تا الگوریتم بیاد دستتون. نسبتا کم حجمه و کار کردن باهاش خیلی راحته اگه میخواین حکم بسازین از 2 تا A همه رو عدد درنظر بگیرین یسری متغیر هم لازمه که تعداد خال های طرفو بشماری مثلا زمینه خشته شما تعداد خال خشتت 0 پس ازادی از بقیه ی کارتات بندازی قانون بازی کار خاصی نداره ولی کداش زیادن
  4. بله برای دریافت کتابخانه و سورسها باید هزینه پرداخت کنید
  5. majid08

    موقعیت دقیق

    سلام اول از کاربر این دسترسی ها رو بگیرید Dim ru As RuntimePermissions If ru.Check(ru.PERMISSION_ACCESS_FINE_LOCATION) = False Or ru.Check(ru.PERMISSION_ACCESS_COARSE_LOCATION) = False Then For Each Permission As String In Array(ru.PERMISSION_ACCESS_FINE_LOCATION, ru.PERMISSION_ACCESS_COARSE_LOCATION,"android.permission.NETWORK","android.permission.WIFI","android.permission.GPS") ru.CheckAndRequest(Permission) Wait For Activity_PermissionResult (Permission As String, Result As Boolean) If Result = False Then ToastMessageShow("اجازه دسترسی به مکان داده نشد!",False) End If Next End If بعد یه سرویس درست کنید و این محتوا رو توش قرار بدین #Region Service Attributes #StartAtBoot: False #End Region Sub Process_Globals Private FusedLocationProvider1 As FusedLocationProvider Private LastLocation As Location End Sub Sub Service_Create FusedLocationProvider1.Initialize("FusedLocationProvider1") Dim n As Notification n.Initialize2(n.IMPORTANCE_LOW) n.Icon = "icon" n.Sound = False n.Vibrate = False n.Light = False n.Insistent = False n.AutoCancel = False n.SetInfo("","","") Service.AutomaticForegroundNotification = n End Sub Sub Service_Start (StartingIntent As Intent) Service.StopAutomaticForeground FusedLocationProvider1.Connect LastLocation.Initialize End Sub Sub Service_Destroy FusedLocationProvider1.Disconnect End Sub #Region "Gestione" Sub FusedLocationProvider1_ConnectionFailed(ConnectionResult1 As Int) Try Log("FusedLocationProvider1_ConnectionFailed") ' the FusedLocationProvider ConnectionResult object contains the various CoonectionResult constants Select ConnectionResult1 Case FusedLocationProvider1.ConnectionResult.NETWORK_ERROR ' a network error has occurred, this is likely to be a recoverable error ' so try to connect again FusedLocationProvider1.Connect Case Else ' TODO handle other errors End Select Catch Log(LastException) End Try End Sub Sub FusedLocationProvider1_ConnectionSuccess Try Log("FusedLocationProvider1_ConnectionSuccess") Dim LocationRequest1 As LocationRequest LocationRequest1.Initialize LocationRequest1.SetInterval(1000) ' 1000 milliseconds LocationRequest1.SetPriority(LocationRequest1.Priority.PRIORITY_HIGH_ACCURACY) LocationRequest1.SetSmallestDisplacement(1) ' 1 meter FusedLocationProvider1.RequestLocationUpdates(LocationRequest1) Catch Log(LastException) End Try End Sub Sub FusedLocationProvider1_ConnectionSuspended(SuspendedCause1 As Int) Try Log("FusedLocationProvider1_ConnectionSuspended") ' the FusedLocationProvider SuspendedCause object contains the various SuspendedCause constants Select SuspendedCause1 Case FusedLocationProvider1.SuspendedCause.CAUSE_NETWORK_LOST ' TODO take action Case FusedLocationProvider1.SuspendedCause.CAUSE_SERVICE_DISCONNECTED ' TODO take action End Select Catch Log(LastException) End Try End Sub Sub FusedLocationProvider1_LocationChanged(Location1 As Location) Try CallSubDelayed2(MahafelMazhadi,"MyLocation",Location1) Catch Log(LastException) End Try End Sub #End Region این مقادیر رو هم به مانیفست اضافه کنید AddApplicationText(<meta-data android:name="com.google.android.gms.version" android:value="@integer/google_play_services_version" />) AddPermission(android.permission.ACCESS_FINE_LOCATION) AddPermission(android.permission.ACCESS_COARSE_LOCATION) و این رو هم به Main اضافه کنید #AdditionalJar: com.google.android.gms:play-services-location توی اکتیویتی که میخای مکان رو بگیرید این ساب رو ایجاد کنید و توی سرویس اسم اکتیویتی رو توی ساب FusedLocationProvider1_LocationChanged(Location1 As Location) ویرایش کنید Sub MyLocation(Location1 As Location) StopService(GPSman) Log(Location1.Latitude&","&Location1.Longitude) End Sub و تمام و یادتون نره که موقعی که میخاین مکان رو دریافت کنید سرویس رو باید استارت کنید با روشن کردن GPS میتونید مکان دقیق رو بگیرید حتی اگر توی خونه باشید نه بیرون
  6. سلام چیزی که میخاین اسمش DistanceTo هست با php راحت میتونی پیاده کنی یه سرچ بزنید پیدا میکنید
  7. سلام دوستان من میخام یه جمله یاب توسط موتور glosbe انگلیسی به فارسی بسازم این api تو سایتش گزاشته چجوری باید بنویسم با httpjob لطفا اگر بلدید کدش رو بدید ممنونم https://glosbe.com/gapi/{function-name}[?[{function-parameter1}={value}[&{function-parameter2}
  8. با سلام دوستان من مختصات رو با gps میگیرم و دارم و مختصات جا هاییکه میخوام رو هم دارم. سوالم اینجاست چطوری میتونم مقایسه کنم با دیتا بیس که کدوم نزدیکتره به مختصات من. مثل نرم افزارهاییکه میگه نزیکترین مکان تاریخی به من مثلا فلان جاست لیست میکنه یا شعاع 100 متری فلان هتل هست؟ ممنون میشم کمکم کنید
  9. farsroom

    موقعیت دقیق

    ممنون از همه ولی چطوری اسنب یا اپلیکیشنهایی که با نقشه کار میکنن دقیق موقعیت رو نشون میدن فدات عزیز
  10. آهان ، یعنی خود ریسایکلر با notifydatasetchange پاک میشه و مجددا مقادیر بهش اضافه میشن ؟ منظور من این بود اول ریسایکلر رو clear کنم ...
  11. حیف که انواع مختلف آیکون رفرش حذف شد... مشکل من همینه که متد clear رو نمیبینم که کل لیست رو پاک کنم ! روش خاصی داره برای رسیدن به این متد ؟
  12. با سلام و خسته نباشید چطور میشه از سایت مرجع اصلی b4x کدها و یا بعضی کتابخونه هارو دریافت کرد. اینکار ظاهراً نیاز به عضویت داره که وقتی عضو میشی ظاهراً پولی هست. درسته؟
  13. کسی نمیتونه جوا بده ؟
  14. سلام منم با همین مشکل روبرو شدم دو تا گوشی دارم یکیش log رو نمایش میده ولی یکی دیگه نه حتی موقع کانکت شدن اسم گوشی رو کامل مینویسه ولی بعد از اجرا دیگه چیزی نمایش نمیده اندروید 8 نمایش میده اندروید 5.0.1 نمایش نمیده لطفا راهنمایی کنید تشکر
  15. هفته گذشته
  16. سلام من طبق سايت مرجع و اموزشات سرويس تبليغاتي فايربيس گوگل و روي برنامم راه انداختم و تو گوگل ادموب هم پنل ساختم و همچي اوكي شده و تبليغات نمايش داده ميشه داخل برنامه و درامد مياد به حساب گوگل (البته بعد از كلي ارور و درگيري كه خداروشكر رفع شد) حالا بنظرتون با اين وضع تحريم ها و اينكه گوگل مال امريكاس، چجوري ميشه پول رو از حساب گوگل به ايران منتقل كرد و گوگل نفهمه و همه چي بخير و خوشي تموم شه؟؟؟ اخه سرويس هاي داخلي مثل عدد خداروشكر خيلي خوش حساب هستن و درامد خوبي داره...(كنايه) خلاصه درامد از تبليغات گوگل دلاره و سود خوبي داره اگه بشه آورد ايران و اكانتم بلاك نشده نظرتون چيه؟؟؟ كسي تجربه اي داره؟؟؟
  17. جناب شاهپیری ، در ابتدا از این تلاش و همراهی شما جهت رفع مشکل سپاسگزارم. اما در این تلاش 3 سوال پیش میاد : 1. آیا متد setRefreshStyle رو حذف کردید ؟! چون اون تغییر نوع آیکون و پایین آمدن لیست کاربردی بود و میشد بسته به تم برنامه اون رو تنظیم کرد. مثلا اونکه شکل آب یا فلش از بالا و پایین میومد رو انتخاب کرده بودم. 2. آیا باید در متد setProgressViewEndTarget تعداد آیتم های داخل ریسایکلر وارد کرد تا آیکون رفرش بطور صحیح نمایش داده بشه ؟!! چون منطقی نیست و این تعداد ممکنه اضافه یا کسر بشه و ثابت نیست... و چرا باید بر اساس تعداد وضعیت رفرش شدن بررسی بشه ! چون رفرش با به ابتدا رسیدن اسکرول باید چک بشه. 3. در رویداد رفرش چطور لیست رو پاک کنم که مجددا دیتا رو از ابتدا از سرور بگیرم و اضافه کنم ؟ دستورات pr.notifyItemRangeRemoved و pr.notifyItemRemoved رو تست کردم نشد ... با تشکر
  18. نسخه جدید آپلود شد و مشکل رفرش رفع شد. سورس رفرش هم قرار گرفت تو پنل
  19. لطف میکنید توضیح کوتاه بدید از این کتابخونه سایت مرج دیدم فقط کوکی رو نشون میده
  20. aref74

    nice spinner

    دوستان کسی کتابخانه nice spinner نسخه جدیدشا داره ؟‌ جدیدترین نسخه v2.03 هست . https://www.b4x.com/android/forum/threads/nice-spinner.58770/page-2
  21. aref74

    nice spinner

    این برنامه ایه که خودم نوشتم و الان میخواستم این کتابخونه را بهش اضافه کنم و ازش استفاده کنم . شایدم بخاطر قدیمی بودن نسخش باشه . نسخه جدیدترشا جایی پیدا نکردم جز سایت مرجع که اونم دسترسی دانلود ندارم . بابت لینک ممنون . دیده بودمش . میخواستم کتابخونه باشه که چندتا امکان در کنار هم باشه . اگه چیزی پیدا نکنم مجبورم از همون کد استفاده کنم .
  22. درحال بررسی مشکل هستیم. احتمالا نیاز به آپدیت باشه. مشکل رفع شد اطلاع رسانی میشه
  23. mohammad3250

    موقعیت دقیق

    داداش gps کلا خطا داره دوستان گفتن و یه چیز عادیه
  24. با سلام برنامه ای شبیه یک کتاب دارم که دیتابیسی در حدود3.5 مگ که متشکل از چند جدول هست، دارد در بخش designer، مقدار animation duration رو صفر قرار دادم ولی با کندی اجرای برنامه رو به رو هستم حجم تصاویری هم که به کار بردم 50 کیلوبایته به جز تصویر پس زمینه که 200 کیلوبایته دلیلش چی ها می تونه باشه؟ یه نمونه از اکتیویتی هام میذارم #Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals Dim sh As M_Secure_SharedPrefrence End Sub Sub Globals Private Pnl_dakheli As Panel Private pnl_poost As Panel Private pnl_atfal As Panel Private pnl_oro As Panel Private pnl_ofu As Panel Private pnl_zan As Panel Private pnl_ent As Panel Private pnl_asab As Panel Private pnl_eye As Panel Private pnl_ravan As Panel Private ScrollView11 As ScrollView Dim product_sku As String Private rp As RuntimePermissions Dim material_toast As KJ_MaterialToast Dim samim_font As Typeface End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout_scrollview") ScrollView11.Panel.LoadLayout("lay_order") ScrollView11.Panel.Height = 100%y sh.initialize("sh") samim_font = Typeface.LoadFromAssets("Samim.ttf") If sh.getsecurBoolean("kharidorder",False) = False Then material_toast.Initialize2("با یک بار خرید، برای همیشه تمام نسخه ها فعال می شوند",material_toast.LENGTH_LONG,material_toast.TYPE_INFO,samim_font) End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Activity_KeyUp (KeyCode As Int) As Boolean If KeyCode=KeyCodes.KEYCODE_BACK Then StartActivity(menumodule) Activity.Finish End If End Sub Sub Pnl_dakheli_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c818" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(dakhelimodule) Activity.Finish End If End Sub Sub pnl_poost_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c18" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(poostmodule) Activity.Finish End If End Sub Sub pnl_atfal_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c8" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(atfalmodule) Activity.Finish End If End Sub Sub pnl_oro_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(oromodule) Activity.Finish End If End Sub Sub pnl_ofu_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(ofumodule) Activity.Finish End If End Sub Sub pnl_zan_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(zananmodule) Activity.Finish End If End Sub Sub pnl_ent_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5c" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(entmodule) Activity.Finish End If End Sub Sub pnl_asab_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5cf" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(asabmodule) Activity.Finish End If End Sub Sub pnl_eye_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_5" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(eyemodule) Activity.Finish End If End Sub Sub pnl_ravan_Click If sh.getsecurBoolean("kharidorder",False) = False Then If rp.Check(rp.PERMISSION_READ_PHONE_STATE)=True Then product_sku="hp_" ' کد محصول خود را جایگزین نمایید hamrahpay.pay_request(product_sku,Me) Else rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) End If Else StartActivity(ravanmodule) Activity.Finish End If End Sub Sub Activity_PermissionResult (Permission As String, Result As Boolean) If Permission = rp.PERMISSION_READ_PHONE_STATE And Result=True Then hamrahpay.pay_request(product_sku,Me) Else if Permission=rp.PERMISSION_READ_PHONE_STATE And Result=False Then ToastMessageShow("لطفا برای ادامه ی کار سطح دسترسی لازم را به برنامه بدهید",True) End If End Sub Sub LastPurchaseData(lastPurchase As LastPurchaseInfo) If lastPurchase.error=False Then Dim daysAgo As Int = lastPurchase.DaysAgo Dim purchaseDate As String = lastPurchase.date Dim current_date As String =lastPurchase.CurrentDate Dim purchaseUnixTimeStamp As String = lastPurchase.unixTimestamp Dim reserve_id As String = lastPurchase.ReserveID ToastMessageShow("Days Ago: "&daysAgo&" Reserve ID: "&reserve_id,True) Else ToastMessageShow(lastPurchase.message,True) End If End Sub ' ---------------------------------------------------------------------- Sub JobDone (Job As HttpJob) hamrahpay.JobDone(Job) If Job.Success And Job.JobName="Last_Purchase" Then LastPurchaseData(hamrahpay.getlastPurchase()) End If End Sub
  1. نمایش فعالیت های بیشتر
×
×
  • جدید...