رفتن به مطلب
  • 0

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


pedro

سوال

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

 

#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 تعریف کردم و توی ساب دریافت موقعیت نسبتش دادم ب طول و عرض، مطمینم این ک صفر میفرسه طولو عرضو بخاطر همینه، چیکار باید کنم؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...