منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشروع عرض توقيت الشروق والغروب مع سطوع الشمس والمد والجزر مع طول النهار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

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

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

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

صورة توضيحية

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

الاكواد المستخدمة فى الفورم
كود :
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)

تحياتى لكم
وتمنياتى للجميع التوفيق
مبدع كعادتك <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")
(28-06-18, 07:56 PM)hichem1 كتب : [ -> ]مبدع كعادتك <3


تسلم اخى hichem1


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


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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
أريد من ال textbox1 أن يكون خط العرض 
و textbox2 أن يكون خط الطول

كما أن هناك خطأ في الوقت ؟؟ 
http://www.meteo.tn/listear/previsions/Tunis.php
مرفق المثال الخاص بك
بعد اضافة الكود اليه

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


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

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

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

تحياتى لك
وتمنياتى لك التوفيق
(28-06-18, 09:42 PM)hichem1 كتب : [ -> ]نعم أخي سعود فهمك صحيح .. لكن الكود خطأ


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

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


تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2