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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


majid08

کاربر نیمه فعال
  • تعداد ارسال ها

    578
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    2

آخرین بار برد majid08 در 30 خرداد

majid08 یکی از رکورد داران بیشترین تعداد پسند مطالب است !

اعتبار در سایت

266 عالی

5 دنبال کننده

درباره majid08

  • درجه
    کاربر رو به رشد
  • تاریخ تولد تعیین نشده

مشخصات پروفایل

  • محل تولد
    Array

آخرین بازدید کنندگان نمایه

2,060 بازدید کننده نمایه
  1. سلام دوست گرامی شما هر نسخه ای از بیسیک رو نصب کنید هیچ فرقی ندارن باهم البته بجز نسخه جدید 9.30 که اندروید ایکس هست شما لاگ ارور رو بزارید تا دوستان بررسی کنن مشکلتون رو حل کنن
  2. سلام نقشه گوگل دیگه رایگان نیست از نقشه های ایرانی استفاده کنید
  3. هیچ زبانی نمیتونه جای یک زبان دیگه رو بگیره بعضی دوستان میگن پروژه کوچیک با بیسیک و بزرگ با جاوا ولی من میگم فرقی نداره اگر کدنویسی رو درست انجام بدین توی هر محیطی میتونید موفق باشید شبکه اجتماعی و چت هم با بیسیک نوشتم و اینکه اگهی زدین کسی نیومده و اون یکی هم بلد نبوده ملاک نیست که بیسیک به درد نمیخوره خب بیشتر کسانی میشناسم که با بیسیک کد میزنن تقریبا سرشون خلوت نمیشه که برن توی این سایت ها برای پروژه اگر میشه بفرمایید چه پروژه ای رو اگهی کردین تا بگم میشه با بیسیک زد یا نه و شاید باهاتون همکاری کردم برای نوشتنش
  4. سلام و خسته نباشید شاید بیسیک 2 سال قبل ضعف های بزرگی داشت ولی امروز 99 درصد برطرف شده قدرت بیسیک رو خیلی ها باور ندارن چون باهاش کد نزدن یا بلد نیستن کد بزنن هر پروژه ای که بخاین میشه باهاش نوشت هر زبانی برای خودش یه نقاط قدرت و ضعف هایی داره سرعت در کد زدن و سرعت بالای اجرا و کامپایل از مزیت های بیسیک هست که توی نسخه اخری هم 4 برابر سرعتش بیشتر شده مصرف زیاد منابع سیستم و نیاز به هیتلر شکن سریع هم از مشکلات اندروید استودیو هست البته توی بازار فقط برای استخدام برنامه نویس بیسیک کم میخان اون هم چون نمیدونن چیه خیلی از برترین های بازار مثل شمیم یاس ، قطار شادی و .. رو با بیسیک نوشتن و بعضی از بازی های انلاین رو خودم پروژه هایی مثل اپارات، دیوار، اسنپ فود، دیجی کالا رو باهاش نوشتم
  5. سلام خب همین DistanceTo کارش همینه میاد فاطله بین 2 نقطه رو به متر فکر کنم بر میگردونه این هم نمونه کد برای php function distance($lat1, $lon1, $lat2, $lon2, $unit) { if (($lat1 == $lat2) && ($lon1 == $lon2)) { return 0; } else { $theta = $lon1 - $lon2; $dist = sin(deg2rad($lat1)) * sin(deg2rad($lat2)) + cos(deg2rad($lat1)) * cos(deg2rad($lat2)) * cos(deg2rad($theta)); $dist = acos($dist); $dist = rad2deg($dist); $miles = $dist * 60 * 1.1515; $unit = strtoupper($unit); if ($unit == "K") { return ($miles * 1.609344); } else if ($unit == "N") { return ($miles * 0.8684); } else { return $miles; } } } echo distance(32.9697, -96.80322, 29.46786, -98.53506, "M") . " Miles<br>"; echo distance(32.9697, -96.80322, 29.46786, -98.53506, "K") . " Kilometers<br>"; echo distance(32.9697, -96.80322, 29.46786, -98.53506, "N") . " Nautical Miles<br>";
  6. سلام شما بیا مثلا تا فاصله 10 کیلومتر همه نقاطی که داری رو بگیر بعد نزدیکترین ها رو از توش دربیار راه بهتری به نظرم نمیاد
  7. 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 میتونید مکان دقیق رو بگیرید حتی اگر توی خونه باشید نه بیرون
  8. سلام چیزی که میخاین اسمش DistanceTo هست با php راحت میتونی پیاده کنی یه سرچ بزنید پیدا میکنید
  9. سلام این واسه لیست ویو معمولیه تست کن شاید جواب داد Dim JO As JavaObject = ListView JO.RunMethod("setDividerHeight",Array(0))
  10. سلام بسیار عالی اگر میشه راست چین هم کنید خیلی عالی تر میشه
  11. سلام با این ساب میتونید به هر ویویی Radius بدین Sub Gradient(View As View,Color As Int,CornerRadius As Int) Dim Gradient1 As GradientDrawable Dim Clrs(2) As Int Clrs(0) = Color Clrs(1) = Color Gradient1.Initialize("TOP_BOTTOM", Clrs) Gradient1.CornerRadius =CornerRadius View.Background = Gradient1 End Sub
  12. majid08

    برنامه پیامکی آنلاین

    سلام شما از لیستی که استفاده میکنید یک لیبل بزارید برای اشتراک مثلا بعد متنی رو که میخای اشتراک بزاری بزار برای تگ لیبل توی حلقه یا توی ریسایکلر یا هرچی بعد با سندر توی ساب کلیک لیبل متن رو بگیرید for i = 0 to 10 dim lb as label lb.Initialize("") lb.text = "Test"&i tb.tag = "Test"&i next sub lb_click dim lb as label = sender log(lb.tag) end sub
  13. سلام بسیار عالی فقط یه سوال برای نمایش دادن عکس ها موقع انتخاب از چی استفاده کردین(منظورم گلاید هست یا چیز دیگه ای) چون من یه چنتا کتابخونه پیدا کردم برای انتخاب عکس به صورت چنتایی از گالری ولی همه با گلاید مشکل داشتن
  14. سلام ببخشید من این ارور رو دارم چیکار کنم

    B4A Version: 8.00
    Parsing code.    (0.00s)
    Compiling code.    (0.38s)
    Compiling layouts code.    (0.01s)
    Organizing libraries.    (0.00s)
    Generating R file.    (13.22s)
    Compiling debugger engine code.    (9.58s)
    Compiling generated Java code.    Error
    B4A line: 56
    http.Execute(request,1)
    javac 1.8.0_131
    src\com\faradars\project1\main.java:414: error: cannot access ClientProtocolException
    _http.Execute(processBA,_request,(int) (1));
                 ^
      class file for org.apache.http.client.ClientProtocolException not found

    1. majid08

      majid08

      سلام به تلگرام من پیان بدین

      @goodarzi1

    2. sepidar1996

      sepidar1996

      دسستون درد نکنه♥

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