Make your own free website on Tripod.com

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

 

صندوق الإدخال 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  بصيغتيها المختصرة والصيغة المركبة ، ولاحظنا من برنامج تعليم المنطق متي تكون القيمة الأداتين صحيحة ، كما أن أننا أبحرنا في عمق البيسك من خلال شريط التمرير .

 
صفحة البداية ما الجديد حاليا ؟ فيجوال بيسك للتطبيقات موضوعات متقدمة فيجوال بيسك لتلاميذ المدارس

أرسل استفسارك أو تعليقك  الآن

أرسل رسالتك أو استفسارك الآن

أكتب ملاحظتك أو استفسارك أو تعليقك أو ابحث عن مواقع فيجوال بيسك أخري و غيره.....

حقوق الطبع والنسخ محفوظة  © 2000 مركز الكمبيوتر التربوي
آخر تعديل: April 18, 2001