يوجد موقع يقوم بجلب الغروب والشروق وظهور سطوع الشمس
وكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي
صورة توضيحية
السورس و برنامج الاختبار مرفق بالرد
الاكواد المستخدمة فى الفورم
كود :
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
يوجد موقع يقوم بجلب الغروب والشروق وظهور سطوع الشمس
وكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي
صورة توضيحية
السورس و برنامج الاختبار مرفق بالرد
الاكواد المستخدمة فى الفورم
كود :
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
ماشاء الله تبارك الله ، مبدع أخي دائماً الله يجزاك كل خير على ماتقدمه من إبداع ومساعده للإخوه الأعضاء إن شاء الله في ميزان حسناتك الله يزيدك من علمه وفضله .
- تحياتي لك .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
(17-08-18, 05:40 AM)حسن الغزي كتب : شكرًا لك استاذنا لما قدمته من مجهود لخدمة هذا المنتدى الجميل
الشكر لله اخى حسن الغزي
كل التوفيق لك
(17-08-18, 06:51 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
ماشاء الله تبارك الله ، مبدع أخي دائماً الله يجزاك كل خير على ماتقدمه من إبداع ومساعده للإخوه الأعضاء إن شاء الله في ميزان حسناتك الله يزيدك من علمه وفضله .
- تحياتي لك .
الاروع هو انت اخى Ahmed_Mansoor وما تقدمه دائماً هنا لمساعدة الجميع
فاعنك الله لما تفعله وتقدمه من خير فى مساعدة الاخرين
كل التحية لك
وتمنياتى لك التوفيق
(17-08-18, 02:28 PM)الاصيله كتب :
ماشاء الله عليك
ابدعت وتألقت شكرا لما بذلته من جهد خدمة للصالح العام
الشكر لله اختى الاصيلة
فكل التحية لكي
(17-08-18, 02:41 PM)حسن الغزي كتب : السلام عليكم
عند تشغيل البرنامج تظهر هذه الرساله ماهو السبب؟
وعليكم السلام ورحمة الله وبركاته
يبدو ان المشكلة تعود الى اصدار المتصفح لديك
حاول ان تقوم بتحديث المتصفح الى اخر اصدار
أو ان المشكلة فى الخدمات التى به حيث انه مطلوب ( MSXML2.ServerXMLHTTP )
فقط جرب ان تحدث او ازالة المتصفح واعادة تثبيته من جديد وجرب
فالله اعلم السبب الرئيسي لديك لانى لست فى مصدر الحدث معك
تحياتى لك
وتمنياتى لك التوفيق
{وَقُل رَّبِّ زِدْنِي عِلْمًا}
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله