22 - سلسلة تبسيط البرمجة – برنامج تعريف متغير

السلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم

لعلكم تذكرون هذا المثال :

07 - سلسلة تبسيط البرمجة - برمجة بسيطة

السلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم

لنفرض لدينا طفل درس الأعداد والعمليات الحسابية الأساسية ( جمع ، طرح ، ضرب ، قسمة) فأصبح لديه القدرة على إجراء أي من تلك العمليات على الأعداد

وأرادت والدته أن تعمل له تمرين ليتدرب أكثر على هذه العمليات

فقالت له سنبدأ بجدول جمع الواحد أي أني سأقول لك عددا وأنت تقول لي ناتج جمعه مع الواحد

وبالتالي سيكون لدينا الصيغة التالية :

1 + عدد = ناتج

الآن رسخ في ذهن الطفل أن لديه العدد 1 و يجب تطبيق عملية جمع و أنه سينتظر العدد المجهول من الأم ليقوم هو بجمعهما ثم يقول الناتج

فمثلا قالت له 5

حينها مباشرة الطفل يجمع 1 إلى 5 و يجيبها 6

ثم تقول له 8 فيجيبها 9 وهكذا

الآن سنحول هذا المثال إلى برنامج

لنفتح مشروع جديد

ونضع ما يلي :

Module Module1 
    Sub Main()
        Dim X As Integer
        X = Console.ReadLine()

        Dim F As Integer
        F = X + 1
        Console.WriteLine(F)

        Console.ReadKey()
    End Sub
 End Module

في هذا المثال استخدمنا الكلمة المحجوزة Dim وهي اختصار العبارة Declare In Memory أي صرح عن هذا المتحول في الذاكرة

وذلك ليتم استخدامه في حفظ القيم المختلفة أثناء سير البرنامج

يأتي خلف كلمة ديم اسم المتحول الذي سنستخدمه كمجهول يحتمل قيمة ما

وبعد اسم المتحول يجب أن تأتي الكلمة المحجوزة As ومن كان يكتب السطر حرفا حرفا سيلاحظ بعد إدراج الفراغ بعد الاسم تظهر لائحة فيها كلمة As فقط وهذه الميزة تسمى التحسس الذكي والتي توفر على المبرمج الوقت والأخطاء

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

فلو أدرجت الحرف i فستتقلص اللائحة لتحصر الخيارات التي تبدأ بهذا الحرف حينها تستطيع بالسهم اختيار الكلمة المطلوبة وفي مثالنا هو النوع القياسي إنتيجر أي رقم صحيح Integer

ثم تضغط إنتر للنزول إلى سطر جديد

بهذا نكون قد عرفنا متغير اسمه X سيحوي قيم أرقام صحيحة وهذا يقيد الإدخال بالأرقام تجنبا للأخطاء

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

الآن بعد أن صرحنا عن المتغير أصبح بالإمكان استخدامه ضمن النطاق المصرح فيه

وفي مثالنا نطاق المتغير إكس هو داخل الإجراء Main ولو تم استخدامه خارجه فلن يتم التعرف عليه وسيظهر رسالة خطأ أن المتغير غير معرف من قبل

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

بمعنى عندما يصل التنفيذ لهذا السطر سيتوقف منتظرا إدخال رمز ما

ومن المفروض أن يكون رقما فلو أدخلنا رقم 5 حينها سيعيد هذا الرقم ويضعه في المتحول X أي بمعنى سيحتفظ بهذه القيمة في حجرة الذاكرة المحجوزة باسم هذا المتغير

بغض النظر عن المحتوى السابق سواء كانت الافتراضية وهي 0 للنوع الرقمي

أو سواء كانت قيمة سابقة سبق ووضعناها في تعليمات سابقة

أي أن أي تعليمة إسناد قيمة للمتحول ستسجل فوق القديم

بعد أن تحفظ القيمة يأتي سطر جديد وهو تصريح عن متحول آخر باسم F وذلك لنحفظ فيه ناتج عملية الجمع مع الواحد

ثم في السطر التالي أصبح بالإمكان استخدامه

فنقوم بإسناد القيمة X بعد أن نجمعها مع قيمة ثابتة وهي 1 و نضع ناتج الجمع في المتحول F

السطر الذي يليه نظهر قيمة المتحول F إلى الشاشة ثم نوقف التنفيذ بإجراء قراءة مفتاح

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

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

بإمكانكم أن تجربوا مثلا الجمع مع عدد آخر غير الواحد أو أن تجمعو X إلى نفسه لتجدو مضاعف العدد وهكذا

حتى ألقاكم مجددا أستودعكم الله