برامج دمج الشروط

يمكننا دمج أكثر من شرط في نفس الوقت باستخدام المعاملات التالية (And, Or, Not).

1- المعامل And: عند استخدام هذا المعامل فهذا يعني أنه يجب تحقق جميع الشروط في وقت واحد حتى يتم تنفيذ التعليمات الموجودة داخل هذه الشروط وفي حال عدم تحقق أي شرط فإنه لن يتم تنفيذه نهائيا.

2- المعامل Or: عند استخدام هذا المعامل لا يشترط تحقق جميع الشروط وإنما يكفي تحقق شرط واحد على الأقل ليتم تنفيذ التعليمات الموجودة داخل الشروط.

3- المعامل Not: ويعني حالة عدم النفي.

ولتوضيح هذه الفكرة نأخذ الأمثلة التالية:

مثال1: برنامج إدخال اسم المستخدم وكلمة السر والتأكد فيما إذا كان اسم المستخدم هو Ali وكلمة السر هي Ali بنفس الوقت.

الخطوات المتبعة لتصميم البرنامج:

1-  نفتح مشروع جديد و نضع علية أداتي Label وأداة TextBox وزر واحد للتحقق من صحة اسم المستخدم

وكلمة السر ونجعل الخصائص للأدوات كما يلي:

اسم الأداة	اسم الخاصية	القيمة
Label1	Text	اسم المستخدم
Label2	Text	كلمة السر
TextBox1	TextAlign	Center
TextBox2	TextAlign	Center
TextBox2	UseSystemPasswordChar	True
Button1	Text	دخول

خاصية  UseSystemPasswordChar تستخدم لجعل كلمة المرور مشفرة كما تظهر في الصورة السابقة.

2- نضغط مرتين على زر دخول لكتابة كود التحقق من اسم المستخدم وكلمة السر.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If (TextBox1.Text.ToLower =("Ali")  And TextBox2.Text = "Ali") Then

       , "معلومات صحيحة", "اسم المستخدم وكلمة السر صحيحين" ) MessageBox.Show

 (MessageBoxButtons.OK, MessageBoxIcon.Information

        Else

         (" معلومات خاطئة","اسم المستخدم وكلمة السر غير صحيحين"  )  MessageBox.Show

MessageBoxButtons.OK, MessageBoxIcon.Error

 (

        End If

    End Sub

نلاحظ في الشرط If استخدام المعامل And للتحقق من اسم المستخدم وكلمة السر في وقت واحد, ولتنفيذ هذا الشرط يجب أن يتحقق الشرطين معا أي يجب أن يكون اسم المستخدم هو Ali وكلمة السر هي Ali ليتم تنفيذ الرسالة الأولى, أما في حالة كون أحدهما خاطئ سيتم الأنتقال إلى Else وتنفذ الرسالة الموجودة داخلها.

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

تعلمنا سابقا كيفية التعامل مع رسائل MessageBox وكيفية إظهار الرسالة أما في مثالنا هذا تم اضافة معلومات أخرى للرسالة كنص الرسالة وعنوان الرسالة وأيقونة الرسالة.

("اسم المستخدم وكلمة السر صحيحين", " معلومات صحيحة") MessageBox.Show 

MessageBoxButtons.OK, MessageBoxIcon.Information

مثال2: اكتب برنامج يقوم بحساب قيمة الفاتورة الكلية لاستهلاك الكهرباء لدى العملاء علما أن طريقة الدفع ستكون كالآتي:

1- إذا كانت كمية الاستهلاك تساوي 250 كيلو وات وما دون فإن التكلفة ستكون 0.5 درهم لكل كيلو وات. (إظهار النتيجة باللون الأزرق).

2- وإذا كانت كمية الاستهلاك 251 كيلو وات وما فوق فإن التكلفة ستكون 0.75 درهم لكل كيلو وات. (إظهار النتيجة باللون الأخضر).

ملاحظة: إذا كانت القيمة أصغر أو تساوي الصفر تظهر كلمة Error باللون الأحمر.

خطوات تصميم البرنامج:

1-  نفتح مشروع جديد و نضع علية أداتي Label وأداة TextBox وزر ونجعل الخصائص للأدوات كما يلي:

اسم الأداة	اسم الخاصية	القيمة
Form1	Text	فاتورة الكهرباء
Label1	Text	كمية الاستهلاك
Label2	Text
Label2	Font	Size=16
Label2	BorderStyle	Fixed3D
TextBox1	TextAlign	Center
Button1	Text	إظهار القيمة

2- بعد تصميم الفورم نضغط مرتين على زر إظهار القيمة لكتابة الكود الخاص به كما يلي:

   Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Val (TextBox1.Text) <= 250 And Val(TextBox1.Text) > 0 Then

            Label2.ForeColor = Color.Blue

             Label2.Text = Val(TextBox1.Text 0.5*(

        ElseIf Val (TextBox1.Text) >= 251 Then

            Label2.ForeColor = Color.Green

           TextBox1.TextLabel2.Text = Val

        Else

            abel2.ForeColor = Color.Red

           " Label2.Text = "Error

        End If

    End Sub