Foksh

9 دقائق مضت, amen bakr said:

الجزء لم اتمكن من كله وهو اذا كانت الخليه ملونه تحسب مع خلبه مؤمن والباقي  بدون لون عددهم يبقى غير مامن

فعلاً لم أفهم المطلوب بشكل واضح .. 

اعتقد أن الحل كان بين يديك في مشاركة الأستاذ @عبدالله بشير عبدالله في موضوعك السابق ..

18 دقائق مضت, عبدالله بشير عبدالله said:

جرب التعديل التالي

حدث عند الوقت 👍🏻

فكرة جميلة جداً توظيف التايمر 

عذراً على المتابعة ..

فخبرتي في اكسل ليست قوية بما يكفي 😅

حتماً سنجد هنا قامات واسماء لها خبرة أكثر مني  

3 دقائق مضت, amen bakr said:

طهرت المشاكل الجديده وهذه تخر طلب

طيب ايش هي المشاكل ,,

انت الآن طلبك كالآتي :-

1. حساب عدد الخلايا الغير فارغة لكل لون في الأعمدة . صحيح ؟؟

الآن المشاكل التي تقصدها :-

1. عند تغيير لون الخلية لا يتم تحديث القيم في أعداد الخلايا التي كتبنا فيها المعادلات ، صحيح ؟

يعني انت تريد عند التغيير للون أي خلية ، أن يتم التعديل مباشرة في أعداد الألوان في الأعمدة ؟؟؟؟؟؟؟؟؟؟؟؟؟

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

وبالتالي لن يتم تحديث التعداد إلا إذا !!!!!!

في حدث عند التحديث للورقة ، كالتالي :-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

قمنا بإعادة حساب كل الصيغ والمعادلات في الورقة مرة أخرى ، بمجرد أن تقوم بالتحرير داخل اي خلية ، ثم الخروج .

خلاف ذلك لا اعتقد ان ذلك ممكن .

الان, amen bakr said:

نعم استاذي الكريم

الخليه الفارغه لا اريد احتسابها 

ابضا عند تعيير لون الخليه اوة اضافه خليه جديده للعامود فانه لا يقوم بتعديل نتيجه الالوان  

وشكرا للمساعده

أخوي الكريم ، أرجو منك كتابة كافة طلباتك ، حتى لا نجر بعضنا من طلب إلى آخر 😅

بكل الأحوال .. إن كان ما سبق صحيح ، فقط علينا إضافة شرط للجملة الشرطية بحيث تصبح :-

If c.Interior.Color = clr.Interior.Color And Trim(c.Value) <> "" Then

بداً من :-

If c.Interior.Color = clr.Interior.Color Then

26 دقائق مضت, amen bakr said:

لكن لدي مشكله اذا اضفت خلايا للعامود بدون تسجيل قيمه بداخلها فانه يقوم بحساب الخلايا الفارغه ايضا كيف يمكن ان اجعله لا يحسب الخلايا الفارغه ايضا عند تلوين خليه باللون لا يظهر العدد الا عند الضغط على سطر الاوامر ليقوم بالتنفيذ ولا يقوم بالتنفيذ مباشر

لم أفهمها بالضبط ..

تقصد أنه لو جعلنا مثلاً الخلية B17 باللون الأحمر ولكنها فارغة من غير قيمة ، فإن الوضع الحالي سيحسب عددها مع الخلايا باللون الأحمر . وأنت تريد أن يقوم بالعد إذا كانت الخلية غير فارغة ؟؟؟؟؟

أرجو التوضيح بشكل أكثر

43 دقائق مضت, amen bakr said:

السلام عليكم

وعليكم السلام ورحمة الله وبركاته ,,

طبعاً قبل البدء بطرح الحل ، وجب التنبيه إلى ضرورة أن تكون الأرقام في الخلايا التي بها اللون تطابق نفس اللون للخلايات التي سيكون لها التعداد ..

الدالة بسيطة كالتالي ضعها في مديول ..

Function CountByColor(rng As Range, clr As Range) As Long
    Dim c As Range
    Dim cnt As Long
    cnt = 0
    For Each c In rng
        If c.Interior.Color = clr.Interior.Color Then
            cnt = cnt + 1
        End If
    Next c
    CountByColor = cnt
End Function

ثم الإستدعاء بالشكل التالي مع حرية تحديد النطاق وخلية اللون :-

=CountByColor(B7:B100, A2)

الملف بعد التطبيق :-

111.xlsm

31 دقائق مضت, jjafferr said:

فقمت بتعديل جميع VBA7 في البرنامج الى VBA7 And Win64 ، فاشتغل البرنامج

شكراً لك استاذي جعفر على لفت الإنتباه لهذه النقطة ، سآخذها بعين الإعتبار مرجعاً لي 😇 .

32 دقائق مضت, jjafferr said:

وعند اغلاق البرنامج ، قفل الاكسس ما كان يختفي

