اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

ولكن

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

وانما لنتعلم

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

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

في هذا العمل

 

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

 

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

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

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

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

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

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

كيف ذلك ؟

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

 

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

تعديل بسيط

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

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

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

  • Like 4
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

بالنسبة للتحكم في الليبلات 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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

بالدالة MyIndex

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

بالكود kh_Test

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

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

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

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

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

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

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

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

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

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

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

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

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

ملف 2003/2007

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

  • Like 1
رابط هذا التعليق
شارك

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

اخوك محمد

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

رابط هذا التعليق
شارك

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

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

ابو انس

habibdar

نزاهة

الشهابي

نادر

jazea

يحياوي

الحسامي

احمد زمان

طاهر

احمد حمور

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

نعم ممكن

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

امر لكل نيبل

او

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

ما شاء الله

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

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

http://excelgames.org

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information