المشاركات : 63
المواضيع 15
الإنتساب : Nov 2017
السمعة :
5
الشكر: 179
تم شكره 193 مرات في 70 مشاركات
12-08-18, 08:51 PM
(آخر تعديل لهذه المشاركة : 13-08-18, 01:48 PM {2} بواسطة sendbad100.)
السلام عليكم
اعضاء المنتدى الكرام لدي سؤال ارجوا المساعدة فيه
لدي قاعدة بيانات من نوع اكسس فيها مواقيت الشروق والغروب لمدة عام كامل لمدينه معينه مربوطه بطريقة ال ADO مع الفجوات بيسك 6
السؤال
ماهو الكود المناسب لإظهار الشروق والغروب لكل يوم وحسب التاريخ الموجود باليوم والشهر
ارجوا ألمساعده في ذلك
وشكرا لكم
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
من مدة قمت بعمل مشروع عن الشروق والغروب
ولكن للبيئة الـ .Net من خلال الرابط التالى
فيمكنك الاطلاع عليه فالكود المستخدم فى الموضوع دون الحاجة لتثبيت اى اصدار
فكل ما عليك ان تستخدم فكرة الكود للبيئة الـ vb6 ووضع احداثية المدينة لديك
وبكده تكون لديك على مدار السنين وليس لعام واحد فقط
فكل الفكرة من الكود استخدام هذا الموقع
لاتمام استخدام هذا الرابط لجلب البيانات
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
وللتفاصيل اكثر عن الموضوع تابع الرابط التالى
فكل هذا الشرح مذكور فى الرابط الموضوع بالاعلي
اتمنى ان الفكرة الموضحة تكون امر يسهل عليك الامر دون الحاجة لاستخدام قاعدة البيانات
الامر غير معقد فى استخدام الفكرة لـ VB6
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 63
المواضيع 15
الإنتساب : Nov 2017
السمعة :
5
الشكر: 179
تم شكره 193 مرات في 70 مشاركات
13-08-18, 09:19 PM
(آخر تعديل لهذه المشاركة : 13-08-18, 09:21 PM {2} بواسطة حسن الغزي.)
(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
تحياتى لك
وتمنياتى لك التوفيق
شكرا لك اخي العزيز وبارك الله فيك
هل يستطيع احد الاساتذه بتحويل هذه الاكواد من بيئة الدوت نت الى الفجول واكون له شاكرا ممتنا
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الشكر لله اخى الكريم
فى ردي السابق كل ما قمت به هو توصيل لك الفكرة
وان الامر بكل بساطة هو استخدام الرابط على امل انك على دراية
كيفية جلب البيانات من الرابط من ثم استخدامها
لكن لا عليك اخى اليك استخدام الكود بـ 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 الى تاريخ او تركها كما هى اذا كنت تريد جلب حسب اليوم
ثانياً لاستخدام عرض تفاصيل الكود فقط كل ما عليك فعله استخدام السطر التالى
كمثال لعرض البيان فى رسالة
أو مثلاً
كود :
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
اتمنى ان الصورة كملت حتى النهاية
وان الكود وطريقة الاستخدام ابسط من ما يكون
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 63
المواضيع 15
الإنتساب : Nov 2017
السمعة :
5
الشكر: 179
تم شكره 193 مرات في 70 مشاركات
elgokr
شكرا لك استاذنا الفاضل وشكرا لجهودك الجميله
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الشكر لله
كل التحية لك
وتمنياتى لك كل التوفيق
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
(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 خدمة لهذا المنتدى
ولتعم الفائدة للجميع
تقبل مني فائق الود والاحترام
اختكم الاصيله
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(16-08-18, 09:07 PM)الاصيله كتب : السلام عليكم
لبرنامج جميل جدا
نرجوا من الاخ الجوكر ان يعيد تصميم برنامجه السابق لكن باستتخدام VB6 خدمة لهذا المنتدى
ولتعم الفائدة للجميع
تقبل مني فائق الود والاحترام
وعليكم السلام ورحمة الله وبركاته
تم انشاء السورس + برنامج كما طلب
يمكنك الاطلاع عليه من خلال الرابط التالى
لى اكثر من 10 سنوات لا استخدم VB6
فقد يكون التصميم رخم بعض الشئ فانا لم اعتاد عليه كما سبق
لكن الكود المستخدم فى السورس سيكفي بالغرض ان شاء الله
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 78
المواضيع 10
الإنتساب : Jan 2014
السمعة :
14
الشكر: 436
تم شكره 361 مرات في 74 مشاركات
السلام عليكم
الموضوع فعلا قيم شكرا لمن طرح هذا لموضوع وشكرا لمن ساهم في تنفيذه
واخص بالذكر الاستاذ الجوكر
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(22-08-18, 09:37 PM)جاسم عبد كتب : السلام عليكم
الموضوع فعلا قيم شكرا لمن طرح هذا لموضوع وشكرا لمن ساهم في تنفيذه
واخص بالذكر الاستاذ الجوكر
وعليكم السلام ورحمة الله وبركاته
اهلاً بك اخى جاسم عيد
كل عام وانت بخير
وعيد سعيد عليك وعلى الجميع
الشكر لله فالحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
|