نجوم المشاركات

السلام عليكم ورحمة الله أخي الكريم كنت ابحث في الموضوع منذ أن طرحته (كود جلب بيانات من داخل موقع) ولم أجد مايصل الى الهدف بل كل ما وجدته يدور حوله. فطلب حضرتك ربط الاكسس بالموقع بطريقة شرعية وتحديث البيانات داخل قاعدة الاكسس بالضغط على زر (Import) . بينما (جلب البيانات) طريقة غير شرعية .وذلك لأن الموقع المراد سحب البيانات منه غير مصمم ليرتبط مع قاعدة بيانات اكسس وغير مصرح لك بجلب تلك البيانات (Data Grab) لوجود حماية على كل المواقع من كل أدوات جلب البيانات أو (الاستيلاء على البيانات) أما عدا ذلك فهو خيال علمي والخلاصة أنه يجب عليك تصميم قاعدة بيانات اكسس مرتبطة مسبقاً مع الموقع. لا أن يتم ذلك بعيدا عن مصمم الموقع أو بدون أذن للولوج للموقع وربط قاعدة البيانات به. بالنسبة لطلبك (أستاذة حنان، ممكن الرابط تبع المواضيع مع استاذنا إبراهيم) تفضل الملف الذي عليه النقاش مباشرة موجود بالمرفقات والكود الموجود به هو Dim mypath As String mypath = "http://www.nbe.com.eg/en/ExchangeRate.aspx" txtpath = mypath2 DoCmd.Maximize Set web = Me.WebBrowser4.Object web.Navigate mypath أما بالنسبة لنوع صفحة الموقع واللغة المكتوبه به هو عبارة عن ملفات ASPX وهي اختصار ل Active Server Pages وهذا الرابط يشرح المزيد https://www.3arrafni.com/aspx-files/ وهناك ماوجدته لتصميم قاعدة اكسس وربطه بالموقع مسبقاً أو وهذه طريقة يدوية لجلب البيانات من صفحة HTML مخزنة على الكمبيوتر وهذا رابط أخر تناول الموضوع مسبقاً على هذا المنتدى العظيم و أرجو أن أكون قد أفدتك. أخوك أحمد دراز WebImport.rar

تحكم الكامل بالرسم 1-سمك الخط 2-شفافية الخط 3-تحديد الخطود مع التحريك 4- تغير لون الخط ========================= مع تعديل عند تحريك المؤشر الماوس الى المكان المطلوب للرسم اضغط من مفاتيح الكيبورد [ F2 ] ثم ضغط كليك بزر الماوس فقط وعند تكرار اضغط مرتين على مفتاح F1 ثم ضغط كليك بزر الماوس فقط لرأي الاستاذ @Foksh 😇❤️🌹 ============================= 5-توفير شرح بيط داخل البرنامج مع طريقة تحجيم مربع الرسم ============================= اذا اردة ورغب بتعديل لان نسيت اضيف بالكود عند النقر _Click =1 وشرح المميزات برنامج تجريبي من غير مكتبة بالمرفقات اذا كامل ادخل للموضوع السابق يوجد رابط مباشر Media fire عند التحميل فقط نسخ المجلدات (الملفات) ثم اللصق بالجديد Up_Date_ActivX_Full_Control_INK.part01.rar Up_Date_ActivX_Full_Control_INK.part02.rar Up_Date_ActivX_Full_Control_INK.part03.rar Up_Date_ActivX_Full_Control_INK.part04.rar

يسعدني وضع أول مشاركة أستاذ @أبو عبدالله الحلوانى ، حالياً اقوم بالتصفح من الجوال ، سألقي نظرة على فكرتك الجميلة .. وددت لو أرفقت لنا صور على الأقل لتكتمل الصورة 😉 .

ربي يبارك فيك استاذ @أبو عبدالله الحلوانى على تواضعك الجميل وأسلوبك الأجمل ،، بالعكس ، يسعدني أن أطلع على فكرتك 🤗 ومتأكد أنها جميلة گطيب أصلك 🥰

ما شاء الله تبارك الله عمل رائع كروعة القائمين عليه حقيقة لم اطلع علي المرفق ولكن العنوان يدل علي ما بداخل الكتاب - وظننت أني سبقت بفكرة اتساع الاكسس لتصميم الألعاب 😄 ولكن يبدو أني سأقوم بحذف المرفق الذي قدمته بموضوعي منذ قليل قبل أن يراه أحد فيسخر مني 😄

تصفح مواضيع الاستاذ @أبو إبراهيم الغامدي سحب البيانات من الموقع الى جدول الاكسس وفي طريقة آلية قديمة ملف اكسل استضافة مع كود عند تغير الرابط تحديث لينك للاكسل (فقط ربط) داخل اكسس الحاق جدول لينك الى جدول الاكسس مع فورم لتحديث الرابط من جدول الاكسس الى ملف اكسل برابط لنك وتحديث تلقائي من نفس ملف اكسل بالكود افضل من تفكيك صفحة الموقع للوصول الى نص لكل نص في الموقع مع دعم دائم لكل تحديث في الموقع الافضل بحث عن آلية حديثة 😇

اتفضل استاذنا الفاضل وجدت هذا البرنامج على النت وهو جميل جدا جدول الحصص الأسبوعي.zip

راجع هذا الموضوع وبدقة عالية تجد الاجابات بها ....

الف مليون سلامه عليك

شرح جميل وموفق اخي @ahmed draz 🤝🤗

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

