13-08-18, 11:47 PM
الشكر لله اخى الكريم
فى ردي السابق كل ما قمت به هو توصيل لك الفكرة
وان الامر بكل بساطة هو استخدام الرابط على امل انك على دراية
كيفية جلب البيانات من الرابط من ثم استخدامها
لكن لا عليك اخى اليك استخدام الكود بـ VB6
فى البداية الكود المطلوب استخدامه هو
كود :
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 TextSpl() As String
TextSpl = Split(Text_, ",")كل ما عليك هو استبدال هذا الرابط
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
بالرابط الذى يحتوى على احداثيات المدينة او الدولة ...
مع تغيير كلمة today الى تاريخ او تركها كما هى اذا كنت تريد جلب حسب اليوم
ثانياً لاستخدام عرض تفاصيل الكود فقط كل ما عليك فعله استخدام السطر التالى
كود :
TextSpl(0)كمثال لعرض البيان فى رسالة
كود :
MsgBox TextSpl(0)أو مثلاً
كود :
Text1.Text = TextSpl(0)طيب لو محتاج اعرض جميع النتائج
كود :
Text1.Text = TextSpl(0) ' Sunrise
Text2.Text = TextSpl(1) ' Sunset
Text3.Text = TextSpl(2) ' Solar Noon
Text4.Text = TextSpl(3) ' Day Length
Text5.Text = TextSpl(4) ' Civil Twilight Begin
Text6.Text = TextSpl(5) ' Civil Twilight End
Text7.Text = TextSpl(6) ' Nautical Twilight Begin
Text8.Text = TextSpl(7) ' Nautical Twilight End
Text9.Text = TextSpl(8) ' Astronomical Twilight Begin
Text10.Text = TextSpl(9) ' Astronomical Twilight Endاتمنى ان الصورة كملت حتى النهاية
وان الكود وطريقة الاستخدام ابسط من ما يكون
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
