[عبدالله الدوسري]

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

تقبل الله منا ومنكم صالح الأعمال


بإستخدام فضاء الأسماء
System.Device.Location
   

   

   

كود :

Imports System.Device.Location
Public Class Form1
   Private WithEvents watcher As New System.Device.Location.GeoCoordinateWatcher()
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       watcher.Start()
   End Sub
   Private Sub watcher_PositionChanged(ByVal sender As Object, ByVal e As GeoPositionChangedEventArgs(Of GeoCoordinate)) Handles watcher.PositionChanged
       Me.lbl_Latitude.Text = " Latitude : " & e.Position.Location.Latitude.ToString
       Me.lbl_Longitude.Text = "Longitude : " & e.Position.Location.Longitude.ToString
       ' Stop receiving updates after the first one.
       watcher.Stop()
   End Sub
End Class

---

(04-06-18, 03:08 PM)السندبااد كتب :

(04-06-18, 02:07 AM)محمد كريّم كتب : بدون GPS سيكون من الصعب تحديد الموقع
ولكن تستطيع تحديد موقع قريب يجلبه لك من مزود الانترنت ISP

لا أخي الكريم ليس صعباً
جرب المرفق الذي وضعته في مشاركتي الأولى ستجد أنه يعطيك إحداثيات دقيقة لموقعك الحالي

أيضاً قم بالدخول إلى موقع مواقيت الصلاة هذا:
https://www.salahtimes.com
ومن القائمة PLACES اختر البند My Location ستجد أنه أعطاك اسم منطقتك وموقعك على الخريطة بكل دقة

كلام  أخي محمد كريم صحيح
بدون GPS لن تستطيع تحديد موقعك الفعلي الذي أنت تجلس فيه
ولكن تستطيع تحديد موقع قريب يجلبه لك من مزود الانترنت ISP , ( جرب صفحة الـ Html التي وضعتها أخي  السندبااد لن تعمل بدون إنترنت) حتى الكود الذي إستخدمته أنا في المثال الذي أرفقة لن يعمل إلا بوجود إنترنت , مما يدل على أنه يجلب الموقع من مزود الخدمة , بالتحديد من  أقرب صندوق موزع للمنطقة التي تسكن بها أنت .