تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مشروع عرض توقيت الشروق والغروب مع سطوع الشمس والمد والجزر مع طول النهار
#1
السلام عليكم ورحمة الله وبركاته

حتى يعم الفائدة تم انشاء هذا الموضوع
وهو طلب احد اعضاء المنتدى

الشرح مع الصورة لشكل البرنامج

يوجد موقع يقوم بجلب الغروب والشروق وظهور سطوع الشمس
وكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي

صورة توضيحية


السورس و برنامج الاختبار مرفق بالرد

الاكواد المستخدمة فى الفورم
كود :
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


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 FullTitle As String
FullTitle = "Sunrise:,Sunset:,Solar Noon:,Day Length:,Civil Twilight Begin:,Civil Twilight End:,Nautical Twilight Begin:,Nautical Twilight End:,Astronomical Twilight Begin:,Astronomical Twilight End:"
Dim Title() As String
Title = Split(FullTitle, ",")

Dim TextSpl() As String
TextSpl = Split(Text_, ",")


For ii = 0 To 9
   Text1.Text = Text1.Text + Title(ii) & " " & TextSpl(ii) & vbNewLine
Next

Text2(0).Text = TextSpl(0)  ' Sunrise
Text3(1).Text = TextSpl(1)  ' Sunset
Text4(2).Text = TextSpl(2)  ' Solar Noon
Text5(3).Text = TextSpl(3)  ' Day Length
Text6(4).Text = TextSpl(4)  ' Civil Twilight Begin
Text7(5).Text = TextSpl(5)  ' Civil Twilight End
Text8(6).Text = TextSpl(6)  ' Nautical Twilight Begin
Text9(7).Text = TextSpl(7)  ' Nautical Twilight End
Text10(8).Text = TextSpl(8) ' Astronomical Twilight Begin
Text11(9).Text = TextSpl(9) ' Astronomical Twilight End
End Sub


كل ما هو مطلوب فقط التعديل على الرابط
خاصة السطر 
PHP كود :
strURL "https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today" 

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

للتحكم اكثر فى الرابط حسب اليوم او يوم حسب التحديد يمكنك الاطلاع على الرابط التالى
موقع : sunrise sunset

الروابط يمكن استخدامها بطرق التالية :
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=2018-06-28
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&formatted=0 

راجع الرابط بالاعلى لتوضح استخدام الروابط اكثر

اليكم التحميل من المرفقات
السورس (VB6)

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


الملفات المرفقة صورة/صور
   

.zip   Pro Sunrise and Sunset Time.zip (الحجم : 5.59 ك ب / التحميلات : 12)
.zip   Sunrise and Sunset Time.zip (الحجم : 2.67 ك ب / التحميلات : 15)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#2
(17-08-18, 02:53 AM)elgokr كتب :
السلام عليكم ورحمة الله وبركاته

حتى يعم الفائدة تم انشاء هذا الموضوع
وهو طلب احد اعضاء المنتدى

الشرح مع الصورة لشكل البرنامج

يوجد موقع يقوم بجلب الغروب والشروق وظهور سطوع الشمس
وكذلك المد والجزر للبحر وطول اليوم والتوقيت لبداية ونهاية الفلكي

صورة توضيحية


السورس و برنامج الاختبار مرفق بالرد

الاكواد المستخدمة فى الفورم
كود :
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


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 FullTitle As String
FullTitle = "Sunrise:,Sunset:,Solar Noon:,Day Length:,Civil Twilight Begin:,Civil Twilight End:,Nautical Twilight Begin:,Nautical Twilight End:,Astronomical Twilight Begin:,Astronomical Twilight End:"
Dim Title() As String
Title = Split(FullTitle, ",")

Dim TextSpl() As String
TextSpl = Split(Text_, ",")


For ii = 0 To 9
   Text1.Text = Text1.Text + Title(ii) & " " & TextSpl(ii) & vbNewLine
Next

Text2(0).Text = TextSpl(0)  ' Sunrise
Text3(1).Text = TextSpl(1)  ' Sunset
Text4(2).Text = TextSpl(2)  ' Solar Noon
Text5(3).Text = TextSpl(3)  ' Day Length
Text6(4).Text = TextSpl(4)  ' Civil Twilight Begin
Text7(5).Text = TextSpl(5)  ' Civil Twilight End
Text8(6).Text = TextSpl(6)  ' Nautical Twilight Begin
Text9(7).Text = TextSpl(7)  ' Nautical Twilight End
Text10(8).Text = TextSpl(8) ' Astronomical Twilight Begin
Text11(9).Text = TextSpl(9) ' Astronomical Twilight End
End Sub


كل ما هو مطلوب فقط التعديل على الرابط
خاصة السطر 
PHP كود :
strURL "https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today" 

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

للتحكم اكثر فى الرابط حسب اليوم او يوم حسب التحديد يمكنك الاطلاع على الرابط التالى
موقع : sunrise sunset

الروابط يمكن استخدامها بطرق التالية :
PHP كود :
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=2018-06-28
https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&formatted=0 

راجع الرابط بالاعلى لتوضح استخدام الروابط اكثر

اليكم التحميل من المرفقات
السورس (VB6)

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

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

ماشاء الله تبارك الله ، مبدع أخي دائماً الله يجزاك كل خير على ماتقدمه من إبداع ومساعده للإخوه الأعضاء إن شاء الله في ميزان حسناتك الله يزيدك من علمه وفضله .

- تحياتي لك .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
#4
ماشاء الله عليك

ابدعت وتألقت شكرا لما بذلته من جهد خدمة للصالح العام
اختكم الاصيله
الرد
#5
السلام عليكم
عند تشغيل البرنامج تظهر هذه الرساله ماهو السبب؟


الملفات المرفقة
.doc   رسالة خطأ.doc (الحجم : 163 ك ب / التحميلات : 12)
الرد
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد , الاصيله , الاصيله
#6
(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 )


فقط جرب ان تحدث او ازالة المتصفح واعادة تثبيته من جديد وجرب

فالله اعلم السبب الرئيسي لديك لانى لست فى مصدر الحدث معك

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#7
لقد قمت بحذف المتصفح القديم وتثبيت إصدار حديث
وقد أعطاني نفس السبب كما هو مذكور برسالة الخطأ
الرد
تم الشكر بواسطة: جاسم عبد , الاصيله
#8
المشكلة ليس لدى اى نسخة XP
كل ما يمكننى تجربة السورس على
Server  و 7 و 10

انظر لغداً اقوم بعمل جهاز وهمى بنسخة XP
واجرب مراجعة الكود عليه وهل انه سيحدث مشكلة فى الكود كما لديك ام لا

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

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#9
(18-08-18, 01:44 AM)elgokr كتب :
المشكلة ليس لدى اى نسخة XP
كل ما يمكننى تجربة السورس على
Server  و 7 و 10

انظر لغداً اقوم بعمل جهاز وهمى بنسخة XP
واجرب مراجعة الكود عليه وهل انه سيحدث مشكلة فى الكود كما لديك ام لا

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

تحياتى لك
أشكرك من كل قلبي وآسف لأنني أتعبتك معي
ولكن ان شاء الله سيكون عملك في ميزان حسناتك
الرد
تم الشكر بواسطة: جاسم عبد , جاسم عبد , الاصيله , الاصيله
#10
(18-08-18, 02:28 AM)حسن الغزي كتب :
(18-08-18, 01:44 AM)elgokr كتب :
المشكلة ليس لدى اى نسخة XP
كل ما يمكننى تجربة السورس على
Server  و 7 و 10

انظر لغداً اقوم بعمل جهاز وهمى بنسخة XP
واجرب مراجعة الكود عليه وهل انه سيحدث مشكلة فى الكود كما لديك ام لا

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

تحياتى لك
أشكرك من كل قلبي وآسف لأنني أتعبتك معي
ولكن ان شاء الله سيكون عملك في ميزان حسناتك
الاخ حسن الغزي هل تم حل مشكلتك اي هل البرنامج يعمل لديك ام لا؟
اختكم الاصيله
الرد
تم الشكر بواسطة: جاسم عبد , جاسم عبد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع البيع بالتقسيط أبو أسامة2 9 661 10-12-18, 03:37 PM
آخر رد: elgokr
Smile [vb6.0] مشروع بسيط جاهز sl_dl1 3 199 06-10-18, 01:21 PM
آخر رد: عبد العزيز البسكري
  [vb6.0] مشروع المتصفح مفتوح المصدر علي انور 4 2,203 29-04-18, 07:34 AM
آخر رد: bsn
  مشروع المرجع للدوال البرمجية Vb6 Functions. Mohamad Anan 4 541 30-01-18, 11:50 PM
آخر رد: ahmed.m
Wink [vb6.0] مشروع برنامج لمتابعة الجوازات ورخص العمل thecareep 4 1,221 14-10-17, 04:59 AM
آخر رد: thecareep
Wink [vb6.0] مشروع برنامج لمتابعة السيارات thecareep 9 1,911 14-10-17, 04:58 AM
آخر رد: thecareep
  [vb6.0] مشروع صغير لتشغيل صورة بصيغة gif مع الاداة والسيريال عبدالقادرعواد 3 599 27-02-17, 10:01 PM
آخر رد: sendbad100
Exclamation طلب مشروع عن نظام الغيابات في الكلية spyman 9 2,666 19-12-16, 11:35 PM
آخر رد: abbaskareem
Lightbulb مشروع برنامج انتى فيروس مفتوح المصدر alims 10 6,096 11-04-16, 12:52 PM
آخر رد: MicroDoha
  [مشروع] مشروع كامل Make Code لصنع الشيفرات Omar 6.0 3 1,131 11-04-16, 09:58 AM
آخر رد: MicroDoha

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


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