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

الموضوع: تعلم معنا VB

  1. #1
    عضو نشيط جدا
    تاريخ التسجيل
    Jan 2000
    المشاركات
    366


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

    الخطوات:

    1-شغل VB
    2-نوع المشروع stantard.exe
    3-من قائمة الادواتTools سنستخدم الاتي:
    *خمسة Label
    *ثلاثةPicture
    *اثنانComannd
    *اثنانText
    ------------
    4-سيكون وضعها على Form كالتالي:

    Comaan1

    Label3-----Label2-----Label1
    Pictuer3--Picture2--Picture1

    text1--Label3
    Text2--Label5
    Comannd2
    -----------------------------------------
    --------------داخلCaption:
    C1 ادخال البيانات
    L1 اسم المشترك
    L2 رقم هاتف المشترك
    L3 قيمة فاتورة المشترك
    P1,2,3 عبارة مستطيل فارغ منسدل للأسفل
    L4 المجموع
    L5 المتوسط
    T1,2 مربع نص فارغ
    C2 إغلاق البرنامج

    -----أنظر الشكل التالي:


    ادخال البيانات

    ----------اسم المشترك---رقم هاتف المشترك---قيمة فاتورة المشترك

    ----------مربع فارغ منسدل للأسفل--كالسابق--------كالسابق

    المجموع---نص فارغ
    المتوسط---نص فارغ
    اغلاق البرنامج

    -------------------
    5-كتابة الشفرة:
    سيكون كتابة الشفرة من نصيب Comannd1 ادخال البيانات
    وC2 إغلاق البرنامج.

    %Dim_ n%,nam$(100),tel(100),num(100),t,m!,i
    ("ادخل عدد المشتركين")n%=inputbox
    For_i= 1_to_n

    ("ادخل اسم المشترك")nam$(i)=inputbox
    (picture1.print_nam$(i

    ("ادخل رقم هاتف المشترك")tel(i)=inputbox
    (picture2.print_tel(i

    ("ادخل قيمة الفاتورة")num(i)=inputbox
    (picture3.print_num(i

    (t=t+num(i
    Next_i
    Text1=t

    m!=t/n
    !Text2=m
    ------------------------------
    شفرة الإغلاقC2
    End
    ------------------------------
    *ملاحظة (_) عبارة عن فراغ
    وارجو لي ولكم التوفيق إن شاء الله؛؛؛







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


  2. #2


    أخوي مجتهد تبغاني أسوي الدرس على صفحة ومدعوم بالصور وإلا لا


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








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

  3. #3


    درس حلو وممتع






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

  4. #4
    عضو نشيط جدا
    تاريخ التسجيل
    Jan 2000
    المشاركات
    366


    أخوي حمود ومحيميد سوي ولاتشاور
    وشكرا لك HOME





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

  5. #5


    أخوي مجتهد أشكر جهودك ، بس أعتقد إنك نسيت تكتب t=0 قبل ال for و إلا كانت نتيجة المجموع و المتوسط خاطئة..





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

  6. #6
    عضو نشيط جدا
    تاريخ التسجيل
    Jan 2000
    المشاركات
    366


    أخوي نيسان البرنامج خطواته صحيحه لكن المشكلة في أمكانياته
    وهي ادخال الارقام في مربعى رقم الهاتف وقيمة الفاتورة
    فأنصحك بعدم إدخال أكثر من ثلاثة أرقام في كلا المربعين
    وستجد النتيجة ممتازه،
    وإن شاء الله سأقوم بمعالجته في المستفبل
    وياليت توضح ماذا تقصد t=0 فبل Form





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

  7. #7


    أخوي مجتهد أعتقد أن في البرنامج خطا وهو picture لا يوجد له caption



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








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

  8. #8
    عضو نشيط
    تاريخ التسجيل
    Jan 2000
    المشاركات
    36


    كلام نيسان صحيح لا بد من تصفير (Initialize) أي متغير . تخيل ماذا سيحتوي المتغير t قبل جمع أول عدد (قبل بدايه الدوره Loop ) . يمكن أن يحتوي أي عدد ، وبالتالي سيبدأ البرنامج جمع الأعداد على القيمة الموجودة أصلا .

    أنا لا أعمل على VB وربما تقوم هذه اللغة بتصفير المتغيرات أوتوماتيكيا ، ولكن هذه العادة البرمجية غير صحيحه ، يجب تصفير المتغيرات قبل إستخدامها (ولو إحتياطا) .






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





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

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

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