ترختومي

احب ان ابشركم بنجاح العملية نجحت في عمل الكود وعملت الاختبارات وتمت بنجاح اشكر الاخوان على تعاونهم معي والسلام عليكم ورحمة الله وبركاته

استاذي الفاضل System Down قمت بتعديل الكود الى : Dim dLat = ((CarD.Latitude - CarD.Latitude_old) * 3.14) / 180 Dim dLon = ((CarD.Longitude - CarD.Longitude_old) * 3.14) / 180 Dim a = Math.Sin(dLat / 2) * Math.Sin(dLat / 2) + Math.Cos(CarD.Latitude_old) * Math.…

قمت بتطبيق المعادلة في البرنامج بهذا الشكل Dim dLat = (CarD.Latitude - CarD.Latitude_old) Dim dLon = (CarD.Longitude - CarD.Longitude_old) Dim a = Math.Sin(dLat / 2) * Math.Sin(dLat / 2) + Math.Cos(CarD.Latitude_old) * Math.Cos(CarD.Latitude) * Math.Sin(dLon /…

المشكلة ان الموقع لم يطبق بالارقام . ايضا شكل الاحداثيات يختلف في الموقع عن الوجود لدي : في الموقع على الصيغة Point 1: latitude 53 08 50N ,longitude 001 50 58W Point 2: latitude 52 12 16N ,longitude 000 08 26E شكل البيانات لدي: latitude1 = 26.382505 longitude1…

ارجو منك التفضل بشرح الطريقه لاني اجدها صعبة على فهمها . وشكرا لك على تفاعلك مع الموضوع . شكل البيانات لدي: latitude = 26.382505 longitude = 43.97099 easting = 397352.335 northing = 2918454.59 altitude = 631.5 and 627.1

ماذا تقصد بالـWinSock هل هي مكتبة تقوم بواسطتها بالارسال والاستقبال وهاكذا اذا كان هذا هو المقصود فأعتقد انها موجوده لدي . انتظر ردك.

اين الشباب المختصين بهذه المواضيع ؟؟؟!!

الذي اريده هو ان يعطيني اتجاهي مباشرة مثلا : يعطي الاتجاه هاكذا ( شمال ) او ( شمال شرق ) وليس ان يعطي الاتجاه بالنسبة لنقطة الطول ونقطة العرض . وذلك بسبب عدم فهمي لطريقة استنتاج الاتجاه منها وعمل المقارنة بين نقطتين... وشكرا جزيلا لك

اريد كود يحدد الاتجاهات عن طريق الاحداثيات للموقع بالمقارنة بين النقطة الحالية والنقطة السابقة ومعرفة هل النقطة الاحالية هي مثلا شمال النقطة السابقة. او اذا كان هناك طريقة اخرى غير استخدام الاحداثيات ارجو التفضل بقتراحها. للمعلومية : كود تحديد الاحداثيات موجود…

اشكر يا اخي على فكرة الـtimer مع بعض التعدلات وصلت الى الحل المناسب حقيقة اني استفدت من معلوماتك الجميلة شكرا جزيلا

اشكرك اخي الفاضل على تفاعلك معي اعتقد اني سوف اقوم بتجربة الحل الاول الذي طرحته لكن ما هو Timer1.Interval=1000 كيف اعملها؟

اخي العزيز هذا الكود هو بنفسه يعمل وليس بحاجه الى timer اي ان الحدث يحدث عندما يكون هناك حالة Received اي انه سوف يتكرر كل 3 تواني

ProFesOr-xP كتب: اول شيء تعرف متغير من نوع Integer ، وتحدد الـ Interval للـ Timer : Dim x as integer Timer1.Interval=1000 ممكن تستخدم timer و تضع فيه شرط مثل كذا : ( هذا الكود داخل الحدث Tick للـ Timer ) x=x+1 if x mod 3 = 0 then form1_load(sender,e) endif طبع…

Private Sub skt_ObjectReceived(ByVal Sender As rtaUDPSocketLibrary.rtaUDPSocket, ByVal e As rtaUDPSocketLibrary.ObjectReceivedEventArgs) Handles skt.ObjectReceived Dim frm As New DataFormHost Select Case e.Command Case "Latitude" Latitude = e.Object.ToString f…

السلام عليكم ورحمة الله وبركاتة ارجو المساعدة من الخبراء في هذا الموقع المميز (فورم )يحتوي عدد من (التكست بوكس) يستقبل قيم ولكن هذه القيم متغيرة بستمرار المشكلة : ان ( التكست بوكس ) يستقبل فقط اول قيمة السؤال : كيف اجعل ( التكست بوكس ) يعمل تحديث عند تغير القي…