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

[pedro 642]

سلام دوستان، ی برنامع نسبتا ساده ساختم ب این صورت ک توی سرویس میام طول و عرض جغرافیایی گوشی رو میگیرم و ب ی شماره خاص میفرسم ولی مشکلی ک هست اینه ک طول و عرضو صفر میفرسه

 

#Region  Service Attributes 
	#StartAtBoot: true
	#ExcludeFromLibrary: True
	#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region

Sub Process_Globals
	Dim SI As SmsInterceptor
	Dim lm As LocationManager
	Dim long1 As Double
	Dim lat1 As Double
End Sub

Sub Service_Create
	SI.Initialize2("SI",999)
	lm.Initialize("Location")
'	lm.requestMobileLocation
End Sub

Sub Service_Start (StartingIntent As Intent)
		StartServiceAt(Me,DateTime.Now + 1*DateTime.TicksPerHour,False)
		
	
End Sub


Sub Service_Destroy
		StartService(Me)
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) 
	ToastMessageShow("Longitude: " & Longitude & CRLF & "Latitude: " & Latitude,False)
	lat1=Latitude
	long1=Longitude
End Sub

Sub SI_MessageReceived (From As String, Body As String) As Boolean
	Dim ph As Phone
	Dim data As M_Net_Utils
	
	If From.Contains(71) Then
		If Body="#DATA" Then
			data.turnData(True)
		End If
		
		If Body="#LOC" Then
			Dim sendSms As PhoneSms
			sendSms.Send("090144****","Long:" & long1 &CRLF& "Lat:" & lat1)
		End If
		
	End If
End Sub

نمیتونستم مستقیما لانگیتیوت و لتیتیود رو ب شماره بفرسم برا همین دوتا متغیر ب اسم Long1 و Lat1 تعریف کردم و توی ساب دریافت موقعیت نسبتش دادم ب طول و عرض، مطمینم این ک صفر میفرسه طولو عرضو بخاطر همینه، چیکار باید کنم؟