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

كود :

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 كود :

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