[hichem1]

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

[elgokr]

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

راجع مشروعك

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

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

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

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

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

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

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

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

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

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

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

تحياتى لك

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

[hichem1]

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

[elgokr]

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

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

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

تحياتى لك

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

[YousefOkasha]

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

[elgokr]

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

تسلم اخى YousefOkasha

كل التحية لك

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

[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)

تحياتى لكم

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

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

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

[elgokr]

(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)

تحياتى لكم

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

[elgokr]

الشكر لله

تحياتى لك

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