31-08-18, 01:29 AM
اخى الحبيب حسن الغزي
قم بفتح السورس كا مسؤل Administrator
وقم باختبار الكود وسيعمل معك
لان تم اختبار السورس على اكثر من جهاز والناتج واحد
جرب وان شاء الله الامور هتكون تمام معاك
تحياتى لك
وتمنيات ىلك التوفيق
31-08-18, 01:29 AM
07-09-18, 02:02 AM
13-09-18, 03:46 PM
15-09-18, 12:59 AM
15-09-18, 01:05 AM
15-09-18, 01:13 AM
15-09-18, 02:05 AM
15-09-18, 02:59 AM
15-09-18, 12:24 PM
15-09-18, 12:44 PM
(07-09-18, 02:02 AM)حسن الغزي كتب : [ -> ](28-08-18, 01:17 PM)الاصيله كتب : [ -> ]شكرًا لمتابعتك للموضوع اختي الاصيله(18-08-18, 02:28 AM)حسن الغزي كتب : [ -> ]الاخ حسن الغزي هل تم حل مشكلتك اي هل البرنامج يعمل لديك ام لا؟(18-08-18, 01:44 AM)elgokr كتب : [ -> ]أشكرك من كل قلبي وآسف لأنني أتعبتك معيالمشكلة ليس لدى اى نسخة XPكل ما يمكننى تجربة السورس علىServer و 7 و 10
انظر لغداً اقوم بعمل جهاز وهمى بنسخة XPواجرب مراجعة الكود عليه وهل انه سيحدث مشكلة فى الكود كما لديك ام لا
حاول خلال هذا ان تقوم بتجربة السورس على جهاز اخر اذا كان بنفس النسخة او اصدار اخر
تحياتى لك
ولكن ان شاء الله سيكون عملك في ميزان حسناتك
لكنني لحد الان لم أتمكن من تشغيل البرنامج مع انني غيرت المتصفح مثلما قال لي الأخ الجوكر
لكن رسالة الخطأ التي رفعتها لكم تظهر عند التشغيل فهل هنالك حل ارجوا من كل الاخوان الجوكر والأخت الاصيله والمشرفين على هذا المنتدى مساعدتي في ذلك وشكرا لكم
لا شكر على واجب اخ حسن الغزي
(17-08-18, 02:53 AM)elgokr كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
حتى يعم الفائدة تم انشاء هذا الموضوعوهو طلب احد اعضاء المنتدى
الشرح مع الصورة لشكل البرنامج
يوجد موقع يقوم بجلب الغروب والشروق وظهور سطوع الشمسوكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي
صورة توضيحية
السورس و برنامج الاختبار مرفق بالرد
الاكواد المستخدمة فى الفورم
كود :
Private Sub Form_Load()
Dim objHttp As Object, strURL As String, strText As String
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
strURL = "https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today"
objHttp.Open "GET", strURL, False
objHttp.setRequestHeader "User-Agent", _
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHttp.Send ("")
strText = objHttp.responseText
Set objHttp = Nothing
Dim Text_ As String
Text_ = strText
Text_ = Replace(Text_, """", "")
Text_ = Replace(Text_, "{", "")
Text_ = Replace(Text_, "}", "")
Text_ = Replace(Text_, "results", "")
Text_ = Replace(Text_, "sunrise", "")
Text_ = Replace(Text_, "sunset", "")
Text_ = Replace(Text_, "solar_noon", "")
Text_ = Replace(Text_, "day_length", "")
Text_ = Replace(Text_, "status", "")
Text_ = Replace(Text_, "civil_twilight_begin", "")
Text_ = Replace(Text_, "civil_twilight_end", "")
Text_ = Replace(Text_, "nautical_twilight_begin", "")
Text_ = Replace(Text_, "nautical_twilight_end", "")
Text_ = Replace(Text_, "astronomical_twilight_begin", "")
Text_ = Replace(Text_, "astronomical_twilight_end", "")
Text_ = Replace(Text_, "::", "")
Text_ = Replace(Text_, ",:", ",")
Text_ = Replace(Text_, ",OK", "")
Dim FullTitle As String
FullTitle = "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 Title() As String
Title = Split(FullTitle, ",")
Dim TextSpl() As String
TextSpl = Split(Text_, ",")
For ii = 0 To 9
Text1.Text = Text1.Text + Title(ii) & " " & TextSpl(ii) & vbNewLine
Next
Text2(0).Text = TextSpl(0) ' Sunrise
Text3(1).Text = TextSpl(1) ' Sunset
Text4(2).Text = TextSpl(2) ' Solar Noon
Text5(3).Text = TextSpl(3) ' Day Length
Text6(4).Text = TextSpl(4) ' Civil Twilight Begin
Text7(5).Text = TextSpl(5) ' Civil Twilight End
Text8(6).Text = TextSpl(6) ' Nautical Twilight Begin
Text9(7).Text = TextSpl(7) ' Nautical Twilight End
Text10(8).Text = TextSpl(8) ' Astronomical Twilight Begin
Text11(9).Text = TextSpl(9) ' Astronomical Twilight End
End Sub
كل ما هو مطلوب فقط التعديل على الرابطخاصة السطر
PHP كود :
strURL = "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
راجع الرابط بالاعلى لتوضح استخدام الروابط اكثر
اليكم التحميل من المرفقاتالسورس (VB6)
تحياتى لكموتمنياتى للجميع التوفيق
السلام عليكم
الاخ الجوكر المحترم
هل يوجد لديك روابط اخرى تجلب لنا احداث فلكيه مثلا القمر والكواكب الاخرى
اذا توفرت لديك ارجوا ان تتحفنا بها
ولك كل الشكر والاحترام
الاخ الجوكر المحترم
هل يوجد لديك روابط اخرى تجلب لنا احداث فلكيه مثلا القمر والكواكب الاخرى
اذا توفرت لديك ارجوا ان تتحفنا بها
ولك كل الشكر والاحترام