المشاركات : 141
المواضيع 47
الإنتساب : Apr 2018
السمعة :
6
الشكر: 58
تم شكره 56 مرات في 33 مشاركات
فكرة الكود في التعليق السابق صحيحة لكنه لم يعمل معي
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(28-06-18, 09:46 PM)hichem1 كتب : فكرة الكود في التعليق السابق صحيحة لكنه لم يعمل معي
راجع مشروعك
سبق وتم شرح كيفية جمع وقت مع بعض
وكيف اضافة عدد سعات او تقليل عدد ساعات
كما تم عمل جلب رقم وتحويله الى تاريخ ووقت
كل ما عليك المحاولة من الاكواد لديك الامر سهل
لكن اذا كان حتى الان لا تعلم ماذا تفعل
فهذه مشكلة لان كل من يساعد هنا حتى تستفاد علماً
وليس التعامل مع النسخ واللصق وتطبيق الاكواد
حاول ان تصل للفكرة لوحدك
حتى اذا جلست بها ايام الاهم انك تتعلم
وفى حالة صعوبة الامر بالنهاية
يمكنك استكمال الحديث فى قسم الاسئلة بفتح موضوع خاص بذلك
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 141
المواضيع 47
الإنتساب : Apr 2018
السمعة :
6
الشكر: 58
تم شكره 56 مرات في 33 مشاركات
حسنا سأفعل هذا .. أسف على إزعاجك
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(28-06-18, 09:52 PM)hichem1 كتب : حسنا سأفعل هذا .. أسف على إزعاجك
لا اسف ولا ازعاج
فانا هنا لكى اساعد الجميع بقدر ما اقدر
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 453
المواضيع 127
الإنتساب : Jan 2018
السمعة :
29
الشكر: 351
تم شكره 473 مرات في 239 مشاركات
مشروع روعة ..
بارك الله فيك
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(29-06-18, 02:44 AM)YousefOkasha كتب : مشروع روعة ..
بارك الله فيك
تسلم اخى YousefOkasha
كل التحية لك
وتمنياتى لك التوفيق
المشاركات : 536
المواضيع 182
الإنتساب : Mar 2016
السمعة :
19
الشكر: 652
تم شكره 264 مرات في 171 مشاركات
(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")
هام للمستخدم عامة: يجب تغيير الطول والعرض لموقع البلد المطلوب جلب التوقيت الخاص بها
يمكنك استخدام اى موقع مثل خرائط جوجل وغيرها لجلب تلك البيانات
للتحكم اكثر فى الرابط حسب اليوم او يوم حسب التحديد يمكنك الاطلاع على الرابط التالى
الروابط يمكن استخدامها بطرق التالية :
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,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(29-06-18, 05:32 PM)dubai.eig كتب : ما شاءالله تبارك الله
عمل جميل شكرا لك مبدع دائما ما شاءالله
تسلم اخى dubai.eig
فانت هو الاجمل بتواجدك دائماً وردك الجميل
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 63
المواضيع 15
الإنتساب : Nov 2017
السمعة :
5
الشكر: 179
تم شكره 193 مرات في 70 مشاركات
(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")
هام للمستخدم عامة: يجب تغيير الطول والعرض لموقع البلد المطلوب جلب التوقيت الخاص بها
يمكنك استخدام اى موقع مثل خرائط جوجل وغيرها لجلب تلك البيانات
للتحكم اكثر فى الرابط حسب اليوم او يوم حسب التحديد يمكنك الاطلاع على الرابط التالى
الروابط يمكن استخدامها بطرق التالية :
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,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق
|