تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال؟ ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ
#1
السلام عليكم
اعضاء المنتدى الكرام لدي سؤال ارجوا المساعدة فيه
لدي قاعدة بيانات من نوع اكسس فيها مواقيت الشروق والغروب لمدة عام كامل لمدينه معينه مربوطه بطريقة ال ADO مع الفجوات بيسك 6
السؤال
ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ الموجود باليوم والشهر
ارجوا ألمساعده في ذلك
وشكرا لكم
الرد }}}
تم الشكر بواسطة: جاسم عبد , جاسم عبد
#2
من مدة قمت بعمل مشروع عن الشروق والغروب
ولكن للبيئة الـ .Net من خلال الرابط التالى

فيمكنك الاطلاع عليه فالكود المستخدم فى الموضوع دون الحاجة لتثبيت اى اصدار
فكل ما عليك ان تستخدم فكرة الكود للبيئة الـ vb6 ووضع احداثية المدينة لديك

وبكده تكون لديك على مدار السنين وليس لعام واحد فقط
فكل الفكرة من الكود استخدام هذا الموقع

لاتمام استخدام هذا الرابط لجلب البيانات
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today 

وللتفاصيل اكثر عن الموضوع تابع الرابط التالى
فكل هذا الشرح مذكور فى الرابط الموضوع بالاعلي


اتمنى ان الفكرة الموضحة تكون امر يسهل عليك الامر دون الحاجة لاستخدام قاعدة البيانات
الامر غير معقد فى استخدام الفكرة لـ VB6

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#3
(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

تحياتى لك
وتمنياتى لك التوفيق

شكرا لك اخي العزيز وبارك الله فيك

هل يستطيع احد الاساتذه بتحويل هذه الاكواد من بيئة الدوت نت الى الفجول واكون له شاكرا ممتنا
الرد }}}
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#4
الشكر لله اخى الكريم

فى ردي السابق كل ما قمت به هو توصيل لك الفكرة
وان الامر بكل بساطة هو استخدام الرابط على امل انك على دراية 
كيفية جلب البيانات من الرابط من ثم استخدامها

لكن لا عليك اخى اليك استخدام الكود بـ 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

اتمنى ان الصورة كملت حتى النهاية
وان الكود وطريقة الاستخدام ابسط من ما يكون

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#5
elgokr
شكرا لك استاذنا الفاضل وشكرا لجهودك الجميله
الرد }}}
تم الشكر بواسطة: elgokr , Ahmed_Mansoor , Ahmed_Mansoor , جاسم عبد , جاسم عبد
#6
الشكر لله

كل التحية لك
وتمنياتى لك كل التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#7
(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 خدمة لهذا المنتدى
ولتعم الفائدة للجميع
تقبل مني فائق الود والاحترام
اختكم الاصيله
الرد }}}
#8
(16-08-18, 09:07 PM)الاصيله كتب : السلام عليكم
لبرنامج جميل جدا
نرجوا من الاخ الجوكر ان يعيد تصميم برنامجه السابق لكن باستتخدام VB6 خدمة لهذا المنتدى
ولتعم الفائدة للجميع
تقبل مني فائق الود والاحترام

وعليكم السلام ورحمة الله وبركاته
تم انشاء السورس + برنامج كما طلب
يمكنك الاطلاع عليه من خلال الرابط التالى

لى اكثر من 10 سنوات لا استخدم VB6
فقد يكون التصميم رخم بعض  الشئ فانا لم اعتاد عليه كما سبق
لكن الكود المستخدم فى السورس سيكفي بالغرض ان شاء الله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#9
السلام عليكم 
الموضوع فعلا قيم شكرا لمن طرح هذا لموضوع وشكرا لمن ساهم في تنفيذه
واخص بالذكر الاستاذ الجوكر
الرد }}}
تم الشكر بواسطة: elgokr
#10
(22-08-18, 09:37 PM)جاسم عبد كتب : السلام عليكم 
الموضوع فعلا قيم شكرا لمن طرح هذا لموضوع وشكرا لمن ساهم في تنفيذه
واخص بالذكر الاستاذ الجوكر


وعليكم السلام ورحمة الله وبركاته

اهلاً بك اخى جاسم عيد

كل عام وانت بخير 
وعيد سعيد عليك وعلى الجميع

الشكر لله فالحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: الاصيله , جاسم عبد , جاسم عبد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم