فى البدية اقدم خالص الشكر والتقدير
الى الاخ جاسم عبد
على مجهودة لاتمام عمل اللازم لحل مشكلة الاخ حسن الغزي
ويبدو ان المشكلة كلها كانت لدى حسن الغزي فى مسمى objHttp
حيث عند اتمام تغيير المسمى الى x كما تم برده انه اصبح يعمل لديه
فكل التوفي لكم
وتمنياتى لكم النجاح الدائم
مرحباً اختى الاصيلة
لا اعلم موقع يقدم الخدمة بصورة لها مميزات كبيرة
ولكن على حسب علمى حتى الان لا اعتقد يوجد موقع سيكون افضل من التالى
الصفحة تحتوى على جميع التفاصيل التى قد تحتاجي اليها
فقط اطلعي على الرابط وسيفيدك كثيراً ان شاء الله
تحياتىلكى
وتمنياتى لكى التوفيق الدائم
(15-09-18, 01:14 PM)elgokr كتب : [ -> ]فى البدية اقدم خالص الشكر والتقدير
الى الاخ جاسم عبد
على مجهودة لاتمام عمل اللازم لحل مشكلة الاخ حسن الغزي
ويبدو ان المشكلة كلها كانت لدى حسن الغزي فى مسمى objHttp
حيث عند اتمام تغيير المسمى الى x كما تم برده انه اصبح يعمل لديه
فكل التوفي لكم
وتمنياتى لكم النجاح الدائم
مرحباً اختى الاصيلة
لا اعلم موع يقدم الخدمة بصورة لها مميزات كبيرة
ولكن على حسب علمى حتى الان لا اعتقد يوجد موقع سيكون افضل من التالى
الصحى تحتوى على جميع التفاصيل التى قد تحتاج اليها
فقط اطلعي على الرابط وسييدك كثيراً ان شاء الله
تحياتىلكى
وتمنياتى لكى التوفيق الدائم
نعم اخي الموقر الجوكر كانت المشكله في ال objHttp مثلما تفضلت
مجهودك رائع جدا شكرا لك من كل قلبي
السلام عليكم
الاستاذ الفاضل الجوكر
اريد ان يعطي البرنامج رساله عندما يكون النت مقطوع
مرحباً اختى الاصيلة
لا اعلم موع يقدم الخدمة بصورة لها مميزات كبيرة
ولكن على حسب علمى حتى الان لا اعتقد يوجد موقع سيكون افضل من التالى
الصحى تحتوى على جميع التفاصيل التى قد تحتاج اليها
فقط اطلعي على الرابط وسييدك كثيراً ان شاء الله
تحياتىلكى
وتمنياتى لكى التوفيق الدائم
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
شكرا لاخي الفاضل الجوكر
الموقع مفيد جدا
شكرا مرة اخرى لك
(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
طبعاً بدلاً من الرسالة
يمكنك وضع الكود الذى تريده
تحياتى لك
وتمنياتى لك التوفيق
شكرًا لك استاذنا الفاضل الجوكر
اذا سمحت لي بسؤال اخر
اريد ان أضيف للبرنامج صندوقي نص ادخل بهما احداثيات خط الطول وخط العرض والبرنامج يقوم بإضافتهما الى الرابط داخل البرنامج
كيف يكون ذلك
انا بالحقيقه حاولت كثيرا لكنني لم أتوصل الى نتيجه
هل ممكن ذلك
وآسف للاطاله
(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
يحتوى على قيمة الاحداثيات حتى لا يظهر معك خطاء
تحياتى لك
وتمنياتى لك التوفيق
ِزادك الله علما فوق علمك
شكرًا لك استاذنا الجوكر
(22-09-18, 12:27 AM)حسن الغزي كتب : [ -> ]ِزادك الله علما فوق علمك
شكرًا لك استاذنا الجوكر
اللهم امين ولنا جميعاً يارب
الشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق