أسامة حسانين

مجهود رائع ممكن أضيف لك إضافة صغيرة ممكن أن نحدد الكتابة في text box لأرقام فقط وذلك بإضافة الكود التالي ل TextBox1 ------------------------------------------------ Private Sub TextBox1_Change() If Not IsNumeric(Right(TextBox1, 1)) Then SendKeys "{BS}" End If End Sub ------------------------------------------------- وهي تختبر آخر حرف المدخل إذا لم يكن رقم يتم عمل مسح خلفي Backspace عندي فكرة أخرى: بالنسبة للآرقام المستخدمة في عمليات الضرب يمكن تغييرهم عن طريق تحويلهم ل Combo Box أو List Box وبذلك ممكن الإستفادة من الشريحة لأي مجموعة أرقام

السلام عليكم أتمنى أن لا تكون الإجابة قد وصلتك متأخرة أعتقد إنك لن تحتاج إلى كود الخطوة الأولى: slide Show / Setup Slide Show من show type/Browse at a kiosk (full Screen مع هذا الإختيارلا يمكن عمل Next أو prev إلا من خلال أزرار المثال في الملف المرفق والشرح كالتالي: 1- الشريحة الأولى يوجد بها زر الذهاب للتالي. 2- الشريحة الثانية (يتم إخفاءها) وهي خاصة برسالة إجابة خطأ وتكون مظبوطة على توقيت (3 ثواني مثلاً) وتذهب للشريحة التالية animation/ِadvance silde/automatically after 3- الشريحة الثالثة الخاصة بالسؤال الأول - عند عمل next من الشريحة الأولى يتم الذهاب مباشرة إلى الشريحة الثالثة (الشريحة الثانية مختفية) - الزر الخاص بالإجابة الخطأ يذهب إلى الشريحة الثانية وتظهر الرسالة لمدة 3 ثواني وتذهب ثانياً غلى الشريحة الثالثة - الزر الخاص بالإجابة الصحيحة يذهب إلى الشريحة الرابعة (مماثلة للشريحة الثانية ) وبعد 3 ثواني يذهب إلى الشريحة الرابعة السؤال التالي - الزر الخاص next يذهب إلى الشريحة الخامسة مباشرة - الزر الخاص prev يذهب إلى الشريحة الأولى أتمنى أن تكون قد وصلتك الفكرة وأن معاك لأي إستفسار أو فكرة أخرى Presentation1.rar

هذه أول مشاركة لي أتمنى أن تعجبكم الملف المرفق به ساعة بالباوربوينت يمكن تشغيلها وإيقافها وضبطها. للتشغيل لابد من تفعيل عمل الماكرو الكود مفتوح للإفادة لأي إستفسار أو مساعدة أنا جاهز Clock.rar