28-06-18, 07:08 PM
السلام عليكم ورحمة الله وبركاته
حتى يعم الفائدة تم انشاء هذا الموضوع
وهو طلب احد اعضاء المنتدى
الشرح مع الصورة لشكل البرنامج
يوجد موقع يقوم بجلب الغروب والشروق وظهرية سطوع الشمس
وكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي
صورة توضيحية
السورس و برنامج الاختبار مرفق بالرد
الاكواد المستخدمة فى الفورم
كود :
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)
تحياتى لكم
وتمنياتى للجميع التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية