مشروع عرض توقيت الشروق والغروب مع سطوع الشمس والمد والجزر مع طول النهار

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

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

يوجد موقع يقوم بجلب الغروب والشروق وظهرية سطوع الشمس

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

صورة توضيحية

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

الاكواد المستخدمة فى الفورم

كود :

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.4203400https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=todayhttps://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=2018-06-28https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&formatted=0 

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

تحياتى لكم

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