ابو جودي

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

الفكرة دى تقريبا فكرتنى بإيــــــــــــــه ... اممممم وعلى رأى اخى الحبيب الاستاذ @Moosak وانا كنت فاضى حبتين وللتجربة المرفق >--->> هنا

كنت متأكد ان التفعيل الغير قانونى هو السبب

بسم الله ماشاء الله الله اكبر

طيب ياريت بعد ما تجرب تعرفنا النتيجة

المشكلة من التقعيل الغير قانونى استخدم اداة تفعيل اخرى غير المستخدمة حاليا وبعد التفعيل قم بعمل تحديث اونلاين للاوفيس

يا استاذ @أبو أحمد اتفضل المرفق الاتى يقوم بتشغيل الملفات ذات الامتداد mp3 , wav بدون مشاكل ان شاء الله انا مش فاهم قصد حضرتك ياريت توضح اكثر Braille V.0.2.zip

تم تعديل الموضوع باضافة الاصدار الثانى من قاعدة البيانات والذى لا يعتمد على كائن أو مكتبات ميديابلاير

وهذا تعديل للكود السابق داخل الموديول للاستغناء عن استخدام المكتبة التى سبق واشرت اليها فى الرد السابق Function CollectFields(pstrSQL As String, Optional pstrDelim As String = ", ") As String Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset(pstrSQL) Dim strConcat As String With rs If Not .EOF Then .MoveFirst Do While Not .EOF strConcat = strConcat & .Fields(0) & pstrDelim .MoveNext Loop End If .Close End With Set rs = Nothing Set db = Nothing If Len(strConcat) > 0 Then strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim)): CollectFields = strConcat End Function Downtime (3).accdb

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

مشاركة مع اساتذى العظماء.... واثراء للموضوع هذا حل آخر يعتمد على الكود الاتى داخل الموديل ولاكن لابد من تفعيل المكتبة الاتية Microsoft ActiveX Data objects 2.1 library Function CollectFields(pstrSQL As String, Optional pstrDelim As String = ", ") As String Dim rs As New ADODB.Recordset rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic Dim strConcat As String With rs If Not .EOF Then .MoveFirst Do While Not .EOF strConcat = strConcat & .Fields(0) & pstrDelim .MoveNext Loop End If .Close End With Set rs = Nothing If Len(strConcat) > 0 Then strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim)): CollectFields = strConcat End Function بعد ذلك نقوم بعمل استعلام تجميعى ومصدر الاستعلام الجدول TblDowntime لانه به كل البيانات ولاننا نريد تجميع البيانات التى تخص كل Machines سوف نقوم بادارج الحقل الدال على ذلك وهو Machine لانه الذى يمثل العامل المشترك الذى يتم تجميع البيانات بناء عليه والان نريد تحميع كل البيانات التى تخص الـمدة Duration من كل السجلات نضع الجملة الاتية والتى نستدعى بها الكود من داخل الموديول لكل حقل نريد تجميع بياناته CollectFields("SELECT x1 FROM x2 WHERE x2='" & [x3] & "'" & " ORDER BY x3") x1--- اسم الحقل الذى نريد تجميع بياناته x2--- اسم الجدول او الاستعلام والذى هو مصدر البيانات x3--- اسم الحقل الذى يمثل العامل المشترك الذى يتم تجميع البيانات بناء عليه Downtime (2).accdb

شكرا لكم استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل انا لم اكن اعلم اى شئ مما سبق ولكن لما دعت الحاجة لتصميم تلك القاعدة هذا ما استطعت فهمه بقليل من البحث عبر صفحات الانترنت حول تلك الطريقة فعلا الموضوع صعب ولكن ادركت وقتها نعمة البصر والاكثر منها البصيرة ... عند البحث وجدت هذا البيت واثر فى وجدانى كثيرا مِسكينٌ هوَ لا يَرى الألوانَ الرائِعَة بَل مسكينٌ أنتَ عيونٌ لكَ ونظراتُها ضائعَة

تقصد بالتعقيد الاكواد المستخدمة فى قاعدة البينات ام طريقة برايل ؟!

حظه كده هههههههههه

نعم هو ذلك فعلا المعلم المبصر هو من سوف يستخدم هذا التطبيق فى التعليم وهو من سوف ينقر ازرار الحروف والمتلقون للعلم هم من سوف يستمع لحركة كل حرف ترجمة الحرف هذه هى طريقة برايل تعتمد الطريقة على ان كل الحروف تتكون من خلية من ست نقاط وعدد النقاط بترتيب معين داخل الخلية يدل على كل حرف وهذا شكل الخلية وتتم قراءة النقاط البارزة من خلال معرفة رقم موضعها طبقا للخلية الاتية من خلال اللمس وجدل برايل اجمالا يعنى عندما يتحسس غير المبصر ويجد النقطة البارزة طبقا للترتيب فى الخلية الاتية رقم 1 اى ان هذا حرف الاف وهندما يتحثث النقاط البارزة ويجدها حسب موضعها 2 ، 3 ، 4 ، 5 فهذا حرف التاء

الف مبروك .... مزيد من التألق .... زادك الله علما

جزاكم الله خيرا ورزقكم من فضل ما دعوتم اضعافا مضاعفة اتمنى التجربة والرد ان كان هناك اى خلل وابداء الرأى ان كان هناك تعديل او افكار افضل

السلام عليكم ورحمة اللة تعالى وبركاته تم طرح الموضوع مسبقا >>----> هنا ولكن بدأ باستفسار من الاستاذ @أبو أحمد عن مجرد ادراج ملفات الصوت للاستماع اليها ثم تطرق بعد ذلك لسؤال عن شكل التصميم وطلب بعض التعديلات ولأهمية العمل من وجهة نظرى المتواضعة لكل من يريد استخدامه فى تعليم اخواننا ممن ابتلاهم الله بفقد البصر اولا اسال الله تعالى ان ينير بصيرتهم وايانا وكل امة محمد صل الله عليه وسلم ثانيا اسأل الله تعالى ان يتقبل هذا العمل المتواضع فيكتب بعد مماتى فى موازين اعمالى باب علم ينتفع منه وأخيرا المرفق الاصدار الثانى لا يعتمد على كائن مديا بلاير ولا على المكتبات التى تخصة لمن يواجه مشكلة مع الاصدار الاول ... وهو ما انصح به Braille.zip Braille V.0.2.zip

هات مرفق

أخر تعديل Braille.mdb

استخدم دالة Dmax or DLast اسهل طريقة اعمل استعلام تجميعى واعمل معيار للرقم العميل ليقوم بالقلترة على العميل فقك وفى حقل التاريخ استخدم فى التجميع Last or Max ولو الاوفيس عندك عربى مش عارف هيكون اسمهم ايه

العفو منكم استاذى الجليل انا طويلب علم احبو فى طيات صفحات و موضعات منتدانا الحبيب وانهل من نبعكم واساتذتى الكرام طلبت تقديم الارشادات اللازمة لهذا العمل الخيرى فانى اتمنى على الله تعالى ان يتم تقديمه على اكمل وجه واسال الله تعالى ان يتقبل ويرزقنا التعاون على البر والتقوى وعمل الخيرات ان شاء الله جزاكم اله خيــرا

وذاك مثال رائع كذلك من مكتبتى وناطق باللغتين العربية والانجليزية القاعدة ليست من تصميمى حصلتها من احد المنتديات الاجنبية Translate&Speak_v3.accdb

سوف اقوم بالبحث عن ذلك ان شاء الله

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