شوقي ربيع

شكرا لمرورك وجزاك الله خيرا

هذا ملف معدل لللعبة مخففة السرعة لمن لم يستطع مجارات الملف الاول Snake__GamesvItase.rar

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

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

ملا حضة بخصوص اللعبة ربما لم أعطي الاعبة حقها من الشرح في بداية الموضوع لذى - اللعبة مكونت من اربعة مستوايات كل مستوى اصعب من الاول والانتقال بينها لا يتم الا بائتما المستوى الذي قبله وهذه صور للمستوايات الاربعة كما ان المستويات مصممة في فورم واحد وليس كل مستوى في فورم منفصل فلو تلاحظ في ميودل المستويات(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 كل ما علي هو النسخ واللصق بسيط اليس كذالك - تشغيل اللعبة يتم فقط بمفاتيح لوحة التشغيل اذا لا حظة عدم اشتغال المفاتح ماعليك الا بالضغط داخل اللعبة بالماوس - في الواجهة الاولى للعبة تلاحظ وجود اعلى خمست قيم مسجلة وذالك يتم اوتوماتيكيا أخيرا مبدأ اللعبة بسيط جدا فهي تعتمد على الحلقات التكرارية لا غير والقليل من الذكاء والحيلة ارجو ان لا اكون قد اثقلت عليكم تحياتي للجميع

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

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

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

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

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

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

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

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

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

السلام عليكم شكرا لمرورك العطر اما بخصوص سؤالك حول سرعة اللعبة فأضن انها السرعة المناسبة بالنسبة لي ولاكن ان اردت تبطيئها اذهب الى محرر الاكواد تجد كود 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 مثلا فكلما كان الرقم أكبر بطئة سرعة اللعبة أكثر تقبل تحياتي

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

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

السلام عليكم هذا رابط احد موضيعي خاص بتفعيل عجلة الماوس في الفورم لليست بوكس والكومبوبوكس تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس

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

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

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

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

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

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

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