+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ (/showthread.php?tid=26090)
سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - حسن الغزي - 12-08-18
السلام عليكم
اعضاء المنتدى الكرام لدي سؤال ارجوا المساعدة فيه
لدي قاعدة بيانات من نوع اكسس فيها مواقيت الشروق والغروب لمدة عام كامل لمدينه معينه مربوطه بطريقة ال ADO مع الفجوات بيسك 6
السؤال
ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ الموجود باليوم والشهر
ارجوا ألمساعده في ذلك
وشكرا لكم
RE: سؤال؟ - elgokr - 13-08-18
من مدة قمت بعمل مشروع عن الشروق والغروب
ولكن للبيئة الـ .Net من خلال الرابط التالى
فيمكنك الاطلاع عليه فالكود المستخدم فى الموضوع دون الحاجة لتثبيت اى اصدار
فكل ما عليك ان تستخدم فكرة الكود للبيئة الـ vb6 ووضع احداثية المدينة لديك
وبكده تكون لديك على مدار السنين وليس لعام واحد فقط
فكل الفكرة من الكود استخدام هذا الموقع
لاتمام استخدام هذا الرابط لجلب البيانات
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
وللتفاصيل اكثر عن الموضوع تابع الرابط التالى
فكل هذا الشرح مذكور فى الرابط الموضوع بالاعلي
اتمنى ان الفكرة الموضحة تكون امر يسهل عليك الامر دون الحاجة لاستخدام قاعدة البيانات
الامر غير معقد فى استخدام الفكرة لـ VB6
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال؟ - حسن الغزي - 13-08-18
(13-08-18, 06:02 AM)elgokr كتب :من مدة قمت بعمل مشروع عن الشروق والغروبولكن للبيئة الـ .Net من خلال الرابط التالى
فيمكنك الاطلاع عليه فالكود المستخدم فى الموضوع دون الحاجة لتثبيت اى اصدارفكل ما عليك ان تستخدم فكرة الكود للبيئة الـ vb6 ووضع احداثية المدينة لديك
وبكده تكون لديك على مدار السنين وليس لعام واحد فقطفكل الفكرة من الكود استخدام هذا الموقع
لاتمام استخدام هذا الرابط لجلب البيانات
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
وللتفاصيل اكثر عن الموضوع تابع الرابط التالىفكل هذا الشرح مذكور فى الرابط الموضوع بالاعلي
اتمنى ان الفكرة الموضحة تكون امر يسهل عليك الامر دون الحاجة لاستخدام قاعدة البياناتالامر غير معقد فى استخدام الفكرة لـ VB6
تحياتى لكوتمنياتى لك التوفيق
شكرا لك اخي العزيز وبارك الله فيك
هل يستطيع احد الاساتذه بتحويل هذه الاكواد من بيئة الدوت نت الى الفجول واكون له شاكرا ممتنا
RE: سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - elgokr - 13-08-18
الشكر لله اخى الكريم
فى ردي السابق كل ما قمت به هو توصيل لك الفكرة
وان الامر بكل بساطة هو استخدام الرابط على امل انك على دراية
كيفية جلب البيانات من الرابط من ثم استخدامها
لكن لا عليك اخى اليك استخدام الكود بـ 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اتمنى ان الصورة كملت حتى النهاية
وان الكود وطريقة الاستخدام ابسط من ما يكون
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - حسن الغزي - 14-08-18
elgokr
شكرا لك استاذنا الفاضل وشكرا لجهودك الجميله
RE: سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - elgokr - 14-08-18
الشكر لله
كل التحية لك
وتمنياتى لك كل التوفيق
RE: سؤال؟ - الاصيله - 16-08-18
(13-08-18, 06:02 AM)elgokr كتب :السلام عليكممن مدة قمت بعمل مشروع عن الشروق والغروبولكن للبيئة الـ .Net من خلال الرابط التالى
فيمكنك الاطلاع عليه فالكود المستخدم فى الموضوع دون الحاجة لتثبيت اى اصدارفكل ما عليك ان تستخدم فكرة الكود للبيئة الـ vb6 ووضع احداثية المدينة لديك
وبكده تكون لديك على مدار السنين وليس لعام واحد فقطفكل الفكرة من الكود استخدام هذا الموقع
لاتمام استخدام هذا الرابط لجلب البيانات
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
وللتفاصيل اكثر عن الموضوع تابع الرابط التالىفكل هذا الشرح مذكور فى الرابط الموضوع بالاعلي
اتمنى ان الفكرة الموضحة تكون امر يسهل عليك الامر دون الحاجة لاستخدام قاعدة البياناتالامر غير معقد فى استخدام الفكرة لـ VB6
تحياتى لكوتمنياتى لك التوفيق
لبرنامج جميل جدا
نرجوا من الاخ الجوكر ان يعيد تصميم برنامجه السابق لكن باستتخدام VB6 خدمة لهذا المنتدى
ولتعم الفائدة للجميع
تقبل مني فائق الود والاحترام
RE: سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - elgokr - 17-08-18
(16-08-18, 09:07 PM)الاصيله كتب : السلام عليكم
لبرنامج جميل جدا
نرجوا من الاخ الجوكر ان يعيد تصميم برنامجه السابق لكن باستتخدام VB6 خدمة لهذا المنتدى
ولتعم الفائدة للجميع
تقبل مني فائق الود والاحترام
وعليكم السلام ورحمة الله وبركاته
تم انشاء السورس + برنامج كما طلب
يمكنك الاطلاع عليه من خلال الرابط التالى
لى اكثر من 10 سنوات لا استخدم VB6
فقد يكون التصميم رخم بعض الشئ فانا لم اعتاد عليه كما سبق
لكن الكود المستخدم فى السورس سيكفي بالغرض ان شاء الله
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - جاسم عبد - 22-08-18
السلام عليكم
الموضوع فعلا قيم شكرا لمن طرح هذا لموضوع وشكرا لمن ساهم في تنفيذه
واخص بالذكر الاستاذ الجوكر
RE: سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ - elgokr - 22-08-18
(22-08-18, 09:37 PM)جاسم عبد كتب : السلام عليكم
الموضوع فعلا قيم شكرا لمن طرح هذا لموضوع وشكرا لمن ساهم في تنفيذه
واخص بالذكر الاستاذ الجوكر
وعليكم السلام ورحمة الله وبركاته
اهلاً بك اخى جاسم عيد
كل عام وانت بخير
وعيد سعيد عليك وعلى الجميع
الشكر لله فالحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق