سورس آماده دریافت مختصات GPS و نمایش روی لیبل — گام‌به‌گام

کتابخانه GPS در B4A رویداد LocationChanged را با جزئیات کامل صدا می‌زند: طول و عرض جغرافیایی، ارتفاع، دقت بر حسب متر، جهت، سرعت و نام ارائه‌دهنده. با gps1.Start(0, 0) گفته‌ایم هر تغییر موقعیت را بدون فیلتر بده؛ اگر برنامه شما به بروزرسانی لحظه‌ای نیاز ندارد، مثلاً Start(50, 30000) بگذارید تا باتری کمتری مصرف شود. یادتان باشد GPS بعد از Start شروع به گوش‌دادن می‌کند و باید در Activity_Pause با gps1.Stop خاموشش کنید وگرنه باتری کاربر را می‌سوزاند. مجوز ACCESS_FINE_LOCATION هم در Manifest لازم است.

کتابخانه‌های مورد نیاز: GPS

این قطعه‌کد به‌صورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکراری‌نبودن بررسی شده است. برای دیدن تکه‌کدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه می‌شود.

دسته‌بندیتکه کدها
تعداد بازدید۰
تعداد فروش۰
فرمت تحویلکد نمونهٔ رایگان در همین صفحه
پشتیبانیتیکت پشتیبانی در پنل کاربری

ویژگی‌های کلیدی

  • کد B4A آماده استفاده
  • توضیح کامل فارسی
  • کاملاً رایگان
  • کتابخانه: GPS

هنوز نظری ثبت نشده است. اولین نفر باشید!

برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)

B4A — کد نمونه رایگان این تکه‌کد را می‌توانید مستقیم در پروژه بیسیک۴اندروید استفاده کنید 
Sub Process_Globals
    Dim gps1 As GPS
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then gps1.Initialize("gps1")
End Sub

Sub btnGo_Click
    ' پارامترها: حداقل فاصله (متر) و حداقل زمان (میلی‌ثانیه) بین بروزرسانی‌ها
    gps1.Start(0, 0)
    ToastMessageShow("دریافت مختصات...", False)
End Sub

Sub gps1_LocationChanged(Longitude As Double, Latitude As Double, _
        Altitude As Double, Accuracy As Float, Bearing As Float, _
        Speed As Float, Provider As String)
    lblOut.Text = "عرض جغرافیایی: " & Latitude & CRLF & "طول جغرافیایی: " & Longitude
End Sub

محصولات مشابه

تخصصی بیسیک۴اندرویدسورس‌کد آمادهآموزش گام‌به‌گامکتابخانه‌های کاربردیتحویل آنی بعد از پرداختپشتیبانی واقعی ۲۴/۷بروزرسانی رایگان+۱۰۱۲ محصول فعال