اول لعبة اقوم بانجازها على فورم الاكسل

[عبدالله باقشير]

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

هي لعبة معروفه لديكم

ولكن

هذا العمل لم ينجز من اجل عيون اللعبة

وانما لنتعلم

وهو نفس عمل آلية الحروف المعمولة في ملف شرح دوال الاكسل

ستجدون الكثير من الاسئلة التي تحتاج الى اجابة

في هذا العمل

 

ضعوها هنا لنرد عليها

 

ساعطيكم انا اول سؤال

فان لم اجد اجاية ساجيب لاحقا

لدينا 24 ليبل لاظهار ما تروه امامكم من صور

ولا يوجد اي امر يستخدم من احداث هذه الليبلات

لا عبر الفورم ولا عبر موديل كلاسس

ولكن عند الضغط على الليبل يتحقق حدث معين

كيف ذلك ؟

ودمتم في حفظ الله

 

==================================

تعديل بسيط

افي المرفق ملف اكسل 2003و2007

لعبة التركيز1.rar

لعبة التركيز.xls

[عبدالله المجرب]

السلام عليكم

يسعدني ان اكون اول من يرد على هذه اللعبة الخبورية والتعليق بعد التجربة

[طارق محمود]

السلام عليكم

كلما أحسست انني تعلمت شيئا

تفاجأني أخي واستاذي ببحر علمك ،

زادك الله من فضله

ورزقك حتي يرضي

وجعل ذلك في ميزان حسناتك

أنا أنتظر الرد علي السؤال الذي طرحته

[مجدى يونس]

رائع اخ خبور زادك الله من علمه

[ابو الآء]

استاذى الكبير

بارك الله فيك

[الانيس]

عمل رائع

الاكسل يعمل اشياء لم تكن على البال

مبروك على هذا الانجاز الاول من نوعه

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ عبدالله على هذه الروائع

بالنسبة للتحكم في الليبلات 24

عن طريق ليبل LabelEvent

لاكن ماهيا الالية لااعلمها

وانما استخدمت هذا الكود لاحرك مكان ليبل LabelEvent

في الفورم وقت التنفيذ ازحته عن بقية الليبلات اضغط على احد المربعات لايظهر الصور

Dim C_ALI As Boolean

Private Sub UserForm_Initialize()

    C_ALI = False

End Sub

Private Sub LabelEvent_Click()

    If C_ALI = True Then

	    C_ALI = False

	    Else

	    C_ALI = True

    End If

End Sub

Private Sub LabelEvent_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If C_ALI = True Then

	    LabelEvent.Left = LabelEvent.Left + X

	    LabelEvent.Top = LabelEvent.Top + Y

    End If


End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If C_ALI = True Then

	    LabelEvent.Left = X

	    LabelEvent.Top = Y

    End If

End Su

واما اللغز في التحكم الفعلي لااعلم

[abouelhassan]

ابهرتنا استاذ عبدالله خبور الخير

ما هذا انه درب من الخيال

رائع

بارك الله فيك

[عبدالله باقشير]

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

جمعة مباركة على الجميع

اخي الحبيب / عبدالله -حفظك الله و جزاك الله خيرا

-----------------------------------------------

اخي الحبيب / طارق -حفظك الله و جزاك الله خيرا

الجواب: كما قاله ابو انصار

جعلنا الليبل LabelEvent

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

و لو جعلت خلفيته غير شفافة

ستلاحظ انه في الامام ولن ترى 24 ليبل لانها خلفه

عن طريق الضغط على الماوس على الليبل LabelEvent

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

بالدالة MyIndex

ويتم التعامل معه

بالكود kh_Test

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

---------------------------------------------

اخي الحبيب / مجدي يونس -حفظك الله و جزاك الله خيرا

اخي الحبيب / aboalaa-حفظك الله و جزاك الله خيرا

اخي الحبيب / انيس -حفظك الله و جزاك الله خيرا

اخي الحبيب / ابو انصار-حفظك الله و جزاك الله خيرا

لقد اصبت الهدف

عندك حب شغوف للتعلم مع ذكاء ملحوظ

اخي الحبيب / ابو الحسن -حفظك الله و جزاك الله خيرا

تقبلوا جميعا شكري وتقديري

ودمتم في حفظ الله

اضفت حركة بسيطة لتبسيط اللعبة

تفضلوا المرفق

ملف 2003/2007

لعبة التركيز1.rar

[أبو أنس حاجب]

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

حفظك الله ابداع وراء ابداع وان شاء الله دائما

ابو انس

[habibdar]

ما شاء الله عليك اخي خبور

لطالما عملت ابهرتنا بروائعك

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

[محمد السيد الشاطر]

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

اخوك محمد

[الشهابي]

أستاذنا الكبير أبو علي ( خبور خير ) إبداع لا نظير له

[naderwatfa]

الملف ده تحفة في الإكسيل

تسلم أفكارك أستاذ خبور

[الجازع]

استاذنا الكبير خبور الخير ماشاء الله تبارك الله

عمل متقن من عالم متمكن

[محمد يحياوي]

الاخ الحبيب خبور عمل رائع من استاذ نابغة الحقيقة وقفت منبهرا امام هذا العمل الممتاز و زدت حبنا في الاكسل لما له من قدرات مذهلة

امر اخر .... هل يمكن الاستغناء عن LabelEvent و التعامل مباشرة مع Labels الـ 24

[الحسامي]

السلام عليكم

انجاز يسجل في تاريخ الاكسل العربي

بارك الله فيك واتمنى لك دوام التقدم والنجاح

[احمدزمان]

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

استاذ خبور

دائما تبهرنا باعمال وافكار جديدة

جزاك الله كل خير

[ريان أحمد]

l بحر من العطاء بلا حدود فعلا

شكرا ملف رائع قمة في الدقة

بارك الله فيك وجزاك الله كل خير

[احمد حمور-ابوعبدالله]

عبدالله علي احمد باقشير (خبور خير

انت رائع حقا

ما شاء الله عليك علم وافر وغزير

[عبدالله باقشير]

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

اخواني الاحباء

ابو انس

habibdar

نزاهة

الشهابي

نادر

jazea

يحياوي

الحسامي

احمد زمان

طاهر

احمد حمور

حفظكم الله ورعاكم

======================

اعذروني لم استطع التعبير عرفانا لما اورتموه

من الكلام الطيب

اكرمكم الله وجزاكم خيرا في الدنيا والآخرة

======================

ودمتم في حفظ الله

[عبدالله باقشير]

الاخ الحبيب يحياوي حفظه الله

امر اخر .... هل يمكن الاستغناء عن LabelEvent و التعامل مباشرة مع Labels الـ 24

نعم ممكن

وسيكون الامر كالعادة

امر لكل نيبل

او

عن طريق موديل كلاسس

بحيث نعمل حدث جديد لكل هذه النيبلات في اسم واحد

سترى فورم التقويم الميلادي

لتعرف ان الاكواد المتشابهة بين العملين

ممكن تستخدمها لاي عمل مماثل

مع بعض التغييرات البسيطة

تقبل تحياتي وشكري

[skyblue]

شكرا استاذ خبور خير فأنت رجل لايأتي منك الا الخير رجل مبدع في كل اعمالك .

ندعوا الله لك بالخير والتوفيق دائما وان يجعلك الله تمشي بنوره

تحياتي لك

[قصي]

جزاك الله خيرا

[أ / محمد صالح]

ما شاء الله

رائع أخي خبور خير

وهذا رابط للإخوة هواة ألعاب الإكسل

http://excelgames.org