چک کردن GPS در B4A
چک کردن GPS
با کد زیر میشه چک کنیم که آیا گوشی کاربر gps داره یا نه. البته الان بیشتر گوشی ها دارن اما باز هم گاهی وقتها چک کردنش مورد نیاز هست و میتونیم در صورت نبودش پیامی به کاربر بدیم یا کاری رو انجام بدیم:
1 2 3 4 5 6 7 8 9 10 |
Dim ph As Phone Dim gps As String gps = ph.GetSettings("location_providers_allowed") If gps.IndexOf("gps") > -1 Then Msgbox("This device has GPS built in", "") Else Msgbox("No GPS found", "") End If |
دیدگاه ها