تم إضافة التأثيرات الصوتية الى التحديث الجديد . تم إضافة اسماء اللاعبين في مربعات نص . تم تعديل التعليقات من اللغة الإنجليزية الى اللغة العربية . تم إضافة تاثير الحركة الإنتقالية المرئية . تم إضافة زر لإيقاف الأصوات أو تشغيلها أثناء اللعب . Snake.zip

استكمالاً لما سبق 👆 :- بطريقة بسيطة سيتم الاعتماد على حساب الجيب العكسي للزوايا باستخدام دالة الرمز الجيبي العكسي (Arcsine)، والتي يُرمز لها بـ ASin . تُستخدم الدالة ASin في الرياضيات لحساب الزاوية التي تمثلها الجيب العكسي لنسبة محددة من الجانب المقابل لزاوية مثلث، عندما يُعرف طول الضلع المقابل لهذه الزاوية . ويتمثل ذلك في المعادلة الرياضية . صورة تعبيرية وبناءً على هذه المعادلة سيتم احتساب أوقات الصلاة باستخدام معادلات فلكية و جيوغرافية ، ومن ثم سنعيد القيمة الراجعة بتنسيق معين بشكل وقت . حسب المديول التالي ، والذي يعتبر عامود المشروع وقوامه وأساسه :- Option Compare Database Const PI As Double = 3.14159265358979 Function ASin(Value As Double) As Double If Abs(Value) <> 1 Then ASin = Atn(Value / Sqr(1 - Value * Value)) Else ASin = 1.5707963267949 * Sgn(Value) End If End Function Public Function ACos(ByVal nValue As Double, Optional fRadians As Boolean = True) As Double ACos = -Atn(nValue / Sqr(1 - nValue * nValue)) + PI / 2 If fRadians = False Then ACos = ACos * (PI / 180) End Function Function gettimes(lag As Double, lat As Double, tzon As Double, stime As String, method As Integer, Optional dylt As Integer = 0, Optional strdate As Date) As Date ' تعريف المتغيرات المستخدمة Dim D, L, m, lambda, alpha, noon, alt, UTNoon, localNoon, st, Dec, ar, obl As Double ' حساب تاريخ اليوم D = (367 * Year(strdate)) - Int(((Year(strdate) + Int((Month(strdate) + 9) / 12)) * 7) / 4) + Int(275 * Month(strdate) / 9) + Day(strdate) - 730531.5 ' حساب زاوية الشمس والشروق والغروب L = 280.461 + 0.9856474 * D L = L - (360 * Int(L / 360)) m = 357.528 + 0.9856003 * D m = m - (360 * Int(m / 360)) lambda = L + 1.915 * Sin(m * PI / 180) + 0.02 * Sin(2 * m * PI / 180) obl = 23.439 - 0.0000004 * D ' حساب موضع الشمس وزاوية الشروق والغروب alpha = Atn(Cos(obl * PI / 180) * Tan(lambda * PI / 180)) * 180 / PI alpha = alpha - (360 * Int(alpha / 360)) alpha = alpha + 90 * (Fix(lambda / 90) - Fix(alpha / 90)) st = 100.46 + 0.985647352 * D st = st - (360 * Int(st / 360)) Dec = ASin(Sin(obl * PI / 180) * Sin(lambda * PI / 180)) * 180 / PI noon = alpha - st noon = noon - (360 * Int(noon / 360)) UTNoon = noon - lag localNoon = (UTNoon / 15) + tzon + dylt ' حساب أوقات الصلاة Select Case stime Case Is = "Fajr" ' حساب وقت الفجر alt = DLookup("FajrDegree", "PrayerCalculation", "MethodType=" & method & "") ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI fajr = localNoon - ar / 15 gettimes = Format(fajr / 24, "hh:nn:ss") Case Is = "Shrok" ' حساب وقت الشروق alt = -1 ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI shrouk = localNoon - ar / 15 gettimes = Format(shrouk / 24, "hh:nn:ss") Case Is = "Zohr" ' حساب وقت الظهر gettimes = Format(localNoon / 24, "hh:nn:ss") Case Is = "Asr1" ' حساب وقت العصر (الطريقة الأولى) alt = 90 - Atn(1 + Tan(Abs(lat - Dec) * PI / 180)) * 180 / PI ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI asr = localNoon + ar / 15 gettimes = Format(asr / 24, "hh:nn:ss") Case Is = "Asr2" ' حساب وقت العصر (الطريقة الثانية) alt = 90 - Atn(2 + Tan(Abs(lat - Dec) * PI / 180)) * 180 / PI ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI asr = localNoon + ar / 15 gettimes = Format(asr / 24, "hh:nn:ss") Case Is = "Maghrib" ' حساب وقت المغرب alt = -1 ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI maghrib = localNoon + ar / 15 gettimes = Format(maghrib / 24, "hh:nn:ss") Case Is = "Eshaa" ' حساب وقت العشاء If method = 4 Then alt = -1 ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI maghrib = localNoon + ar / 15 If Month(CStr(Date)) = 9 Then gettimes = Format((maghrib + 2) / 24, "hh:nn:ss") Else gettimes = Format((maghrib + 1.5) / 24, "hh:nn:ss") End If Else alt = DLookup("IshaDegree", "PrayerCalculation", "MethodType=" & method & "") ar = ACos((Sin(alt * PI / 180) - Sin(Dec * PI / 180) * Sin(lat * PI / 180)) / (Cos(Dec * PI / 180) * Cos(lat * PI / 180))) * 180 / PI eshaa = localNoon + ar / 15 gettimes = Format(eshaa / 24, "hh:nn:ss") End If End Select End Function يتبع ... 👈