أعتقد بعد تجربتي على أكثر من جهاز لم يظهر لي هذا الخطأ بعد إيقاف المؤقت قبل اغلاق القاعدة ، كما ذكرت في النقطة .

KillTimer 0, hTimer

ولكن لا يمنع أخذ الإحتياط لكافة الإحتمالات 😇 .

قد يكون كذلك ، كانت عندي النقطة المفصلية أنك جعلت rgb As LongPtr في حالة VBA7 ، وهذا غير صحيح لأن اللون ليس Pointer 🤔 . وباعتقادي أن الصحيح هو بقاء rgb As Long دائماً ، بينما الـ Hwnd هو الذي يتغير بين Long و LongPtr .

لم أجرب تعديلك لتأكيد وتصويب معلومتي ، فعذراً منكم أستاذي جعفر 😇 .

36 دقائق مضت, jjafferr said:

rgb

أليس هذا ما يمثل اللون المختار ؟؟

فكيف نحدده على انه LongPtr 🤔 !!

مقصدي أن :-

* المتغير rgb يظل Long لأنه مجرد قيمة لون ( 32‑بت ) .

* المتغير Hwnd يجب أن يكون LongPtr في بيئة 64 لأنه مؤشر .

* يجب أن يكون هناك تطابق بين تعريف الـ API وتعريف الدالة .

هذا على حد علمي 😇 ، والله أعلم .

الإصدار الأول ( لا أعتقد أنه النهائي 😁 ) من اللعبة المطورة لعبة النباتات ضد الثعبان 2026 .. كما رأيتم في الفيديو والصور التي تم طرحها في بدايات تأسيس اللعبة ، هي تجسيد للعبة الثعبان الشهيرة ولكن بنكهة فوكشية خنفشارية ..

 كيفية اللعب :-

1️⃣ التحكم سيكون بمفاتيح الأسهم في لوحة مفاتيحك ، لتتحكم بحركة الثعبان في الإتجاهات الأربعة .

2️⃣ عليك ان تجمع أكبر نتيجة من اكل التفاح الأحمر .

3️⃣ هناك في ساحة اللعبة تم إضافة مساعدات وأدوات إعاقة ممتعة تتلخص بما يلي :-

التفاحة الحمراء = وتعطي اللاعب 10 نقاط ، وتزيد من طول الثعبان .

التفاحة الخضراء = وتعطي اللاعب 50 نقطة ، أيضاً تزيد من طول الثعبان .

كيس النقود = ويعطي اللاعب 100 نقطة مكافأة 💰 .

شعلة النار = تعطي اللاعب 80 نقطة ، ووظيفتها تجميد حركة الوحش في اللعبة 😈 .

إكسير التجميد = يعطي اللاعب 50 نقطة ، ووظيفته تجميد حركة النبتة التي تقذف القنابل 🥶 .

القنبلة الأرضية = تعطي اللاعب 30 نقطة ، ووظيفتها تفجير صخور الإعاقة التي تعيق حركة الثعبان 💥 .

القلب = لا يعطي أي نقاط ، ولكنه يقوم بزيادة عدد أرواح الثعبان في اللعبة ( بحد أقصى 3 أرواح ) ❤ .

البوابات السحرية = أيضاً لا تعطي نقاط ، ولكنها تقوم بنقل الثعبان من مكان إلى مكان آخر ( حسب ظهور البوابات ) 🕳 .

التاج الملكي 👑 = لا يعطي أي نقاط ، ولكن عند ظهوره في المستوى الـ 20 ( آخر مستوى في اللعبة ) ، فإنه يقوم بإنهاء اللعبة وإعلان الفوز . طبعاً سيظهر في مكان عشوائي ، وعلى الثعبان أكله حتى تنتهي اللعبة .

أما المعوقات ، فاكتشفوها بانفسكم 😉

:-

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

🔴 مفتاح Esc وظيفته أيقاف اللعبة مؤقتاً ، ونفسه للإستمرار 😎 .

 🔴 سهواً سقطت مني الجملة :-

KillTimer 0, hTimer

في حدث عند الإغلاق للنموذج Frm_Game ، ليصبح الحدث :-

Private Sub Form_Close()
    On Error Resume Next
    Form_SetComposited Me, False
    KillTimer 0, hTimer
    DoCmd.Quit
End Sub

وفي الختام أترككم مع تجربة اللعبة مفتوحة المصدر .. فقط استخدم مفتاح الشيفت إن أردت قراءة الأكواد أولاً قبل اللعب 😁 .

 Plants VS Snake.zip 

على حسب علمي أن الـ MsgBox سعته بالكاركتر الإنجليزي 1024 حرف ، ولا إعلم 100% إن كان حساب الحرف العربي = نفس حساب الحرف الإنجليزي ، أي 1024 حرف عربي . طبعاً المسافة تحسب حرف والرموز حسب قيمته البرمجية في آكسيس .

وبالتالي أعتقد أن أفضل طريقة هي نموذج يقوم بمقام الرسالة كما تم في مشاركاتكم . وأيضاً المسج الطويل لا أعتقد أنه فكرة جميلة عندما يكون النص طويلاً ..

( وجهة نظر عابرة ) 

بفضل الله تعالى تم ضبط كافة الأمور المتعلقة بظهور المساعدات والحواجز في اللعبة ، وسيتم إرفاق الملف الليلة بإذن الله تعالى..

منذ ساعه, Moosak said:

جمال .. وتحفة فنية .. تبارك الله 😊✌

من فضل الله تعالى بشمهندس موسى ..

إجاباتي بشكل مختصر ..

منذ ساعه, Moosak said:

1- القضاء على الترميش بشكل نهائي ..

الترميش بشكل 95% تم القضاء عليه ، وما في الصورة هو من جهازي في العمل .

منذ ساعه, Moosak said:

2- تدوير الصور .

إزاي تخدع آكسيس 😂 ، هنا يكمن السر التافه في آكسيس ..

منذ ساعه, Moosak said:

3- تحريك أكثر من عنصر في نفس الوقت بشكل تفاعلي عجيييب .

استخدام التايمر بدون التايمر 😁 ,, هنا القصة الجميلة التي ستكتشفونها بأنفسكم ..

منذ ساعه, Moosak said:

أفكار شاطحة خارج الصندوق .. تستحق وسام الإبداع بحق 😊👌

بانتظار سماع أفكاركم مهندسنا 😉

39 دقائق مضت, kkhalifa1960 said:

كودك صحيح من ناحية التركيب والمنطق

حاولت فعلاً أن أستنبط فكرتكم بكل صدق لأثري معلومتي . وكانت تجربتي أن الفكرة على الإصدار 64 لا تعمل للأسف ، ولكنها تعمل على الإصدار 32 فعلاً .. وهذا توضيح لمقصدي .

وعليكم السلام ورحمة الله وبركاته ..

هذا الهدف الذي يأتي في الثواني الأخيرة من الوقت الإضافي للشوط الثاني 😂 ..

جميل جداً بشمهندس موسى ، ومشاركة وشرح جميلين ..  ..

غفر الله لك و لوالديك ، ولنا و والدينا أجمعين 🤲

16 دقائق مضت, M.Abd Allah said:

طبعا صوتك حلو 🤣🤣

اوعى تكون بتعاكسني 

17 دقائق مضت, M.Abd Allah said:

لا مش كده يا عزيزي  الناس بتنتظر اغلب الوقت هدايا او قوالب جاهزه ( يعني بمجرد متخلص ان شاء الله وتنزل بالمرفق ) هتلاقي التعليقات كتير 

خلاص يا عم .. أول ما أخلص فحص وتجارب ، هنزلها هنا ومفتوحة المصدر كمان 😛

17 دقائق مضت, M.Abd Allah said:

تبقي غلطان يا عزيزي الموضوع ماشاء الله مجزي 

برضو ده آخر همي حالياً .. عايزني أروح أشتغل معاهم وأقفل على نفسي جميع مشاريعي 😂

56 دقائق مضت, M.Abd Allah said:

كمان ملونه وفيها عدد محاولات وقلوب 

ولسه فيها حاجات كتير كمان ..

قلت نسمع أفكار الناس اللي بتمر من هنا ، ما سمعتش غير صدى صوتي 🤣 ..

قلت وماله ؛ صوتي حلو 😎

أما موضوع مايكروسوفت ، فأنا مش موافق حتى لو عرضوا علي الشغل معاهم ,, تخيل 🤣 ...

في 29‏/4‏/2026 at 11:45, M.Abd Allah said:

ولها ذاكريات معانا جميعا 

 

دي آخر مرحلة في الوقت الحالي  

وعليكم السلام ورحمة الله وبركاته ..

تفضل أخي جو التعديل كالآتي :-

Option Compare Database
Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As LongPtr, ByRef rgb As Long)
#Else
    Private Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As Long, ByRef rgb As Long)
#End If

Function DialogColor(ByVal InitialColor As Long) As Long
    Dim lngColor As Long
    lngColor = InitialColor
    Call ChooseColor(Application.hWndAccessApp, lngColor)
    DialogColor = lngColor
End Function

ملفك المرفق .. جربه وأخبرني

Database1.accdb

أعمال مميزة ، ومشاركات جميلة ومفيدة من الأساتذة @Ahmedgamall و @Barna .. 

في مساء يوم ، جاءني ضيف لحوح اسمه ( الملل  ) ، وجلسنا نتسامر ونتحاور ونتشاور ، حتى خرجنا بالفكرة الموضحة في الصورة التالية :-

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

 سيتم طرح لعبة الثعبان كما لم تعرفوها من قبل 

 وشكراً لكل من شارك أو مر من هنا 

⏳  باقي من الوقت : 4 أيام حتى نهاية التحدى الثاني

وسيتم إغلاق كتاب التحديات