کلیات گوگل مپ

[atlasm 17]

باسلام و احترام خدمت دوستان

چندتا سوال داشتم در مورد گوگل مپ

1- چطوری میتونم کاری کنم ک وقتی نقشه لود میشه دقیقا cameraposition مکان خودم رو نشون بده.

2- چطور میشه دوتا نقطه رو انتخاب کرد و فاصله این دو رو مشخص کرد.

3- ی نقطه ک انتخاب میشه چطوری نام خیابون رو میشه تو یه تکست داشت(مقدار خیابون انتخاب شده رو برگردونه) مث برنامه های اسنپ یا تاچ سی

ببینید ی همچین چیزی میخوام

اون بالا ادرس مبدا و مقصد انتخاب شده رو نوشته

مبدا انتخاب شده - مقصد هم انتخاب شده فاصله بین هر دو محاصبه شده

ممنونم راهنمایی کنید.

[atlasm 17]

اغا ممنونم ازتون

فقط ی چیزی.... میشه ی سورس بهم بدین در رابطه با همین ؟ چیزی نفهمیدم ازش یکم پیچیده شد

ممنون میشم

[mehran3d 75]

در 8 ساعت قبل، atlasm گفته است :

اغا ممنونم ازتون

فقط ی چیزی.... میشه ی سورس بهم بدین در رابطه با همین ؟ چیزی نفهمیدم ازش یکم پیچیده شد

ممنون میشم

Sub MapFragment1_Ready
 
	geo.Initialize("geo")
End Sub

vazehe

Sub MapFragment1_LongClick (Point As LatLng)
	Log("click")
	Dim cp As CameraPosition
'	SelectedMarker.Position
	cp.Initialize(Point.Latitude,Point.Longitude,8)
	gmap.AnimateCamera(cp)
	Log("long click")
	gmap.AddMarker(Point.Latitude,Point.Longitude,"---_---___-_--__-__")
	geo.GetFromLocation(Point.Latitude,Point.Longitude,5,Null)
	
End Sub

,وقتی لانگ تاچ کردیم روی مپ مارکر اضافه میشه بعد بصورت انیمیشن زوم میشه و متصات رو میدیم به کتابخونه

 

اون 5 تعداد آدرس های پیدا شده هستش که دادم 5 

یعنی 5 آدرس پیشنهادی رو برمیگردونه

null  هم تگ هستش اگه چند بار از کتابخونه اسنفتده کنید میتونید با استفاده از مقدار دهی تگ جواب ها رو مدیریت کنید

 

Sub geo_GeocodeDone(Addresses() As Address, Tag As Object)
	Log("got addresses")
If Addresses.Length>0 Then
		ListView1.Visible=True
		
		For i=0 To Addresses.Length-1
			If Addresses(i).AddressLines.Size>0 Then
				ListView1.AddSingleLine(Addresses(i).AddressLines.Get(0))
			End If
		Next
		
		
	Else
		Msgbox("GetFromLocation", "No Address matched the Latitude and Longitude")
	End If

End Sub

جواب کتابخونه

یه آرایه از آدرس ها بهمون میده

هر آدرس یه لیست از آدرس ها داره

من چک میگنم اگه آرایه آدرس ها بیشتر از 0 باشه یعنی آدرس پسدا شده

بهد اگر لیست خط آدرس ها بیشتر از 0 بود توی لیست ویو ادش میکنه

[mehran3d 75]

264Geocoder_v2_10

[atlasm 17]

سلام مجدد

ببخشید دوستان من میخوام وقتی ی نقطه رو انتخاب میکنم اسم اون خیابون یا محل رو بهم بگه.

چطوری میتونم این کارو کنم

البته تا حدودی این کارو کردم اما انگلیسی میاره مثلا بلوار دانشجو رو اینجوری میاره Daneshjo BLVD

[mehran3d 75]

گذاشتن مارکر مبدا و مقصد که آسونه

توی رویداد کلیک مپ اونت میزاریمدوتا متغیر هم بزار مثلا

Dim Mabda ad boolean =false

If mabda=false then

''add markere mabda

Mabda=true

Else

''add markere maqsad

End

اینجوری حدودا اول دومی رو میتونی مارک کنی

برای پیدا کردن آدرس محل و فاصله باید از سرویس های گوگل استفاده کنی

مختصات رو به گوگل میگی گوگل بهت میگه آدرسو

توی مپ خود بیسیک چنین چیزی ندیدم

[mehran3d 75]

Android Code Snippet - [B4X] Google Geocoding REST API | B4X Community - Android, iOS, desktop, server and IoT programming tools

 

کتابخونه geocoder رو لازم داری

B4A Library - Geocoder library | B4X Community - Android, iOS, desktop, server and IoT programming tools