النتائج 1 إلى 5 من 5

الموضوع: برنامج بسيط لأستخدام أدوات الشرط ...... If then

  1. #1
    عضو سوبر نشيط
    تاريخ التسجيل
    Dec 1999
    المشاركات
    799


    مرحبا ...

    هذا البرنامج يوضح طريقة عمل If Then في الفيجوال بيسك ..

    اولا نبدأ بمشروع جديد .... ونختار من الأدوات زر Command واثنين Text
    ونضعهم على الفورم بطريقة مرتبة ....

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

    دبل كليك على زر Command ونكتب هذا الكود بداخلة ...

    <BLOCKQUOTE><font size="1" face=" Arial">code:</font><HR><pre>
    If Text1.Text &lt; 10 Then
    "جيد" = Text2.Text
    ElseIf Text1.Text &gt; 10 And Text1.Text &lt; 20 Then
    "جيد جدا" = Text2.Text
    Else
    "ممتاز" = Text2.Text
    End If
    [/code]

    طبعا نكتب العدد في Text1 وعند الضغط على زر Command تظهر النتيجة على Text2

    في السطر الأول if وهي أداة الشرط وتشترط هنا أن Text1 وهو الأول يكون أصغر من العدد 10 ....اذا كان العدد المدخل كذلك فتقوم Then باظهار النتيجة وهي
    طباعة العبارة جيد في Text2 ....
    اذا كان العدد ليس كذلك ننتقل الى Elseif وتشترط هنا أن يكون العدد أكبر من 10 و أصغر من 20 .....
    اذا كان كذلك فتعمل Then على طباعة العبارة جيد جدا.....
    اذا كان ليس كذلك فنتقل الى Else وهي تعني أي شي غير الشرطين السابقين ....
    يعني أي عدد أكبر من 20 .. فتكون النتيجة طباعة العبارة ممتاز في Text2
    في الأخير End if وهي لأغلاق نهاية الشرط if


    أرجو ان أكون قد وفقت في ايصال المعلومة

    ------------------
    ســـامر الليـــــــل

    [b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; Vampire &nbsp; يوم &nbsp; 29-01-2000]





    Vampire غير متواجد حالياً


  2. #2


    شكراً لك ..
    (وين انت؟؟؟)





    نيسان غير متواجد حالياً

  3. #3


    مشكور على هذا الدرس وبصراحة أستفدنا من الكود كثير في ايضاح الدرس


    ------------------
    أن التقنيات ليس ثابتة أو منتهية والتلميذ الذي يتعلم مجموعة من المهارات الميكانيكية فقط سرعان مايجد نفسه متخلفا في عالم متغير أما الشخص الذي يتعلم الأساسيات وطرق الإبداع الفكري فإنه يستطيع أن ينمو ويساير الزمن








    حمودومحيميد غير متواجد حالياً

  4. #4
    عضو سوبر نشيط
    تاريخ التسجيل
    Dec 1999
    المشاركات
    799


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

    أخي حمود (معليش أحب أختصر)
    قلتلي انك راح ترسلي رسالة على البريد ... ماوصلني شي لحد الحين
    عسى ماشر ؟؟؟

    ------------------
    ســـامر الليـــــــل





    Vampire غير متواجد حالياً

  5. #5


    أخوي Vampire سأرسل لك رسالة على هذا البريد
    V2000@flashmail.com
    أنتظر مني رسالة اليوم إن شاء الله - لاني لما كتبت الرد هنا انقطع خط الهاتف لمدة أربع أيام . ولم أستطع أرسال الرسالة ولا كتابة الردود


    ------------------
    أن التقنيات ليس ثابتة أو منتهية والتلميذ الذي يتعلم مجموعة من المهارات الميكانيكية فقط سرعان مايجد نفسه متخلفا في عالم متغير أما الشخص الذي يتعلم الأساسيات وطرق الإبداع الفكري فإنه يستطيع أن ينمو ويساير الزمن








    حمودومحيميد غير متواجد حالياً





ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

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