تقييم الموضوع :
  • 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 ك ب / التحميلات : 83)
.zip   Sunrise and Sunset Time.zip (الحجم : 173.37 ك ب / التحميلات : 108)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#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 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 43)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع ادارة المراكز الطبية رضوان الجماعي 8 3,161 20-12-23, 06:30 AM
آخر رد: Taha Okla
Brick [VB.NET] مشروع بسيط يحتوي على مجموعة من الأمثلة المفيدة لتعليم البرمجة بلغة VB.NET musalem 1 906 17-08-23, 12:07 PM
آخر رد: تركي احمد
Brick [VB.NET] سورس كود LCD CLOCKZ هو مشروع لساعة ديجيتال بشكل مميز وجذاب musalem 0 532 04-07-23, 02:08 AM
آخر رد: musalem
  [مشروع] مشروع إدارة الأقساط قابل للتعديل musalem 5 871 17-06-23, 09:59 AM
آخر رد: atefkhalf2004
  مشروع تعدد لغات للبرنامج من قاعدة بيانات MsAccess asemshahen5 6 3,652 18-05-23, 03:39 AM
آخر رد: mohamed gida
Wink [مشروع] مشروع تصميم فورم بشكل جديد بالفيجوال ستوديو مع السورس كود ahmadpal 8 6,993 12-04-23, 11:41 PM
آخر رد: spiky
  مشروع لعرض المستندات وملفات الـ بي دي اف ومعظم أنواع الصور عبدالله الدوسري 4 38,620 02-04-23, 10:47 PM
آخر رد: naz123
  مشروع ارسال رسائل واتس اب تلقائيا هديه مني للمنتدي اليوم السابع 14 11,227 30-03-23, 08:47 PM
آخر رد: sanyor77
  [مشروع] مشروع شجرة الحسابات (دليل الحسابات) باستخدام VB.net أحمد النجار 21 22,292 08-10-22, 09:56 PM
آخر رد: asemshahen5
  [مشروع] مشروع تقسيم ملف بعيد وتجميع الاجزاء بعد التحميل سعود 13 2,245 01-09-22, 10:39 PM
آخر رد: سعود

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


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