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

أسامة حسانين

02 الأعضاء
  • Posts

    28
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه أسامة حسانين

  1. أخي مجدي

    مش واصلني الفكرة. هوا بينتقل في شاشات عشوائية وليست بترتيب واحد . لو بصيت على الكود الموجود على ال button

    
    With SlideShowWindows(1).View
    
    .GotoSlide ((Windows(1).Presentation.Slides.Count - 1) * Rnd + 2)
    
    End With
    
    

    فيه العدد الإجمالي للشرائح (Windows(1).Presentation.Slides.Count) وتخليق الرقم العشوائي Rnd في حدود الشرائح من 2 إلى عدد الشرائح-1

    معلش فهمني تاني

  2. السلام عليكم

    جرب المرفق

    ممكن تغيير مكونات الكومبو من على VB

    دوس موس يمين على combobox

    view code

    عندك 2 موديول

    
    Private Sub ComboBox1_DropButtonClick()
    
    
    تضيف فيه أسماء ال Items عن طريق
    
    .AddItem "إسم "
    
    
    وبعدين توديه لأاي شريحة
    
    Private Sub ComboBox1_Click()
    
    
    تضيف
    
       Case "إسم"
    
    		.GotoSlide (2)   ------> رقم الشريحة
    
    

    جرب وقولي

    Combo.rar

  3. السلام عليكم

    أنا عملت تعديل يمكن يفيد.

    - أولاً إضافة شاشة ثابتة في الأول (مش عشوائية)

    - إضافة Button فيالشريحة الماستر ، وهوا ده اللي بيعد الشرائح count وبيوديك على الشريحة العشوائية .

    - بس إنت هتستخدم المواس عادي داخل الشريحة لتحريك الobjects فقط بس لما تحب تروح للشريحة التالية إضغط على Button الموجود بالأسفل.

    المشكلة اللي هتحصل لما تنقر الماوس أكثر من اللازم ينقلك إلى الشاشة التالية وليست العشوائية.

    ممكن المشكلة دي تتحل بس محتاجة برمجة أكثر.

    وشكراً

    BS.rar

  4. السلام عليكم

    أنا عملت ملف رئيسي وثلاث ملفات فرعية موجودة بالمرفقات

    main.pptm:

    ده ملف الواجهة الرئيسية وموجود أزرار تقفل الملف الرئيسي وتفتح الملفات الأول والثاني والثالث.

    ويوجد بالملفات الفرعية زرار خاص بالعودة للملف الرئيسي وقفل الملف الفرعي

    ملاحظة برجاء جعل الملفات موجودة في فولدر واحد

    أنا أفترض إنه يمكنك تعديل الكود

    أنا جاهز لأي إستفسار / تعديلات

    Present.rar

  5. السلام عليكم

    بالنسبة للجزء الأول من السؤال من حيث إجبار المستخدم الكتابة بصيغة الوقت (24 ساعة) - برجاء مراجعة المرفق

    بالنسبة لإستيراد البيانات لم أفهم الغرض هل تقصد نسخ الساعة إلى التيكست بوكس؟

    في الملف المرفق لايمكن عمل لصق البيانات إلا في صورة وقت.

    Time textbox.rar

  6. جزاكم الله خير وشكراً على المرور

    إيه رأيكم نشرح فكرة اللعبة وذلك لتعم الفائدة

    الفكرة الأساسية هي تحويل الرقم إلى رقم ثنائي Binary

    ممكن تحويل الرقم العشري إلى رقم ثنائي عن طريق دالة ()DEC2BIN

    الرقم 100 = 1100100

    الرقم 99 = 1100011

    الرقم 50 = 0110010

    الرقم 10 = 0001010

    الرقم 1 = 0000001

    مع ملاحظة تثبيت عدد الأرقام إلى 7 بالدالة(" Text(A1,"0000000

    ملاحظة العدد 7 هو طول الرقم 100 وعدد شاشات الأسئلة باللعبة

    بعد ذلك يتم كتابة الرقم بالمقلوب

    الرقم 100 = 1100100 = 0010011

    الرقم 99 = 1100011 = 1100011

    الرقم 50 = 0110010 = 0100110

    الرقم 10 = 0001010 = 0101000

    الرقم 1 = 0000001 = 1000000

    الأن سنظهر في الشاشة الأولى الأرقام التي يكون أول رقم من اليسار 1

    يعني في المثال السابق سوف يظهر الأعداد 99 و 1

    في الشاشة الثانية سوف يظهر الأرقام التي يكون ثاني رقم من اليسار 1

    بعني في المثال السابق سوف يظهر الأعداد 99 و 50 و 10

    وهكذا في السبع شاشات

    عند إجابتك في كل شاشة ب Yes or No تقوم بكتابة الرقم الثنائي

    حيث Yes = 1

    و No=0

    بتجميع الإجابات تحصل على رقم ثنائي Binary مقلوب

    وعند عكس الرقم يمكن تحويله ثانياً إلى رقم عشري هو السن المطلوب

    أتمنى أن تكون الفكرة وصلت

  7. السلام عليكم

    ممكن الترتيب عن طريق عمود ثاني به المعادلة التالية

    1- نفصل الحرف الأول

    left("A11") = "A"

    2- نفصل الرقم ونضعه في عدد محدد من الأرقام

    mid("A11",1,4) = "11"

    3- نجعل الرقم يأخذ الطول 4

    text("11","0000") = 0011

    4- نعيد ربط الخطوة الأولى والثالثةعن طريق &

    فتكون النتيجة A0011

    5- وبتطبيق المعادلة على العمود يمكن الفرز على العمود الجديد

    المعادلة كاملة

    LEFT(E9,1)&TEXT(MID(E9,2,10),"0000")=A0011

    مرفق التطبيق

    أتمنى أن تكون في الصورة المطلوبة

    وشكراً

    تسلسل1.rar

×
×
  • اضف...

Important Information