لعبة Snake مبرمجة على الاكسل

[شوقي ربيع]

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

Snake__Games.rar

تم تعديل نوفمبر 23, 2013 بواسطه دغيدى

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

السلام عليكم

 

 اخي الحبيب / شوقي ربيع............حفظكم الله

.اكرمكم الله  في الدارين وجزاكم خيرا وبارك فيكم

 

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

[ياسر خليل أبو البراء]

بارك الله فيك أستاذ / شوقي ربيع

 

بس اللعبة سريعة جدا ممكن تكون أبطأ شوية (مش عارف ألعبها اتعقدت)

[أم عبد الله]

أستاذنا الفاضل / شوقي ربيع

 

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

 

حمد لله على السلامة. جزاكم الله خيراً على هذه اللعبة الجميلة ورائع جداً هذه اللعب التي تبرمج بالاكسيل وكما قال أستاذنا الكبير / ياسر خليل أن اللعبة سريعة جداً أو لقلة خبرتي بالألعاب لا أدري. عموماً ألف مليون تحية لهذا الإبداع الجميل من حضرتك. جزاكم الله خيراً وجعل جميع أعمالكم في ميزان حسناتكم.

تم تعديل نوفمبر 23, 2013 بواسطه دغيدى

[saad abed]

اخى شوقى

حمدا لله على سلامتك

كل اعمالك بها افكار جميله

وفقك الله

[يوسف السيد]

ما شاء الله ... اعمالك كلها تحف فنية نادرة 

[ابو اياد ( الاسيوطى )]

الابداع هو شوقى ربيع

بعد التجربه المبهره اللعبه جميله جدا واعتقد انها ليست سريعه جدا بل معقوله خصوصا فى المستوى الاول وهى الجديد من اللعبه ذات الحواجر

 

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

بارك الله فيكم

وانتظر النسخه الاخرى 

[أبو حنــــين]

السلام عليكم

جزاك الله خيرا اخي ربيع شوقي على هذا العمل المميز

[مجدى يونس]

الاخ ربيع شوقى

فكرة رائعة فعلا وعمل مميز

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب شوقي ربيع جزاك الله خيرا

عمل رائع وفقك الله ورضي عنك وارضاك

تقبل فائق احترامي وتقديري

[إبراهيم ابوليله]

اخى واستاذنا شوقى

بارك الله فيك

موضوع جميل

فيه جهد كبير

من استاذ اكبر بكثير

نسأل الله لك دوام الصحه

وبركه فى العمر

وزياده فى العلم

[حمادة عمر]

السلام عليكم

الاخ الحبيب / شوقي ربيع

بارك الله فيك

بالفعل لعبة جميلة جدا جدا

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

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

من طالت غيبته جاب الغنايم

استاذ وملك الحركات بالفعل ليس فقط في الفورم بل في الاكواد والموديلات ايضا

 

تقبل خالص تحياتي

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

تم تعديل نوفمبر 24, 2013 بواسطه حمادة عمر

[شوقي ربيع]

السلام عليكم

 

 اخي الحبيب / شوقي ربيع............حفظكم الله

.اكرمكم الله  في الدارين وجزاكم خيرا وبارك فيكم

 

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

السلام عليكم

الاستاد القدير عبد الله باقشير جزاك الله خيرا لدعائك الجميل

وأنت اسنادنا تتساهل كل الخير

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

[شوقي ربيع]

 

بارك الله فيك أستاذ / شوقي ربيع

 

بس اللعبة سريعة جدا ممكن تكون أبطأ شوية (مش عارف ألعبها اتعقدت)

 

السلام عليكم

شكرا لمرورك العطر

اما بخصوص سؤالك حول سرعة اللعبة فأضن انها السرعة المناسبة بالنسبة لي

ولاكن ان اردت تبطيئها اذهب الى محرر الاكواد تجد كود Tamer كا الاتي

Sub Tamer()
vitesse = 0.01
If Start = True Then
timer_avant = Timer
Do While Timer < timer_avant + vitesse
DoEvents
Loop
End If
End Sub

غير في  vitesse  اجعله يساوي 0,1 مثلا

فكلما كان الرقم أكبر بطئة سرعة اللعبة أكثر

تقبل تحياتي 

 

[شوقي ربيع]

السلام عليكم

جازكي الله كل الخير اختي الفاضلة  أم عبد الله وشكرا جزيلا لدعواتك الجميلة

اما بخصوص سرعة اللعبة شاهدي الرد السابق

تقبلي تحياتي وتقديري

[شوقي ربيع]

 

 

السلام عليكم

الاستاد سعد عابد

يشرفني ويسعندي دائما مرورك العطر

لك مني فائق الاحترام والتقدير

 

[شوقي ربيع]

السلام عليكم
الاخ يوسف السيد
اخجلتم تواضعنا بكلماتكم الجميلة
تقبل تحياتي وشكري 

[شوقي ربيع]

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

[شوقي ربيع]

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

[شوقي ربيع]

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

[شوقي ربيع]

لسلام عليكم 
الاخ العزيز ابو محمد
جزاك الله خيرا لمرورك ولعبراتك الجميلة 
تقبل تحياتي وشكري 

[شوقي ربيع]

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

[شوقي ربيع]

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

[شوقي ربيع]

ملا حضة بخصوص اللعبة
ربما لم أعطي الاعبة حقها من الشرح  في بداية الموضوع لذى

- اللعبة مكونت من اربعة  مستوايات كل مستوى اصعب من الاول  والانتقال بينها لا يتم الا بائتما المستوى الذي قبله
وهذه صور للمستوايات الاربعة

كما ان المستويات مصممة في فورم واحد وليس كل مستوى  في فورم منفصل
فلو تلاحظ في ميودل المستويات(ModNiveau) تلاحظ اني برمجت موقع كل كائن على حدى ليأخذ مكانه داخل الفورم
ربما تتسائلون كيف فعلت ذالك هل أخذة المعلومات الخاصة ب top   و left
كل واحد على حدى لا ذالك كثير ويتطلب وقت كبير لذى صممت كود بسيط يجلب لي بينات الازمة لكل مستوى بضغطة زر
او ان صح التعبير كما سميته (كود أخذ صورة للاكواد)

Dim Ur As New Collection
Dim UrlName, AllUrl As String
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Controls
Ur.Add "UserForm1." & Ctrl.Name & ".Visible=" & Ctrl.Visible & " : " & "UserForm1." & Ctrl.Name & ".top = " & Ctrl.Top & " : UserForm1." & Ctrl.Name & ".left = " & Ctrl.Left
Next
AllUrl = ""
For Each UrlName In Ur
AllUrl = AllUrl & UrlName & vbCrLf
Next
Me.TextBox1.MultiLine = True
Me.TextBox1.Text = AllUrl
End Sub

كل ما علي هو النسخ واللصق بسيط اليس كذالك

 

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

[شوقي ربيع]

هذا ملف معدل لللعبة

مخففة السرعة لمن لم يستطع مجارات الملف الاول

Snake__GamesvItase.rar