تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشروع عرض توقيت الشروق والغروب مع سطوع الشمس والمد والجزر مع طول النهار
#1
Rainbow 
السلام عليكم ورحمة الله وبركاته

حتى يعم الفائدة تم انشاء هذا الموضوع
وهو طلب احد اعضاء المنتدى

الشرح مع الصورة لشكل البرنامج

يوجد موقع يقوم بجلب الغروب والشروق وظهرية سطوع الشمس
وكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي

صورة توضيحية

السورس و برنامج الاختبار مرفق بالرد

الاكواد المستخدمة فى الفورم
كود :
Imports System.Net
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim WEB_ As New WebClient
       Dim GData As String = WEB_.DownloadString("https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today")
       Dim Text_ As String = GData.Replace("""", "").Replace("{", "").Replace("}", "")
       Text_ = Text_.Replace("results", "").Replace("sunrise", "").Replace("sunset", "").Replace("solar_noon", "").Replace("day_length", "").Replace("status", "").Replace("civil_twilight_begin", "")
       Text_ = Text_.Replace("civil_twilight_end", "").Replace("nautical_twilight_begin", "").Replace("nautical_twilight_end", "").Replace("astronomical_twilight_begin", "").Replace("astronomical_twilight_end", "")
       Text_ = Text_.Replace("::", "").Replace(",:", ",").Replace(",OK", "")
       Dim TSLi_ As String() = Text_.Split(New Char() {","c})
       Dim Title As String() = {"Sunrise:", "Sunset:", "Solar Noon:", "Day Length:", "Civil Twilight Begin:", "Civil Twilight End:", "Nautical Twilight Begin:", "Nautical Twilight End:", "Astronomical Twilight Begin:", "Astronomical Twilight End:"}
       Dim VList As List(Of String) = New List(Of String)(TSLi_)
       For ii As Integer = 0 To 9
           TextBox1.Text += Title(ii) + " " + VList(ii) & vbNewLine
       Next
       ' test View Data in TextBox
       TextBox2.Text = VList(0)  ' Sunrise
       TextBox3.Text = VList(1)  ' Sunset
       TextBox4.Text = VList(2)  ' Solar Noon
       TextBox5.Text = VList(3)  ' Day Length
       TextBox6.Text = VList(4)  ' Civil Twilight Begin
       TextBox7.Text = VList(5)  ' Civil Twilight End
       TextBox8.Text = VList(6)  ' Nautical Twilight Begin
       TextBox9.Text = VList(7)  ' Nautical Twilight End
       TextBox10.Text = VList(8) ' Astronomical Twilight Begin
       TextBox11.Text = VList(9) ' Astronomical Twilight End
   End Sub
End Class

كل ما هو مطلوب فقط التعديل على الرابط
خاصة السطر 
PHP كود :
       Dim GData As String WEB_.DownloadString("https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today"

هام للمستخدم عامة: يجب تغيير الطول والعرض لموقع البلد المطلوب جلب التوقيت الخاص بها
يمكنك استخدام اى موقع مثل خرائط جوجل وغيرها لجلب تلك البيانات

للتحكم اكثر فى الرابط حسب اليوم او يوم حسب التحديد يمكنك الاطلاع على الرابط التالى
موقع : sunrise sunset

الروابط يمكن استخدامها بطرق التالية :
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=2018-06-28
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&formatted=0 

راجع الرابط بالاعلى لتوضح استخدام الروابط اكثر

اليكم التحميل من المرفقات
السورس (VB2015)

تحياتى لكم
وتمنياتى للجميع التوفيق


الملفات المرفقة صورة/صور
   

.zip   Pro Sunrise and Sunset Time.zip (الحجم : 34.43 ك ب / التحميلات : 73)
.zip   Sunrise and Sunset Time.zip (الحجم : 173.37 ك ب / التحميلات : 97)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#2
مبدع كعادتك <3

أريد أن أغير الإحداثيات عن طريق textbox لكن هذا لا ينفع :
كود :
Dim p As String
       p = TextBox3.Text
       Dim m As String
       m = TextBox3.Text
       Dim GData As String = WEB_.DownloadString("https://api.sunrise-sunset.org/json?lat=p&lng=m&date=today")
الرد
تم الشكر بواسطة: elgokr , elgokr
#3
(28-06-18, 07:56 PM)hichem1 كتب : مبدع كعادتك <3


تسلم اخى hichem1


تحياتى لك
وتمنياتى لك كل التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#4
أعتقد أنك تعودت أخي عن أسئلتي الكثيرة ههه : ..لقد واجهتني مشكلة في فتح مشروعك بالvb لأانني أملك vb 2010 هل يمكنك أن تظيف الأكواد لهذا المثال البسيط فأنا أحتاج فقط للشروق و الغروب وكذلك الإحداثيات تجلب من textbox


الملفات المرفقة
.rar   EX.rar (الحجم : 32.17 ك ب / التحميلات : 38)
الرد
تم الشكر بواسطة:
#5
(28-06-18, 08:31 PM)hichem1 كتب : أعتقد أنك تعودت أخي عن أسئلتي الكثيرة ههه : ..لقد واجهتني مشكلة في فتح مشروعك بالvb لأانني أملك vb 2010 هل يمكنك أن تظيف الأكواد لهذا المثال البسيط فأنا أحتاج فقط للشروق و الغروب وكذلك الإحداثيات تجلب من textbox


عملت حساب ذلك بسبب اختلاف الاصدارات لدا البعض

لذلك تم ادراج الكود المستخدم فى المشروع داخل الموضوع مسبقاً

كل ما عليك هو نسخ الاكود وعمل مشروع جديد لديك وطبق الكود
حتى تقوم بانشاء مثل المشروع لكن بالاصدار الخاص بك

فالكود بسيط
بمجرد نسخك ووضع الادوات فى الفورم حسب المسميات
ستجد ان الامور بسيطة جداً

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#6
أريد من ال textbox1 أن يكون خط العرض 
و textbox2 أن يكون خط الطول

كما أن هناك خطأ في الوقت ؟؟ 
http://www.meteo.tn/listear/previsions/Tunis.php


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#7
مرفق المثال الخاص بك
بعد اضافة الكود اليه

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة
.zip   EX.zip (الحجم : 65.35 ك ب / التحميلات : 41)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: hichem1
#8
عرفت الخلل ... الخلل من فارق التوقيت gmt لقد جربت ذلك على كثير من الدول مثل ألمانيا +2 يعطيني وقت طلوع الشمس 02:46:07 أضف إيهم ساعتين فيصبح التوقيت صحيح حسب عدة مواقع كغوغل و :
https://www.timeanddate.com/sun/germany/berlin
نفس الشيء بالنسبة لتونس 
فماذا أفعل لأصلح هذا ؟ 
الرد
تم الشكر بواسطة:
#9
(28-06-18, 09:24 PM)hichem1 كتب : عرفت الخلل ... الخلل من فارق التوقيت gmt لقد جربت ذلك على كثير من الدول مثل ألمانيا +2 يعطيني وقت طلوع الشمس 02:46:07 أضف إيهم ساعتين فيصبح التوقيت صحيح حسب عدة مواقع كغوغل و :
https://www.timeanddate.com/sun/germany/berlin
نفس الشيء بالنسبة لتونس 
فماذا أفعل لأصلح هذا ؟ 


بضبط اخى الكريم

اذا كنت اطلعت على الرابط المذكور بالموضوع ستجد ان اعتماد الوقت الذى يظهر 
هو بتوقيت  UTC اى انه بنظام +0 
فكل ما عليك هو اضافة وتقليل الوقت حسب كل دولة على النتائج

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: سعود
#10
(28-06-18, 09:42 PM)hichem1 كتب : نعم أخي سعود فهمك صحيح .. لكن الكود خطأ


راجع التعليق السابق..

اضافة ان التوقيت تم شرحه مسبقاً كيفية التعامل واضافة عدد السعات
لا اضيف الكود وفى انتظار ان اجد ناتج التعليم من انشاء هذا المشروع


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: سعود , alsouf


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع سورس كود مفتوح و متكااااامل لادارة المطاعم DR.YASER 54 13,527 08-10-21, 11:34 PM
آخر رد: MOHAMEDSALEH
  [VB.NET] مشروع برنامج مبيعات بلغة فيجوال بيسك و سيكوال سيرفر aloush 21 11,052 04-10-21, 09:15 PM
آخر رد: aloush
  مشروع تعدد لغات للبرنامج من قاعدة بيانات MsAccess asemshahen5 5 1,657 22-09-21, 04:59 AM
آخر رد: khaledsayed
Rainbow [مشروع] مشروع جاهز لحساب العمر محمد مسافر 7 3,611 16-09-21, 09:18 AM
آخر رد: المرفة ف الحياة
  [مشروع] مشروع شجرة الحسابات (دليل الحسابات) باستخدام VB.net أحمد النجار 19 16,508 09-09-21, 05:04 PM
آخر رد: asemshahen5
  [مشروع] مشروع برنامج مبيعات متكامل بالباركود nouribenyahia 52 22,836 01-09-21, 05:06 PM
آخر رد: الجوكر
Lightbulb مشروع حجز تذاكر سفر + منظومة حجز صالة مناسبات adel2012 19 33,801 12-07-21, 04:24 AM
آخر رد: MOHAMEDSALEH
  [درس فيديو] شرح طريقة دمج عدة مشاريع vb.net في مشروع واحد princelovelorn 7 3,901 07-06-21, 06:03 PM
آخر رد: zayedali
  مشروع تفقيط الأرقام عربي / إنجليزي متعدد العملات [منقول]. asemshahen5 2 1,793 07-06-21, 05:06 PM
آخر رد: zayedali
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 68 108,934 07-06-21, 03:03 PM
آخر رد: zayedali

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم