[elgokr]

فى البدية اقدم خالص الشكر والتقدير 

الى الاخ جاسم عبد

على مجهودة لاتمام عمل اللازم لحل مشكلة الاخ حسن الغزي

ويبدو ان المشكلة كلها كانت لدى حسن الغزي فى مسمى objHttp

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

فكل التوفي لكم

وتمنياتى لكم النجاح الدائم

---

---

مرحباً اختى الاصيلة

لا اعلم موقع يقدم الخدمة بصورة لها مميزات كبيرة

ولكن على حسب علمى حتى الان لا اعتقد يوجد موقع سيكون افضل من التالى

https://api.nasa.gov/api.html

الصفحة تحتوى على جميع التفاصيل التى قد تحتاجي اليها

فقط اطلعي على الرابط وسيفيدك كثيراً ان شاء الله

تحياتىلكى

وتمنياتى لكى التوفيق الدائم

[جاسم عبد]

(15-09-18, 01:14 PM)elgokr كتب :

فى البدية اقدم خالص الشكر والتقدير 

الى الاخ جاسم عبد

على مجهودة لاتمام عمل اللازم لحل مشكلة الاخ حسن الغزي

ويبدو ان المشكلة كلها كانت لدى حسن الغزي فى مسمى objHttp

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

فكل التوفي لكم

وتمنياتى لكم النجاح الدائم

---

---

مرحباً اختى الاصيلة

لا اعلم موع يقدم الخدمة بصورة لها مميزات كبيرة

ولكن على حسب علمى حتى الان لا اعتقد يوجد موقع سيكون افضل من التالى

https://api.nasa.gov/api.html

الصحى تحتوى على جميع التفاصيل التى قد تحتاج اليها

فقط اطلعي على الرابط وسييدك كثيراً ان شاء الله

تحياتىلكى

وتمنياتى لكى التوفيق الدائم

نعم اخي الموقر الجوكر كانت المشكله في ال objHttp مثلما تفضلت

مجهودك رائع جدا شكرا لك من كل قلبي

[حسن الغزي]

السلام عليكم
الاستاذ الفاضل الجوكر
اريد ان يعطي البرنامج رساله عندما يكون النت مقطوع

[الاصيله]

   مرحباً اختى الاصيلة

   لا اعلم موع يقدم الخدمة بصورة لها مميزات كبيرة

   ولكن على حسب علمى حتى الان لا اعتقد يوجد موقع سيكون افضل من التالى

   https://api.nasa.gov/api.html

   الصحى تحتوى على جميع التفاصيل التى قد تحتاج اليها

   فقط اطلعي على الرابط وسييدك كثيراً ان شاء الله

   تحياتىلكى

   وتمنياتى لكى التوفيق الدائم


ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

شكرا لاخي الفاضل الجوكر
الموقع مفيد جدا
شكرا مرة اخرى لك

[elgokr]

(15-09-18, 09:01 PM)حسن الغزي كتب : السلام عليكم
الاستاذ الفاضل الجوكر
اريد ان يعطي البرنامج رساله عندما يكون النت مقطوع

لعمل تحقق من الانترنت متصل ام لا

كل ما عليك فعله هو التالى

فى البداية قم باضافة سطر الـ Function 

كود :

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

ثم قم باستخدام الكود التالى

كود :

If InternetGetConnectedState(0, 0) = 1 Then
   MsgBox "متصل بالانترنت"
Else
   MsgBox "غير متصل بالانترنت"
End If

طبعاً بدلاً من الرسالة

يمكنك وضع الكود الذى تريده

تحياتى لك

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

[حسن الغزي]

شكرًا لك استاذنا الفاضل الجوكر
اذا سمحت لي بسؤال اخر
اريد ان أضيف للبرنامج صندوقي نص ادخل بهما احداثيات خط الطول وخط العرض والبرنامج يقوم بإضافتهما الى الرابط داخل البرنامج
كيف يكون ذلك 
انا بالحقيقه حاولت كثيرا لكنني لم أتوصل الى نتيجه
هل ممكن ذلك
وآسف للاطاله

[elgokr]

(17-09-18, 03:51 PM)حسن الغزي كتب : شكرًا لك استاذنا الفاضل الجوكر
اذا سمحت لي بسؤال اخر
اريد ان أضيف للبرنامج صندوقي نص ادخل بهما احداثيات خط الطول وخط العرض والبرنامج يقوم بإضافتهما الى الرابط داخل البرنامج
كيف يكون ذلك 
انا بالحقيقه حاولت كثيرا لكنني لم أتوصل الى نتيجه
هل ممكن ذلك
وآسف للاطاله

الشكر لله والحمد لله 

والحمد لله على كل حال

بخصوص طلبك

كل ما عليك فعله هو اضافة عدد 2 Text

واجعل كل واحد منهم الاسم الاول latText والثاني lngText

ثم تعال على هذا السطر

كود :

strURL = "https://api.sunrise-sunset.org/json?lat=36.7201600&lng=-4.4203400&date=today"

واستبدله بالتالى

كود :

strURL = "https://api.sunrise-sunset.org/json?lat=" & latText.Text & "&lng=" & lngText.Text & "&date=today"

تذكر لا تنسى ان تجعل كلاً من latText  و lngText

يحتوى على قيمة الاحداثيات حتى لا يظهر معك خطاء 

تحياتى لك

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

[حسن الغزي]

ِزادك الله علما فوق علمك 
شكرًا لك استاذنا الجوكر

[elgokr]

(22-09-18, 12:27 AM)حسن الغزي كتب : ِزادك الله علما فوق علمك 
شكرًا لك استاذنا الجوكر

اللهم امين ولنا جميعاً يارب

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

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