صناديق الإدخال والإخراج

صندوق الإدخال Input message  :

هل تذكر الجملة INPUT في البيسك ، إنها تغيرت الآن ، وأصبحت لها صيغة مختلفة وشكل أفضل فصيغته هي :

Variable =InputBox ("الرسالة")

Answer =InputBox ("من فضلك أدخل إجابتك")

وبالطبع فالمتغير Answer سوف يتقبل حروفيه ، ومن ثم إذا أردت أن يكون المدخل أعداد فاستخدم الدالة Val .

في المربع الأبيض يدخل المستخدم إجابته ثم ينقر الزر OK

صندوق الرسائل MsgBox :

لنفرض أنك تريد أن تخرج رسالة للمستخدم ، هنا فيجوال بيسك قدمت لك أمر يمكنك من إخراج الرسائل التي تريدها من خلال نافذة جميلة

MsgBox ("هايل ممتاز أنت حسبت نقطه")

ومن الشيق أن يتكيف صندوق الرسالة طبقاً لطولها .

ولكن كما تري فالتنسيق من جهة اليسار .

مشروع :

ابدأ مشروع جديد ، وضع عليه زر أوامر

زر الأوامر Command1  

Caption             ابدا

Name                CmdStart

وفي   منطقة الإعلانات عرف المتغيرات التالية :

Option Explicit

Dim z, answer, score As Integer

وفي حدث نقر الزر   CmdStart اكتب الشفرة التالية :

Private Sub Command1_Click()

10 z = Int(10 * Rnd(1))

20 answer = InputBox("خمن عدد بين 0 ، 1")

30 If z = Val(answer) Then MsgBox ("هايل ممتاز إجابتك صحيحة"): score = score + 1

40 If z <> Val(answer) Then MsgBox ("خطأ من فضلك حاول مرة أخري"): GoTo 15

Cls

Print "your score ="; score

End Sub

السطر 10 يحسب عدد عشوائي ، والسطر 20 يخرج صندوق إدخال يطلب من المستخدم إدخال عدد بين 0 ، و 10 ، والسطر 30 يقيم إجابة المستخدم فإذا كانت الإجابة صحيحة يخرج العبارة "هايل ممتاز إجابتك صحيحة" ، أما إذا كانت الإجابة خطأ فيخرج العبارة "خطأ من فضلك حاول مرة أخري"  وينتقل التنفيذ للسطر رقم 15 .

وكما تري فلدينا أداتي شرط الأولي  تخرج رسالة الصواب ، بينما الثانية تخرج رسالة الفشل ، فهل يمكن أن نختصر تلك العبارة  ؟ بالطبع هذا ممكن بصيغة معقدة نوعا ما تضم الأداتين معا :

IF COND=TRUE THEN ……. ELSE ……

تحكم تلك الصيغة علي الشرط ، فإذا وجدته صحيحاً نفذا ما بين  Then ….Else ، أما إذا وجدته خطأ ، فإنها تنفذ ما بعد ELSE و بالتالي يمكننا جمع السطرين السابقين كما يلي :

30 If z = Val(answer) Then MsgBox ("هايل ممتاز إجابتك صحيحة"): score = score + 1 ELSE MsgBox ("خطأ من فضلك حاول مرة أخري"): GoTo 15

ملخص :

درسنا شريط التمرير ، وأداتي الربط المنطقيتين  OR , And ، وأداة الشرط IF  بصيغتيها المختصرة والصيغة المركبة ، ولاحظنا من برنامج تعليم المنطق متي تكون القيمة الأداتين صحيحة ، كما أن أننا أبحرنا في عمق البيسك من خلال شريط التمرير .