Moosak

شكرا لك عمي @ابوخليل 🙂 على هذا العطاء .. 🌹 شخصيا أنا أدعم وكذلك يعجبني التوجه الذي يقتضي استخدام نفس العنصر (نموذج/تقرير) بأكثر من طريقة ولأكثر من غرض بدل تصميم نموذج لكل حالة 🙂 وهذه واحدة من أروع الحيل لتحقيق ذلك .. 👍🙂 درة ثمينة تضاف للمكتبة العامرة 😊👌 جعلها الله شفيعة لك 😇🤲

شكرا لك أخي محمد 🙂 للعلم تم إضافة تعديلات رائعة إضافية للأداة وسوف أقوم بطرحها في أقرب وقت إن شاء الله ..😉👌 إلى ذلك الوقت ممكن تحمل الاصدار الأخير من هنا 🙂 :

التجربة الأولى ناجحة ولله الحمد 🙂 بس لما رجعت أجرب نفس الكود السابق حصلت على نفس النتيجة السابقة 😅 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub والنتيجة : '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-06-10 17:43:10 ' Tool version: v1.3 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub #If VBA7 Then ' 64-bit declarations Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr) Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #End If الترتيب غير صحيح .. المفروض : الثوابت ثم -----> دالة ال API ثم -----> الدالة الفرعية

شكرا لك عمي جعفر @jjafferr على الطرح المميز والأفكار الرائعة 😊🌹 في هذي النقطة وحسب ما هو ملاحظ في برامج الصور .. مساحة العمل على الصورة محددة ولها مكانها الخاص به .. ماتجي في الخلفية وخلف الأزرار والأدوات .. فلما يكون الصورة الملتقطة لها مكانها الخاص بيكون أفضل من وجهة نظري (وهو الحل الوسط) .. 🙂👌

إطلالة سريعة على هذا الموضوع قد تكون مفيده بدرجة كبيرة قد لا تتصورها : جدول بآيات القرآن الكريم كاملا.zip

أنت اللي حاط الوقت .. تصرف !! 😂😅

اعرض الملف 📅📚🔥>> لعبة مطابقة الأرقام 2 :: لتنمية مهارة التركيز 😉👌 <<🧮🌟 :: الإصدار الثاني المطور 😎✌ :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: عدنا إليكم بالإصدار المطور من اللعبة الجميلة 😊🎁 🧮📚>> لعبة مطابقة الأرقام 2.0 <<📚🧮 ملخص اللعبة هو : اللعبة تعطيك رقم عشوائي وكل ما عليك فعله هو إعادة كتابة الرقم من خلال لوحة الأزار التي أمامك أو من خلال أزرار الكيبورد في زمن محدد 😊🖐 .... أنتظر .. هذا ليس كل شيء .. !! 😉 ستخوض تحدي حقيقي هذه المرة خلال عبورك عشر مستويات من الإثارة والمتعة .. حيث أن في كل مستوى سوف يتم إعادة توزيع الأرقام في الأزرار بشكل عشوائي وكذلك عدد الأرقام يزداد والزمن المحدد يقل مما يزيد الإثارة في كل مستوى .. 😁👌 :: مميزات اللعبة والتحديثات الجديدة :: * يمكن اللعب بشكل فردي أو بشكل جماعي (أكثر من لاعب) * * مرحلة تدريبية قبل الشروع في المستوى الأول * * يمكن التنقل بين المستويات العشرة * * تصميم جميل وأنيق ولعبة شيقة تعينك على تمرين مهارة التركيز لديك * وهذه لقطات مختلفة من اللعبة : ::🌷 شكر وتقدير 🌷:: للأخالعزيز المهندس فادي @Foksh لتطويره اللعبة بالشكل الحالي وإضافة أفكاره النيرة ولمساته الرائعة 😊🌹 :: وختاما .. لا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 06/04/25 الاقسام قسم الأكسيس  

هي معموله علشان تتاخد ياباش مهندس 😅🖐

فنان وبيعمل حاجات بتوع فنانين ربنا يديك العافية على الحركات الجميلة والأفكار الإبداعية .. قد أكون مش ملم بالموضوع دا فنيا وتقنيا لأني ماليش في الشبكات كثير !! .. 😅 بس هل زي مانا فهمت أنه يتم تخزين بيانات الاعتماد من خلال النموذج التالي ؟ .. يعني مش بيقراها الكود تلقائيا من إعدادات الويندوز ؟ أوعك تتريق عليه 👊

الله الله على الفكر الإبداعي الجميل طبعا أنا خبرتي في مجال الألعاب محدودة .. لذلك كنت أفكر لو كانت اللعبة لها مراحل كيف شكل كل مرحلة بيكون ؟!! لكن صاحب الخبرة لما يتكلم ، علين أن ننصت بإمعان ✌ طبعا المهندس العزيز @Foksh قدم لي نسخة مطورة طبق فيها الأفكار اللي طرحها جزاه الله عنا كل خير 😊🌹🌷 .. وسيتم طرحها حالما تجهز .. 👍 وأنا سعيد جدا أن اللعبة لاقت استحسانكم .. ولله الحمد والفضل والشكر والمنّة . 🤲🌷 والشكر موصول لعمي العزيز @jjafferr 😊🌹

عندي سؤال خاطف - ليش تحذف المتغير قبل تعيين قيمة جديدة له ؟ وسؤال آخر ؟ - لو خزنا آلاف السجلات في TempVars بيكون عندنا عدد كبير منها ومساحة لا بأس بها في الذاكرة .. ألن يؤثر هذا على الأداء ؟ 🙂

جرب تعمل Compile وجرب مجددا .. وإذا انحلت معاك سأحدث الملف

وعلى طاري صياد الأخطاء وأنا اكتب كود مرة بعد ما انتهيت تبادرت لذهني فكرة وسألت الذكاء الاصطناعي يعطيني جميع أرقام الأخطاء المحتملة للعملية اللي أشتغل عليها وصفلي في حدود 8 ال 9 أخطاء محتملة ما خطرت على بالي .. وريحني وكفاني من عناء التجارب .. 🙂👌 هذي العبارة ترد لي الشباب 😂✋🏻