مشکل در مکان یابی

[marius 23]

با سلام

دوستان من کدهای زیر رو برای بدست آوردن محل جغرافیایی میزنم ولی مقدار صفر میده فقط مورد چی میتونه باشه؟ یعنی توی شبیه ساز کار میکنه ولی توی گوشی صفر نشون مید  ممنون

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
	GPS1.Start(0, 0)
End Sub

Public Sub LocationChanged(Location1 As Location)
   lblLat.Text =  Location1.ConvertToMinutes(Location1.Latitude)
   lblLon.Text =  Location1.ConvertToMinutes(Location1.Longitude)
End Sub

ه

[پژمان نیکروان 6,054]

سلام

کتابخانه LocationManager رو تیک بزنید و ازاین کد استفاده کنید:

Sub Globals
	Dim loc As LocationManager
End Sub

Sub Activity_Create(FirstTime As Boolean)
	loc.Initialize("Location")
	loc.requestMobileLocation
	
End Sub

Sub Location_LocationChanged (Longitude As Double, Latitude As Double, Altitude As Double, Accuracy As Float, Bearing As Float, Provider As String, Speed As Float, Time As Long)
	label1.text=Latitude
	label2.text=Longitude
End Sub