امتحانات السودان 2014 واجابتها النموذجية --- تابع اخبار التعليم في الفيس بوك

آخـــر الـــمـــشـــاركــــات

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

الموضوع: مثال على if والشروط المركبة مثال 2-2

  1. #1
    موجه الحاسب الآلي الصورة الرمزية س ا يوسف
    تاريخ التسجيل
    Mar 2009
    المشاركات
    3,680
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    4296

    افتراضي مثال على if والشروط المركبة مثال 2-2

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



    والمطلوب كتابة معالج حدث النقر Click Event Hander بحيث يتيح لمستخدم البرنامج ادخال عدد سنوات الخدمة وعدد ساعات العمل ثم يقوم بحساب كل من الاجر للساعة ويقوم بتخزينه في متغير WageRate والراتب الكلي Salary ويقوم بعرضهما في مربع رسالةعلى ان تكون الواجهة كما بالشكل


  2. #2
    موجه الحاسب الآلي الصورة الرمزية س ا يوسف
    تاريخ التسجيل
    Mar 2009
    المشاركات
    3,680
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    4296

    افتراضي

    الحل
    المطلوب ادخال سنوات خبرة من الاداة TxtYears و ساعات العمل من الاداة TxtHoursWork
    يبقى لابد من وجود مخزن لسنوات الخبرة YearsOfService او اي اسم
    و مخزن لساعات العمل HoursWorked او اي اسم

    والمطلوب حساب الاجر لكل ساعة في مخزن WageRate و المرتب في مخزن Salary
    يبقى نحدد انواع المخازن سنوات الخبرة short و ساعات العمل ممكن كسر decimal اجر الساعة مبلغ من المال decimal المرتب برده decimal
    الامر المستخدم للتذكرة Dim اسم as نوع ( من اليسار لليمنين )

    Dim YearsOfService As Short
    Dim HoursWorked As Decimal
    Dim WageRate As Decimal
    Dim Salary As Decimal


    اي رقم مدخل من اداة نص لابد من تحويله ب parse
    الطريقة للتذكرة من اليمين نفتح قوس text نقطة اسم الاداة بالشكل نقطة me نغلق القوس نقطة parseنقطةالنوع تساوي اسم المخزن
    بس قبل التحويل نتأكد من اللي داخل ارقام وليس حروف ب try

    Try


    نكتب جمل التحويل

    ل
    (YearsOfService = Short.Parse(Me.txtYears.Text


    ل
    ( HoursWorked = Decimal.Parse(Me.txtHoursWorked.Text

    نكتب

    Catch

    MsgBox("Check your inputs ")
    End Try

    بعد كده نشوف كام اختيار 5 حالات يبقى حالة if الثالثة اللي فيها elseif كام واحدة 3
    نكنبها ازاي اول if تعبيره اقل من 5 والTure بتعها 5 في مخزن اجر الساعة
    elseif اكبرمن او تساوي 5 و اقل من 10 وال ture بتعها 7 في مخزن اجر الساعة
    elseif اكبرمن او تساوي 10 و اقل من 15 وال ture بتعها 10في مخزن اجر الساعة
    elseif اكبرمن او تساوي 10 و اقل من 15 وال ture بتعها 12 في مخزن اجر الساعة
    يتبقى حالة واحدة تبقى اجر الساعة في مخزن اجر الساعة15 بعد else

    If YearsOfService < 5 Then
    WageRate = 5
    ElseIf YearsOfService>=5 and YearsOfService < 10 Then
    WageRate = 7
    ElseIf YearsOfService>=10 and YearsOfService < 15 Then
    WageRate = 10
    ElseIf YearsOfService>=15 and YearsOfService < 20 Then
    WageRate = 12
    Else
    WageRate = 15
    End If


    نحسب المرتب يساوي عدد الساعات في اجر الساعة

    Salary = WageRate * HoursWorked


    نخرج رسالة ب MsgBox باجر الساعة و المرتب

    MsgBox("Your Wage Rate = " & WageRate & vbCrLf & _
    "Your salary = " & Salary)


    لاحظ
    VbCrLf تعني اذهب لسطر جديد اي ما قبلها يكتب في سطر وما بعدها في السطر التالي ـــــ تعني ان السطر الثاني في الامر هو استكمال للسطر السابق

  3. #3
    عضو جديد
    تاريخ التسجيل
    Mar 2009
    المشاركات
    44
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    592

    افتراضي

    شششششكرااااااااااااااااااااااااااااااااااااااااااا اااا

  4. #4
    عضو جديد
    تاريخ التسجيل
    Aug 2010
    المشاركات
    33
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    530

    افتراضي رد: مثال على if والشروط المركبة مثال 2-2

    مشكورررررررررررررررر

  5. #5
    عضو مشارك
    تاريخ التسجيل
    Aug 2010
    المشاركات
    62
    شكراً و أعجبني للمشاركة
    معدل تقييم المستوى
    559

    افتراضي

    مشكووووووووووووووووووووووووووووووووووووووووور

معلومات الموضوع

الأعضاء الذين يشاهدون هذا الموضوع

الذين يشاهدون الموضوع الآن: 1 (0 من الأعضاء و 1 زائر)

المواضيع المتشابهه

  1. مثال تتبع تنفيذ اكواد على Do while .. Loop
    بواسطة س ا يوسف في المنتدى اوامر التكرار
    مشاركات: 70
    آخر مشاركة: 20-12-2023, 03:35 AM
  2. مثال 3-3 الفصل الثالث تطبيق على Listbox
    بواسطة س ا يوسف في المنتدى اوامر التكرار
    مشاركات: 6
    آخر مشاركة: 09-03-2012, 12:48 PM
  3. مثال جمع الاعداد الفردية لعدد محدد
    بواسطة س ا يوسف في المنتدى تمثيل البيانات
    مشاركات: 5
    آخر مشاركة: 06-03-2012, 11:55 AM
  4. مثال 2-4 على chekBox
    بواسطة س ا يوسف في المنتدى الشروط والقرارات
    مشاركات: 4
    آخر مشاركة: 26-01-2012, 03:22 PM
  5. مثال على ListBox
    بواسطة س ا يوسف في المنتدى اوامر التكرار
    مشاركات: 1
    آخر مشاركة: 05-04-2009, 04:20 PM

المفضلات

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

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