دروس دورة برنامج الفجوال بيسك 6 من إعداد الأستاذ خليل إبراهيم عبد الله

درس عمل برامج تعليمية بسيطة

أولا : مشروع نريد تنفيذ شفرة (كود) بك عند تشغيل الزر ( عند الضغط على الزر) يظهر رقمين لكسور

قم بفتح مشروع جديد و أدرج فيه الأدوات التالية Command1-label1-label2 و ارسم خط  Line1 بينهم مثل التالي:

نريد تنفيذ كود يقوم بإظهار أرقام في label1-label2  طبعا عندما نضغط على الزر Command1 اضغط عليه ضغط مزدوج لإضافة الشفرة و اكتب التالي  :

 

Private Sub Command1_Click()
Label1 = Rnd
Label2 = Rnd
End Sub

حيث معناها إننا نكتب بداخل Label1  رقم عشوائي حيث Rnd معناها إظهار رقم عشوائي .

و قم بتشغيل البرنامج و قم بالضغط على Command1  سيكون نتيجة التشغيل تشبه التالي :

ملاحظة : قد لا تحصل على نفس الأرقام السابقة الموجودة بالبرنامج

و لكن برنامجنا لا يفي بالغرض تعليمي على شكله الحالي لنصحح بعض الأمور فيه

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

Private Sub Command1_Click()
Randomize
Label1 = Rnd
Label2 = Rnd
End Sub

الآن لن يتكرر الرقم جرب أن تشغل البرنامج و فحصه .

 

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

دالة  Rnd تقوم بإنتاج أرقاما عشوائيا عشرية مثل 0.56667788  إذا ضربنا الدالة في رقم سينتج أرقاما عشرية لكن بها أرقام لمنزلة الآحاد و العشرات مثل 0.56667788 × 2 سينتج 1.13335576  و العدد الصحيح في الآحاد هو 1 .

و نستفيد منه بتحديد أي الأرقام التي ستنتج مثلا لو أردنا فقط أرقام من 1-10 نضربه 11 فسينتج أرقام من 0-10

و بعدها مستخدم دالة Int لحذف الأرقام العشوائية .

ليصبح الشفرة كما يلي :

Private Sub Command1_Click()
Randomize
Label1 = Int(Rnd * 10)
Label2 = Int(Rnd * 10)
End Sub

حيث تنفيذ الشفرة ستكون كالتالي أول سيتم تنفيذ ما بداخل الأقواس سيتم تنفيذ  Rnd * 10 أي سيظهر الرقم عشوائي من الحاسب و ثم سيضربه في 10  و بعد ذلك ستأتي دالة Int و ستحذف الأرقام العشرية و ستبقي الرقم الصحيح .

نتيجة التنفيذ للشفرة السابقة هي أنه  سيظهر أرقام عشوائية صحيحة أقل من 10 و ليس 10 سيظهر بينهم .

تكون نتيجة التنفيذ كالتالي :

 

 

ماذا لو أردنا أن نتحكم في  عدد الأرقام التي تنتج؟  اقصد بذلك رقم أو رقمين أو ثلاثة أو اقل من رقم معين .

قم بإضافة Label3  و Text1  و اجعل النموذج كما يلي :

نأتي و نعدل في الشفرة السابقة ما يلي :

 

Private Sub Command1_Click()
Randomize
Label1 = Int(Rnd * Val(Text1.Text))
Label2 = Int(Rnd * Val(Text1.Text))
End Sub

و قد غيرنا فقط الرقم السابق 10 و أعطيناه انه يأخذ الرقم  من Text1.Text و يحوله للرقم حيث دالة Val تحوله لرقم

شغل البرنامج و جربه و غير Text1  وضع رقما آخر ستجد انه ينتج أرقاما أقل من الرقم الذي تكتبه .

 

المطلوب الآن :  تصميم البرنامج السابق مع تنسيقه بشكل جميل و كتابة اسم الصانع عليه

 

حقوق الطبع محفوظة لجزيرة الرياضيات@2006