منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية الربط مع جوجل ايرث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية الربط مع جوجل ايرث (/showthread.php?tid=20246)



كيفية الربط مع جوجل ايرث - khaled12345 - 03-05-17

السلام عليكم ورحمة الله وبركاته 

الرجاء المساعدة في معرفة الكود الذي يربط مع جوجل ايرث 

لو عندي احداثيات نقطة لها الاحداثيات 

latitude & longitiude 


فكيفاضغط علي  button  لكي يفتح جوجل ايرث ويصل الي الاحداثيات الموجودة 

مع فائق الشكر


RE: كيفية الربط مع جوجل ايرث - mansoor - 04-05-17

هذه عناوين الخريطة بحيث يتم تحديد الموقع داخل العنوان مع درجة الاقتراب من الارض

هذا العنوان يعمل على أساس خريطة وقيمة الاقتراب بالوحدة z وهي في هذا العنوان 18.81z
PHP كود :
https://www.google.com/maps/@24.7114473,46.6743832,18.81z 

هذا العنوان يعمل على أساس صورة الأقمار الصناعية وقيمة الاقتراب بالوحدة m وهي في هذا العنوان 204m
مع معامل صور القمر الصناعي /data=!3m1!1e3
PHP كود :
https://www.google.com/maps/@24.7114473,46.6743832,204m/data=!3m1!1e3 

العنوان ينقسم الى أجزاء
الجزء الأول وهو الرابط لجوجل ايرث
PHP كود :
https://www.google.com/maps/ 
الجزء الثاني وهو الاحداثيات وهي هنا من نوع Double
PHP كود :
@24.7114473,46.6743832 

الجزء الثالث حالتين

الأولى
في حالة الخريطة ويتم تحديد درجة الاقتراب بالوحدة z
PHP كود :
18.81z 
الثانية
في حالة الصور من الأقمار الصناعية وتتم تحديد الاقتراب بالوحدة m
مع معلومة data الخاصة بصور الأقمار الصناعية
PHP كود :
,204m/data=!3m1!1e3 



ويمكنك فتح الموقع بالمتصفح الافتراضي في الجهاز من خلال فيجوال بيسيك كالتالي

لللخرائط
PHP كود :
Process.Start("https://www.google.com/maps/@24.7114473,46.6743832,18.81z")
أو
Dim latitude 
As Double 24.7114473
Dim longitude 
As Double 46.6743832
Dim zoom 
As Single 18.81
Process
.Start("https://www.google.com/maps/@" latitude "," longitude "," zoom "z"

للصور
PHP كود :
Process.Start("https://www.google.com/maps/@24.7114473,46.6743832,204m/data=!3m1!1e3")
أو
Dim latitude 
As Double 24.7114473
Dim longitude 
As Double 46.6743832
Dim zoom 
As Single 204
Process
.Start("https://www.google.com/maps/@" latitude "," longitude "," zoom "m/data=!3m1!1e3"



RE: كيفية الربط مع جوجل ايرث - khaled12345 - 04-05-17

(04-05-17, 12:56 AM)mansoor كتب : هذه عناوين الخريطة بحيث يتم تحديد الموقع داخل العنوان مع درجة الاقتراب من الارض

هذا العنوان يعمل على أساس خريطة وقيمة الاقتراب بالوحدة z وهي في هذا العنوان 18.81z
PHP كود :
https://www.google.com/maps/@24.7114473,46.6743832,18.81z 

هذا العنوان يعمل على أساس صورة الأقمار الصناعية وقيمة الاقتراب بالوحدة m وهي في هذا العنوان 204m
مع معامل صور القمر الصناعي /data=!3m1!1e3
PHP كود :
https://www.google.com/maps/@24.7114473,46.6743832,204m/data=!3m1!1e3 

العنوان ينقسم الى أجزاء
الجزء الأول وهو الرابط لجوجل ايرث
PHP كود :
https://www.google.com/maps/ 
الجزء الثاني وهو الاحداثيات وهي هنا من نوع Double
PHP كود :
@24.7114473,46.6743832 

الجزء الثالث حالتين

الأولى
في حالة الخريطة ويتم تحديد درجة الاقتراب بالوحدة z
PHP كود :
18.81z 
الثانية
في حالة الصور من الأقمار الصناعية وتتم تحديد الاقتراب بالوحدة m
مع معلومة data الخاصة بصور الأقمار الصناعية
PHP كود :
,204m/data=!3m1!1e3 



ويمكنك فتح الموقع بالمتصفح الافتراضي في الجهاز من خلال فيجوال بيسيك كالتالي

لللخرائط
PHP كود :
Process.Start("https://www.google.com/maps/@24.7114473,46.6743832,18.81z")
أو
Dim latitude 
As Double 24.7114473
Dim longitude 
As Double 46.6743832
Dim zoom 
As Single 18.81
Process
.Start("https://www.google.com/maps/@" latitude "," longitude "," zoom "z"

للصور
PHP كود :
Process.Start("https://www.google.com/maps/@24.7114473,46.6743832,204m/data=!3m1!1e3")
أو
Dim latitude 
As Double 24.7114473
Dim longitude 
As Double 46.6743832
Dim zoom 
As Single 204
Process
.Start("https://www.google.com/maps/@" latitude "," longitude "," zoom "m/data=!3m1!1e3"

يسلموا ايديك  أخي الحبيب وبارك الله فيك


RE: كيفية الربط مع جوجل ايرث - ahnouche sofiane - 28-08-20

 ' add reference Google earth 1.0 type library le logitiel google earth est déja instalé' 
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       
        Dim ge As EARTHLib.ApplicationGE
        ge = New EARTHLib.ApplicationGE


        ge.SetCameraParams(lat:=36.731499, lon:=3.501545, alt:=150, altMode:=1, Range:=1, Tilt:=70, Azimuth:=360 - 15, speed:=5)


    End Sub