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

الصفحات : 1 2

فكرة الكود في التعليق السابق صحيحة لكنه لم يعمل معي

(28-06-18, 09:46 PM)hichem1 كتب : [ -> ]فكرة الكود في التعليق السابق صحيحة لكنه لم يعمل معي

راجع مشروعك

سبق وتم شرح كيفية جمع وقت مع بعض

وكيف اضافة عدد سعات او تقليل عدد ساعات

كما تم عمل جلب رقم وتحويله الى تاريخ ووقت

كل ما عليك المحاولة من الاكواد لديك الامر سهل

لكن اذا كان حتى الان لا تعلم ماذا تفعل

فهذه مشكلة لان كل من يساعد هنا حتى تستفاد علماً

وليس التعامل مع النسخ واللصق وتطبيق الاكواد

حاول ان تصل للفكرة لوحدك

حتى اذا جلست بها ايام الاهم انك تتعلم

وفى حالة صعوبة الامر بالنهاية

يمكنك استكمال الحديث فى قسم الاسئلة بفتح موضوع خاص بذلك

تحياتى لك

وتمنياتى لك التوفيق

حسنا سأفعل هذا .. أسف على إزعاجك

(28-06-18, 09:52 PM)hichem1 كتب : [ -> ]حسنا سأفعل هذا .. أسف على إزعاجك

لا اسف ولا ازعاج

فانا هنا لكى اساعد الجميع بقدر ما اقدر

تحياتى لك

وتمنياتى لك التوفيق

مشروع روعة ..
بارك الله فيك Heart

(29-06-18, 02:44 AM)YousefOkasha كتب : [ -> ]مشروع روعة ..
بارك الله فيك

تسلم اخى YousefOkasha

كل التحية لك

وتمنياتى لك التوفيق

(28-06-18, 07:08 PM)elgokr كتب : [ -> ]
السلام عليكم ورحمة الله وبركاته

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

وهو طلب احد اعضاء المنتدى

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

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

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

صورة توضيحية

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

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

كود :

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)

تحياتى لكم

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

ما شاءالله تبارك الله

عمل جميل شكرا لك مبدع دائما ما شاءالله Rolleyes

(29-06-18, 05:32 PM)dubai.eig كتب : [ -> ]ما شاءالله تبارك الله

عمل جميل شكرا لك مبدع دائما ما شاءالله

تسلم اخى dubai.eig

فانت هو الاجمل بتواجدك دائماً وردك الجميل

تحياتى لك

وتمنياتى لك التوفيق

(28-06-18, 07:08 PM)شكرًا لك اخي الغالي elgokr كتب : [ -> ]
السلام عليكم ورحمة الله وبركاته

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

وهو طلب احد اعضاء المنتدى

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

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

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

صورة توضيحية

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

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

كود :

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)

تحياتى لكم

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

الشكر لله

تحياتى لك

وتمنياتى لك التوفيق

الصفحات : 1 2