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

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


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

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

Snake__Games.rar

تم تعديل بواسطه دغيدى
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

 

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

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

 

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

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

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

 

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

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

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

 

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

 

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

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

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

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

 

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

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

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

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

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

بارك الله فيك

موضوع جميل

فيه جهد كبير

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

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

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

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

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

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

JKx4r.jpg

 

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

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

تم تعديل بواسطه حمادة عمر
رابط هذا التعليق
شارك

السلام عليكم

 

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

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

 

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

السلام عليكم

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

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

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

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

 

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

 

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

 

السلام عليكم

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

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

ولاكن ان اردت تبطيئها اذهب الى محرر الاكواد تجد كود 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 مثلا

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

تقبل تحياتي 

 

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

post-84094-0-15969000-1385316658_thumb.p

post-84094-0-58433600-1385316667_thumb.p

post-84094-0-88692700-1385316675_thumb.p

post-84094-0-52346800-1385316684_thumb.p

كما ان المستويات مصممة في فورم واحد وليس كل مستوى  في فورم منفصل
فلو تلاحظ في ميودل المستويات(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


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

 

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

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

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

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



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

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

Important Information