برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 1( نسخة مجانية للجميع
إعداد
م. المهدي امحمد جبريل
بكالوريوس هندسة إلكترونية
طالب ماجستير بالأكاديمية الليبية
Phone: 00218917154974
E-Mail: Almahdi.jabriel@yahoo.com
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 2( نسخة مجانية للجميع
كلمة المؤلف
بسم الله الرحمن الرحيم, والصلاة والسلام على خاتم الأنبياء
والمرسلين سيدنا محمد وعلى آله وصحبه, أما بعد:
فإني أسأل الله عز وجل أن أكون وفقت في ترتيب هذه الورقات التي
كانت ليست أكثر من تبيان بسيط لكل من هو مبتدئ في تعلم لغة فيجوال
بيسك وراعيت ذلك بترتيب الفصول والأبواب, حتى تكون مسيرة الفهم
وسهلة الاستيعاب.
وأسأل الله أن تكون فيها الفائدة والمعلومة الواضحة لكل مطلع
وأن تكون في ميزان حسناتنا...
اللهم اغفر لي ولوالدي وللمؤمنين يوم يقوم الحساب
اللهم اغفر لأمواتنا وشهدائنا وحينا أجمعين
والصلاة والسلام على رسول الله محمد خير الأنام
م. المهدي جبريل
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 3( نسخة مجانية للجميع
مقدمة:
ترجع بداية لغة بيسك إلى سنة ) 1691 م( حيث تم تجهيزها على يد الأستاذين ) Kurtz )
و) Kenny ( في كلية دارثموت.
سميت ) BASIC ( اشتقاقا من مجموعة الكلمات التالية:
Beginners All-purpose Symbolic Instruction Code
أي لغة متعددة الأغراض للمبتدئين.
أنظمة )إصدارات( لغة بيسك ) BASIC :)
جميعععع الأن معععة السعععابقة تعمعععل عععت ن عععام ) DOS ( معععا ععععدا ا)صعععدار ) VISUAL BASIC ( الذي يعمل ت ن ام نوافذ ) Windows ( بمختلف إصداراته.
لماذا فيجوال بيسك ) VISUAL BASIC :؟)
نستخدم فيجوال بيسك للأسباب التالية:
.1 إمكانية استخدام اللغة العربية في ا)دخال وا)خراج.
.2 تعمل هذه اللغة ت ن ام نوافذ.
.3 ا)مكانات المتعددة لن ام نوافذ مع فيجوال بيسك والتي لا تتوفر في باقي ا)صدارات
التي تعمل ت ن ام ) DOS .)
IBM BASIC
QUICK BASIC
GW BASIC
TURBO BASIC
VISUAL BASIC
تعمل تحت نظام DOSتعمل تحت Windows
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 4( نسخة مجانية للجميع
الباب الأول: أساسيات البرمجة
ما هو البرنامج؟
هععو عبععارة عععن مجموعععة مععن الأوامععر والتعليمععات مكتوبععة بإحععد لغععات البرمجععة والععتي
بتنفيذها يتحقق غرض معين.
ما هو المقصود بلغة البرمجة؟ وهل تختلف على البشر؟
تهدف لغة البرمجة إلى التخاطب معع اللعة أو اساسعوب, في حعين لغعات البشعر تهعدف علعى
تخاطب البشر مع بعضهم البعض.
ما هي لغة الآلة؟
1( وهي أول لغة , هي لغة برمجة لا يوجد بها إلا رمزان اثنان فقط هما الصفر والواحد ) 1
برمجة في عالم اساسوب.
كما أنها هي اللغة الأساسية التي يفهمها جهاز اساسعوب )لمعاذا؟؟؟( والسعبب في ذلعك هعو
إمكانية تمثي عل هعذين ال عرقمين تمث عيلا فيزيائي عا لآك عن الل عة معن التع عرف علي عه, ولآك عن تمثي عل ذل عك
.) بدائرة كهربائية مغلقة )تمثل 1(, أو دائرة كهربائية مفتوحة )تمثل 1
ما هو المترجم؟
هعو البرنعام المسعلول ععن ويعل برنعام مكتعوب بلغعة معا )مثعل فيجعوال بيسعك( إلى لغعة
اللة.
ولآكن تمثيله بالشكل التالي:
وظيفة المترجم
أنواع المترجمات:
يوجد هنالك نوعين من المترجمات هما:
1. المفسّر ) Interpreter :)
هووو نرنووامو يبوووم نترجمووة الكنووامو المماووو نناووة مووا لآل نرنووامو نناووة ا لووة وتووام عمنيووة
الترجمة فيه جمنة جمنة )ترجمة فورية(.
2. المصرّف ) Compiler :)
هووو نرنووامو يبوووم نترجمووة الكنووامو المماووو لاووة مووا لآل نرنووامو نناووة ا لووة وتووام عمنيووة
الترجمة فيه دفعة واحدة )ترجمة كنية(.
نرنامو نناة نرمجة
المترجم
نرنامو نناة ا لة
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 5( نسخة مجانية للجميع
ما هو نوع المترجم في لغة فيجوال بيسك؟
يصنف المترجم في لاة فيجوال نيسك مون النووا المفسّور ) Interpreter ( ويممون مححظوة
ذلك عند حصول خطأ في كاانة نرنامو في لاة فيجوال نيسوك حيوو ونلومل مراسور يروياا لوو
الماانة لآل النو الأحمر مل ا لآل وجود خطأ.
ما هي المهام التي يقوم بتنفيذها المترجم؟
يعمل المترجم عنى تنفيذ مهماين أيرايرياين هما:
.1 ترجمة نرنامو نناة ما لآل لاة ا لة.
.2 اكالاف الأخطاء الناوية في الكنامو ولآعحم المساخدم نها.
أنواع الأخطاء:
تصنف الأخطاء في الكنامو لآل نوعين:
1. خطأ لاوي ) Syntax error :)
هوو خطوأ نودة نايجوة لمخالفوة ةواعود الناوة وعوادة موا يوام اكالواف مون ةرول الكنوامو
المترجم.
2. خطأ منطبي ) Logical error :)
هو خطأ يمالفه الكنامو المترجم ولمن يمالفه المسواخدم )الموكمو( ناجرنوة الكنوامو
واخاراره نرعض الريانات الماوةع ناائو معالجاها.
لغات البرمجة ) Programming languages :)
ما هي لغة البرمجة؟
هي لاة الاواصل مع جهاز الحايرو وويريط لناخاطب نين الرلر وا لة وتامو عادة من
عدد محدود من المفردات والبواعد الناوية.
أمثنة عنى لاات الكمجة:
- لاة نيسك ) BASIC .)
- لاة فورترا ) FORTRAN .)
- لاة نايرمال ) PASCAL .)
- لاة يري ) C .)
- لاة ) C++ ( والتي هي تطوير لناة يري.
- لاة دلفي )تطوير لناة نايرمال(.
- لاة فيجوال نيسك )تطوير لناة نيسك(.
- لاة جووووووووووووووافا وغ ها المث من الناات الأخر....
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 9( نسخة مجانية للجميع
ما هي أوجه الاختلاف بين الحاسوب والإنسان؟
يمااز الإنسا عن الحايرو نبدرة الافم فهو الذي يفمر لنحايرو ويرسده لآل طريبة
حل أي مسألة.
نينما يمااز الحايرو عون الإنسوا نالسورعة الدة وة الحسوا وعودم النسويا )الاخو ين
المر لنريانات(.
ملاحظات هامة:
- تحااج جميع لاات الكمجة لآل نرنامو مترجم )مفسّر أو مصرف( لترجمة نرامجهوا لآل لاوة
ا لة ما عدا لاة ا لة.
- في حالة وجود خطأ لاوي في الكنامو فإ تنفيذه ياوةف لآل أ يام لآصحح الخطوأ الموجوود
فيه عمس الخطأ المنطبي الذي لآ وجد عادة ما يام ةرول تنفيذ الكنامو.
خطوات إعداد برنامج:
ماوووى اووواج لآل الحايروووو أو موووا هوووي المسوووائل الوووتي اووواج في حنوووها لآل
الحايرو أو ماى ااج لآل كاانة نرنامو
جهاز الحايرو آلة مفيدة خاصة في المجالات الاالية:
.1 الحسانات المطوّلة والمامررة والتي لا تحامل الخطأ.
.2 معالجة الريانات الضخمة مثل ترتيرها أو الرحو عن معنومة معينة فيها...الخ.
.3 الاتصالات ونبل المعنومووووووووووووووووووات.
.4 تخ ين الريووووووووووووانات.
الخطوات الواجب إتباعها عن إنجاز عمل برمجي ما:
.1 تحديد المسألة: يبصد نها تحديد معطيات الكنامو والناتو المساهدف.
.2 تصميم الحل: أي كاانة خوارزمية الحل وهي الخطوات والعمنيات التي نإتراعها نصول
لآل الحل المطنو .
.3 كاانة الكنامو نإحد. لاات الكمجة: هي عرارة عن ترجمة الخوارزمية المماونوة نناوة
المكمو )العرنية مثح( لآل لاة يفهمها الحايرو مثل )فيجوال نيسك(.
.4 تجرنة الكنامو وتنفيذه عنى جهاز الحايرو .
.5 في حالوة حوواح الكنووامو ناوةووف ولآلا )أي فلوول تنفيوذ الكنووامو( فووح نوود موون مراجعووة
وتصحيح الخطأ في الخطوات السانبة من نداياها.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 7( نسخة مجانية للجميع
الخوارزميات ) Algorithms )
ما هي الخوارزمية؟
هي عرارة عن مجموعة من الخطوات التي تؤدي عند تنفيذها لآل الحل المطنو .
لماذا سميت الخوارزمية بهذا الاسم؟
سميوت الخوارزميوة نهوذا الايروم نسورة لنعواى محمود نون مويروى الخووارزمي الوذي عوا في
البر الاايرع ونرغ في عنم الجك.
ملاحظات هامة عن الخوارزميات:
عند لآعداد خوارزمية يجب الاناراه لآل الاالي:
.1 لمل خوارزمية نداية )انوووووودأ( ونهاية )تووووووةف(.
.2 نساخدم في الخوارزميات الأمر )اةووووووووورأ( لإدخال المعطيات.
.3 نساخدم في الخوارزميات الأمر )أكاب( لإخراج المطنو حسانه.
.4 نساخدم في الخوارزميات الرم ) ( كعحمة لنضر والرم )/( كعحمة ةسمة.
مثال : أكاب خوارزمية لبراءة عدد وطراعة ترنيعه
الحل:
المعطيات: العدد )أ(.
أ. × المطنو : طراعة ترنيعه ) ( حيو: = أ
الخوارزمية المطنونة:
.1 اندأ.
.2 اةووورأ العدد )أ(.
.3 احسب: = أ أ.
.4 أكاب ) (.
.5 توةف.
مثال : أكاب خوارزمية لبراءة عددين ولآيجاد حاصل جمعهما
الحل:
المعطيات: العدد الأول )س( العدد الثاني )ص(.
المطنو : حسا المجموا )م( حيو: م = س + ص.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 8( نسخة مجانية للجميع
الخوارزمية المطنونة:
.1 انوودأ.
.2 اةرأ العدد الأول )س(.
.3 اةرأ العدد الثاني )ص(.
.4 احسب: م = س + ص.
.5 أكاب )م(.
.9 توةف.
المخطط الانسيابي ) Flow-chart )
ما هو المخطط الانسيابي؟
هو عرارة عن مجموعة من الأسمال الهنديرية ترنط نينها أيرهم لاوضيح عمل الخوارزمية.
ويما وواز هووذا المخطووط نوضوووا أكث وور م وون الخوارزمي ووة وخاصووة في توضوويح عم وول الحنب ووات
واللروط المنطبية.
الأشكال الأساسية المستخدمة في المخطط الانسيابي:
1. اللمل الريضاوي: يساخدم لنرداية )اندأ( والنهاية )توةف(.
2. المساطيل: يساخدم لنعمنيات الحايررية وتعيين ةيم الماا ات.
3. ماوازي الأضحا: لنبراءة والماانة )أو للإدخال والإخراج(.
4. سمل المعين: يساخدم لنمبارنات والعمنيات المنطبية.
5. الودائرة: تسواخدم لاوضويح نبواط توصويل المخطوط الانسوياني وغالروا في حالوة المخططوات ذات
الأحجام المر ة.
9. السهم: يساخدم لناوصيل فيما نين الأسمال الهنديرية السانبة وتوضيح مسار المخطط.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 6( نسخة مجانية للجميع
مثال : أكاب خوارزمية الحل واريرم المخطط الانسياني لبراءة طوول وعورم مسواطيل وحسوا
مساحاه
الحل:
المعطيات:
طول المساطيل )ط( عرم المساطيل )ا(.
المطنو :
ا. × حسا مساحة المساطيل )م( حيو: م = ط
الخوارزمية المطنونة:
.1 اندأ.
.2 اةرأ )ط( و )ا(.
.3 احسب: م = ط ا.
.4 أكاب ةيمة )م(.
.5 توةف.
المخطط الانسياني:
ملاحظات هامة:
.1 ايراخراج المخطط الانسوياني ي وام م ون خوارزمي وة الحول أي حا وى ل وو كوا المطن وو في المث وال
أريرم المخطط الانسياني فبط فإنه يفضل لاحفي الوةوا في الخطأ أ يام عمل الخوارزمية
أولا.
.2 يممن الوصول لآل خوارزمية الحل لآذا توفر المخطط الانسياني.
مثال : أكاب خوارزمية الحل واريرم المخطط الانسياني لحسا ماويرط أرنعة أعداد
الحل:
المعطيات:
أرنعة أعداد )ل( )ك( )ا( )ط(.
المطنو :
. حسا الماويرط )م( حيو: م = )ل + ك + ا + ط(/ 4
ابدأ
احسب: م=ط
ع
اقرأ )ط(, )ع(
أكتب ) م (
توقف
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 11 ( نسخة مجانية للجميع
الخوارزمية المطنونة:
.1 اندأ.
.2 اةرأ )ل( )ك( )ا( )ط(.
.3 . احسب : م = )ل + ك + ا + ط(/ 4
.4 أكاب ةيمة )م(.
.5 توةف.
المخطط الانسياني:
مثال : أكاب خوارزمية الحل واريروم المخطوط الانسوياني لحسوا الضوريرة السونوية عنم وا ن وأ
الضووريرة ) 15 %( موون الوودخل السوونوي لآذا زاد هووذا الوودخل عوون 4111 دينووار ولآلا فإنووه يعفووى موون
الضريرة
الحل:
المعطيات: الدخل السنوي )د(.
المطنو : حسا الضريرة )م( حيو:
د عندما )د <= 4111 دينار(. × % م = 15
م = 1 عندما )د > 4111 دينار(.
نححظ هنا أ هنالك ةيمة لنضريرة )م( ويريام اخايوار لآحود. هواتين البيمواين ننواءا عنوى
ةيمة الدخل السنوي )د( لآذا زاد عن 4111 دينار أو ةل عنها.
الخوارزمية المطنونة:
.1 اندأ.
.2 اةرأ )د(.
.3 لآذا كانت )د <= 4111 ( فاحسب: م = 1115 . د ولآلا اجعل م = 1
.4 أكاب ةيمة )م(.
.5 توةف.
ابدأ
احسب: م= )ل+ك+ع+ط(/
4اقرأ )ل(, )ك(, )ع(, )ط(
أكتب ) م (
توقف
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 11 ( نسخة مجانية للجميع
المخطط الانسياني:
مثال : أكاب خوارزمية الحل واريرم المخطط الانسياني لبراءة درجات طالب في عودد مون الموواد
الدرايرية ولآيجاد مجموعة عنما نأ عدد المواد تام ةراءته في الخوارزمية
الحل:
المعطيات: عدد المواد ) ( درجات المواد )د(.
المطنو : حسا المجموا )م(.
مححظة: نححظ هن وا أ عودد الم وواد غو معن ووم ل وذلك د ايرواخدام م واا ) ( ليحسو ب عودد تنوك
المواد وفي مثل هذه الحالات يجب ايرواخدام م واا )عوداد ا( يب ووم عاانع وة عودد ال ودرجات ال وتي د
ةراءتها وتاوةف البراءة نعد أ تصرح )ا = (.
الخوارزمية المطنونة:
.1 اندأ.
.2 اةرأ عدد المواد ) (.
.3 اجعل )ا = 1( عداد المواد.
.4 اجعل )م = 1( المجموا.
.5 اةرأ الدرجة )د(.
.9 احسب: م = م + د.
.7 . احسب: ا = ا + 1
.8 .) لآذا كانت )ا > ( ارجع لآل الخطوة ) 5
.6 اكاب المجموا )م(.
.11 توةف.
ابدأ
احسب: ض=
1115 د
اقرأ )د(
أكتب ) ض(
توقف
هل
د <= 4000
اجعل: ض=
1
نعم
لا
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 12 ( نسخة مجانية للجميع
المخطط الانسياني:
ملاحظة هامة:
د ايراخدام م واا وسمين واه نايروم عوداد ونالا والي ف وإ الع وداد هوو م واا ي وام تحدي ود ةيم وة
نداية وةيمة زيادة وةيموة ياوةوف عنودها والهودف الرئيسوي من وه هوو تمورار عمني وة معين وة عودد م ون
المرات لاحفي الحجم المر والا مبرول في الخوارزميات والمخططات والكامو.
مثال : اريرم المخطط الانسياني لبراءة ةيمة وطراعة كنمة "موجب" لآذا كانت البيمة أكك من
أو تساوي الصفر وكنمة يرالب لآذا كانت البيمة أصار من الصفر
الحل:
المعطيات: ةيمة عددية )س(.
.) المطنو : طراعة كنمة )موجب( لآذا كانت )س <= 1( وكنمة )يرالب( لآذا كانت )س> 1
الخوارزمية المطنونة:
.1 اندأ.
.2 اةرأ )س(.
.3 لآذا كانت )س <= 1( اكاب "موجب" ولآلا اكاب "يرالب".
.4 توةف.
ابدأ
اقرأ )ن(
أكتب ) م(
توقف
هل
ع > ن
اجعل: ع=
1
م =
1نعم
لا
اقرأ )د(
احسب: م = م + د
ع = ع+
1
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 13 ( نسخة مجانية للجميع
المخطط الانسياني:
مثال - : أكاب خوار زمية الحل واريروم المخطوط الانسوياني لطراعوة الأعوداد ا صوورة ن وين ) 1
)11
الحل:
- .) المعطيات: الأعداد ) 11 1
المطنو : طراعة هذه الأعداد تصاعديا.
الخوارزمية المطنونة:
.1 اندأ.
.2 .) اجعل )ا = 1
.3 أكاب )ا(.
.4 . احسب: ا = ا + 1
.5 .) لآذا كانت )ا >= 11 ( ارجع لآل الخطوة ) 3
.9 توةف.
ابدأ
اقرأ )س(
توقف
هل
س <= 0
نعم
لا
أكتب "موجب"
أكتب "سالب"
ابدأ
اجعل: ع =
1توقف
هل
ع>= 10
نعم
لا
أكتب )ع(
احسب: ع = ع +
1
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 14 ( نسخة مجانية للجميع
الباب الثاني: أساسيات لغة بيسك
يانواول هوذا الروا نعوض أيرايروويات لاوة الكمجوة فيجووال نيسووك والوتي مون أهمهوا أنووواا
الثوانت والماا ات نالإضافة لآل نعض الأوامر والإيعازات الأيرايرية في لاة نيسك.
ما هو الثابت ) Constant :؟)
هو البيمة التي تربى كما هي )لا تاا ( خحل عمنية أو أثناء تنفيوذ الكنوامو وهوو لآموا أ
يمو ثانت عددي مثل: 123 أو ثانت حرفي مثل: "عني".
الثانت
صحيح كسري حرفي
الثانت الصحيح: هو البيمة العددية التي لا تحاوو. عنوى عحموة علورية )أي لا تحاووي عنوى
45 ... الخ. - 81 ج ء كسري( مثل: 23
- 411 الثانت المسري: هو البيمة العددية التي تحاوي عنى عحمة علورية مثول: 312
716 ... الخ.
الثانوت الحورفي: هوو البيموة الحرفيوة الوتي تربوى كموا هوي خوحل عمنيوة موا ويوضوع نوين
عحمتي الانصيص " " مثل: "محمد" " Ahmed 3114 " ... الخ. " "41" "
ما هو المتغير ) Variable :؟)
هو ايرم موةع في ذاكرة الحايرو لاخ ين ةيمة ما.
الماا
صحيح كسري حرفي
الماا الصحيح: هو الماا الذي ياعين له ةيمة ثانت عددي صحيح.
الماا المسري: هو الماا الذي ياعين له ةيمة ثانت عددي كسري.
الماا الحرفي: هو الماا الذي ياعين له ةيمة ثانت حرفي.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 15 ( نسخة مجانية للجميع
طرق تحديد نوع المتغير في لغة فيجوال بيسك:
توجد هنالك طريباا :
أ. الطريبة الأول: نوضع عحمة ممي ة عنى يمين ايرم الماا حيو يساطيع المترجم تميي نوا المواا
كما في الجدول الاالي:
النوا الرم
الصحيح ) Integer % )
الصحيح الطويل ) Long & )
الكسري المفرد ) Single ! )
الكسري المضاعف ) Double # )
العملة ) Currency @ )
النضيد ) String $ )
مثل:
Count% ماا صحيح. -
K% ماا صحيح. -
V# ماا كسري مضاعف. -
tax! ماا كسري مفرد. –
name$ ماا حرفي. -
address$ ماا حرفي. -
. الطريبة الثانية: ناحديد نوا الماا في نداية الكنامو أو ةرل ايراخدام الماا وكما يني:
Dim var as Type
حيو:
Dim : كنمة محجوز اخاصارا لنمنمة ) Dimension .)
var : ايرم الماا مثل: x, y, k ... الخ.
Type : نوا الماا )صحيح ) Integer ( كسري ) Single ( حرفي ) String ( ... الخ(.
مثل:
Dim x as Integer ( الإعح عن ماا من نوا صحيح )
Dim Name as String (الإعح عن ماا من نوا الحرفي )
Dim tax as Single (الإعح عن ماا من نوا المسري )
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 19 ( نسخة مجانية للجميع
ملاحظة هامة:
في حالة ى يام تحديد نوا الماا نإحد. الطريباين السوانباين يرويام ايرواخدام النووا المور
لهذا الماا ) variant ( والذي يصونح لامثيول أي نو وا مو ن أنوواا المواا ات السواة السوانبة ييوو يوام
تحديد نوا هذا الماا أثناء تنفيذ الكنامو ننوا أول ةيمة يام وضعها أو تخصيصها لنماا .
شروط تسمية المتغير:
يلترط لبرول ايرم الماا المساخدم في الكنامو أ يمو كالاالي:
.1 أ يردأ ايرم الماا يرف وليس نرةم أو رم .
.2 أ لا يمو الايرم أحد المنمات ا جوزة في لاة فيجووال نيسوك مثول: ) If, print, end, sub ... الخ(.
.3 أ لا ناوي الايرم عنى رم من رموز العمنيات الرياضية أو نعض الرموز الخاصة مثل:
+ \( ? ... الخ( نايراثناء الرم )_(. -
العبارات الحسابية:
يممن أ تامو العرارة الحسانية من ثانت واحد أو ماا واحد أو مجموعة من الماا ات
والثوانت والرموز الحسانية مثل:
A + B
32/2 + 10/2
5/C + 3 + B
أسبقية )أولوية( تنفيذ العمليات الحسابية:-
جهاز الحايرو ينا م نالأولوية الاالية في تنفيذه لنعمنيات الحسانية:
.1 الأةواس.
.2 الأس.
.3 الضر والبسمة )من اليسار لآل اليمين(.
.4 الجمع والطرح )من اليسار لآل اليمين(.
مثال : ما هو ناتو تنفيذ العرارة الحسانية الاالية: 3 * 2^2
الحل:
3 * 2 ^ 2
14212
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 17 ( نسخة مجانية للجميع
ملاحظة:
رم الدائرة يل لآل ترتيب تنفيذ العمنية والمساطيل يل لآل ةيمة تنك العمنية.
مثال : تارع تنفيذ العرارة الحسانية الاالية: 2 ^ 2 ^ 3 ^ 2
الحل:
2 ^ 2 ^ 3 ^ 2
مثال : تارع تنفيذ العرارة الحسانية الاالية: 4^3/4*4 + ( 10/2)
الحل:
4 ^ 3 / 4 * 4 + (10 / 2)
142943416929431949415596
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 18 ( نسخة مجانية للجميع
الأوامر الأساسية في لغة فيجوال بيسك
1. جملة التعيين ) Let :)
هي أمر من أوامر لاة نيسك ععنى )اجعل( وهو أمر اخاياري وليس ضروري ويعمل عنى
تعيين ةيمة أو ناتو عرارة لآل ماا ما ويمو ناللمل العام الاالي:
Let ايرم الماا = ةيمة أو ماا
مثل:
Let x = 10 / 2
Let y = 15
Let B = (x – y) * 3
2. جملة النهاية )التوقف( ) End :)
تعمل هوذه الجمن وة عن وى لآيب واف تنفي وذ الكن وامو يي وو ل ون ي وام تنفي وذ أي جمن وة نع ودها وهي
تعمل عمل الأمر )توةف( في الخوارزمية.
3. جملة الطباعة )الكتابة( ) Print :)
تعموول هووذه الجمنووة عنووى طراعووة أو لآخووراج نووواتو تنف يووذ الكنووامو عنووى اللاسووة وتمووو
ناللمل العام الاالي:
Print ةيمة أو ماا أو عرارة حسانية
مثل:
Print 10
Print x / 2 + 5
Print "الصف الثالو ثانوي "
كموا أنوه يممون أ يطروع أكثور مون ةيموة أو مواا نوأمر واحود فبوط وذلوك نايرواخدام
فاصنة عادية ) , ( أو منبوطة ) ; ( ولآذا اناهو ى هوذا الأمور نفاصونة عاديوة ) ,( أو منبوطوة ) ;( فوإ ذلوك
يعني أ أمر الطراعة الاالي يرويمو في نف وس السوطر ييو لآذا كان وت الفاصونة عادي وة يروامو
الطراعة ماراعدة ولآذا كانت الفاصنة منبوطة فإ الطراعة يرامو ماحصبة مثل:
Print 1,2,3,4,5 في حالة فاصنة عادية
1 2 3 4 يريمو ناتو الطراعة: 5
Print 1;2;3;4;5 في حالة فاصنة منبوطة
2 3 4 يريمو ناتو الطراعة: 5 1
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 16 ( نسخة مجانية للجميع
مثووال : أكاووب نرنووامو لحسووا مسوواحة ةطعووة أرم عنووى سوومل مسوواطيل طولووه ) 2519 مووتر(
وعرضه ) 3415 متر(
الحل:
المعطيات: الطول ) L 2519 العرم ) = ) W . 3415 = )
المطنو : حسا مساحة ةطعة الأرم ) A ( حيو:
A = L * W
الكنامو المطنو :
Let L = 25.6
Let W = 34.5
Let A = L * W
Print A , " مساحة قطعة الأرض "
End
4. توثيق البرنامج ) Remarks :)
يهدف توثيق الكنامو لآل كاانة مححظات عن:
.1 الارم من الكنامو.
.2 كاتب الكنامو.
.3 سرح ماا ات الكنامو.
.4 سرح طريبة عمل الكنامو.
.5 تاريخ كاانة الكنامو.
.9 معنومات أخر. مخانفة.
يممن ايراخدام الاوثيق نإحد. طريباين:
نايراخدام الأمر ) - Rem ( مثل:
Rem هذا الكنامو لحسا مساحة ةطعة أرم مساطينة اللمل
نايراخدام عحمة الانصيص المفرد مثل: -
' هذا الكنامو لحسا مساحة ةطعة أرم مساطينة اللمل
ملاحظة هامة:
كح عرارتي الاوثيق لا يام تنفيذه م ون ةر ول الحايروو ن ول هوي عثان وة الجم ول الميا وة فه وي
تفيد فبط في معرفة سيء ما حول الكنامو أو عمنه.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 21 ( نسخة مجانية للجميع
مثال : أكاب نرنامو لحسا عدد الأيام في 25 يرنة عنما نأ السنة 39515 يوما
الحل:
المعطيات: عدد السنوات ) y .25 = )
المطنو : حسا عدد الأيام في السنوات حيو:
d = y * 365.5
الكنامو المطنو :
Rem هذا البرنامج لحساب عدد الأيام
Let y = 25
d = y * 365.5
Print d , "عدد الأيام "
End
مثال : أكاب نرنامو لحسا حجم كرة نصف ةطرها ) 34 يرم( عنما نأ :
حجم المرة = ) 4 ط نق
3
3( وأ : ط = 3114 تبريراً. ÷
الحل:
المعطيات: نصف البطر ) R 34 ط ) = ) P . 3114 = )
المطنو : حسا حجم المرة ) V ( حيو:
V = 4 * P * R3/3
الكنامو المطنو :
Rem هذا البرنامج لحساب حجم الكرة
R = 34
P = 3.14
V = 4 * P * R3/3
Print V , "حجم الكرة "
End
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 21 ( نسخة مجانية للجميع
الباب الثالث: تنفيذ برنامج بيسك المرئي
يرويام الاعورم في هوذا الروا لآل نيووة نيسوك والممونوات الأيرايروية في نوافوذه والوظوائف
الأيرايرية الماضمنة لها.
تشغيل بيئة بيسك المرئي:
يام تلايل نرنامو نيسك المرئي كالاالي:
1. من ةائمة اندأ:
ةائمة اندأ الكامو Microsoft visual Basic Microsoft visual Basic 5.0
2. من يرطح المماب:
ن ووالنبر الم وو دوج عن ووى أيبون ووة الاخاصووار الخاصووة نفيجوووال نيسووك لآ وجوودت عن ووى يرووطح
المماب.
عندها تظهر النافذة المرينة.
سمل يرين النافذة الرئيسية لكنامو فيجوال نيسك
سريط البوائم البيايري
سريط الأدوات
لآطار الملروا
لآطار النموذج
صندوق الأدوات
لآطار الخصائص
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 22 ( نسخة مجانية للجميع
مكونات نافذة فيجوال بيسك:
تامو هذه النافذة من الأج اء الاالية:
- صندوق الأدوات ) Tool box .)
- لآطار النموذج ) Form window .)
- لآطار الخصائص ) Properties window .)
- سريط البوائم البيايري ) Main menu .)
- سريط الأدوات ) Tools bar .)
- لآطار الملروا ) Project window .)
1. صندوق الأدوات ) Tool box :)
ناووي هوذا الصوندوق عنوى مجموعوة مون أزرار الواحمم الوتي تسواعد في
تصميم واجهة المساخدم أو واجهة الكنامو.
من أهم هذه الأزرار:
ال ر ) - Label : )
يساخدم في كاانة توضيح المخرجات عنى نافذة الكنامو.
ال ر ) - Text Box : )
يووام نوايرووطاه ريرووم لآطووار مسوواطيل اللوومل يوضووع في ووه ن ووص مع ووين في
الإدخال أو في الإخراج.
ال ر ) - Command Button : )
يساخدم لايرابرال الأوامر من المساخدم.
2. لآطار النموذج ) Form window :)
وهو يمثل الواجهة التي يام فيها
الافاعل نين الكنامو والمسواخدم حيوو
تام عمنية لآدخال الريانوات ولآخراجهوا في
هووووذه النافووووذة ولووووذلك تسوووومى نواجهووووة
المساخدم ) User interface .)
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 23 ( نسخة مجانية للجميع
3. لآطار الخصائص ) Properties window :)
يوام عون طريوق هوذا الإطوار تحديود خصوائص أي أداة يوام رسمهوا
عنى لآطار النموذج مثل تاي ايروم الأداة النوو الحجوم ... الخ ويوجود
عادة يمين أيرفل اللاسة.
4. سريط البوائم البيايرية ) Main menus :)
حد في هذا اللريط الأوامر التي ااج لها في لآعداد وتنفيذ نرنامو نيسك المرئي ومنها:
أ. ةائمة منف ) File :)
وتحاوي عنى الأوامر الهامة الاالية:
* الأمور ) New project ( لنرودء في ملوروا أو نرنوامو أو تطريوق
جديد.
الأمر ) Open project ( لفاح ملروا مخ .
الأمر ) Save Form ( لاخ ين النافذة فبط.
الأمر ) Save Form as ( لاخ ين النافذة فبط نايرم آخور
أو في موةع آخر.
الأمووور ) Save project ( لاخووو ين الملوووروا نالمامووول
)النافذة والكنامو(.
الأمور ) Save project as ( لاخو ين الملوروا نالمامول
نايرم آخر أو في موةع آخر.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 24 ( نسخة مجانية للجميع
. ةائمة تحرير ) Edit :)
ومن أهم أوامرها:
أمر البطع )البص( ) Cut .)
أمر النسخ ) Copy .)
أمر النصق ) Paste .)
أمر الإلااء )الحذف( ) Delete .)
أمر الرحو ) Find .)
ج. ةائمة تنفيذ ) Run :)
ااج لهذه البائمة عند لآجراء تنفيذ لنكنامو وتلمل:
الأمر ) Start ( لردأ تنفيذ الكنامو.
الأمر ) End ( لإنهاء تنفيذ الكنامو.
الأمر ) Restart ( لإعادة تنفيذ الكنامو.
نالإضافة لآل مجموعة أخر. من البوائم تحاوي وظائف مخانفة.
5. سريط الأدوات ) Tool bar :)
ناوووي هووذا اللووريط عنووى مجموعووة موون الأزرار المخاصوورة لنوصووول لآ ل الأواموور كووث ة
الايراخدام مثل:
- زر الاخ ين )الحفظ(.
- زر نداية تنفيذ الكنامو.
- زر لآنهاء تنفيذ الكنامو.
- زر النسخ.
- زر البص.
- زر النصق.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 25 ( نسخة مجانية للجميع
9. لآطار الملروا ) Project window :)
توفر هذه النافذة زرين هما:
- زر عورم الكنوامو ) View code (: لعورم سوفرة
الكنامو.
- زر عرم النافوذة ) View object (: لعورم نافوذة
أو نموذج الكنامو.
كيف يام تنفيذ الكنامو عنى جهاز الحايرو :
ةرل تنفيذ الكنامو يجب عمل الاالي:
.1 كاانة الكنامو نالمامل عنى ورق.
.2 تلايل جهاز الحايرو ثم نلال نرنامو فيجوال نيسك ونفاح منف جديد.
.3 ننبر نبرا م دوجوا عنوى نافوذة
النمووذ ج عنودها تظهور نافوذة
تحريووووور الكنوووووامو الخاصوووووة
نماانووة الكنووامو أو الاعووديل
فيووووه كمووووا في الصووووورة ص
.)87(
.4 نبوول الكنووامو موون الورةووة لآل
النافذة المذكورة.
ملاحظات هامة:
.1 توجود خاصوية في مرنوع الخصوائص نايروم ) Auto Redraw ( نبوم نااي ها من ) False ( لآل ) True )
حاووى يوواممن الكنووام و موون الماانووة عنووى النافووذة
مراسوورة وذلووك فبووط في حالووة وجووود أموور الطراعووة
( Print ( في الكنامو.
.2 لا حاجة لماانة الأمر ) End ( لأنه موجود أصح نصياة ) End sub .)
.3 لانفيووذ الكنووامو ننبوور الوو ر ) Run ( موون ةائمووة الانفيووذ أو سووريط الأدوات أو نضوواط
المفااح ) F5 ( من لوحة المفاتيح.
.4 في حالة ما يراد تعديل أو تطوير الكنامو فإنه يجب لآيباف تنفيذه أولا.
.5 في حالة وجود أخطاء لآمحئية أثناء كاانة الكنامو يفضل تصوحيحها أولا ةرول اللوروا
في الانفيذ أو الانابال لآل جمنة أخر..
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 29 ( نسخة مجانية للجميع
تخزين البرنامج:
تأتي هذه المرحنة في العادة نعد كاانة الكنامو وتام كما يني:
.1 النبر عنى البائمة ) File ( ونخاار منها ) Save project .)
.2 نماب ايرم النافذة المنايرب ثم ننبر ال ر ) save .)
.3 نماب ايرم الكنامو المنايرب.
.4 النبر عنى ال ر ) save .)
ملاحظات:
يجب أ يام لآيباف تنفيذ الكنامو ةرل اللروا في الاخ ين.
يفضل تسمية الكامو نأسماء ذات عحةة نالهدف منها ليسهل تذكرها.
امتدادات )ملحق( ملفات البرنامج:
نعد تخ ين الملروا يامو لدينا منفين نالامادادين الااليين:
- الاماداد ) frm ( يضاف لآل ايرم منف النموذج )النافذة(.
- الاماداد ) vbp ( يضاف لآل ايرم منف الكنامو )اللفرة(.
ولآضافة هذين الامادادين لآل منفات الملروا تام نلمل تنبائي من ةرل نرنامو فيجوال نيسك.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 27 ( نسخة مجانية للجميع
الباب الرابع: إدخال وإخراج البيانات
يهوودف هووذا الرووا لآل تبووديم نعووض الأدوات الووتي تمموون المسوواخدم موون لآدخووال ولآخووراج
الريانات نلمل عام ونالاالي يمو الكنامو ذا صفة عمنية أكك.
أولا: دالة الإدخال ) Inputbox :)
تعمل هذه الدالة عنى لآدخال ةيمة لأي ماا في الكنامو أثناء وةت تنفيذ الكنامو وتمانوك
اللمل العام الاالي:
V = InputBox("ريرالة منايررة ")
حيو:
V : ماا في الكنامو.
مثل:
L = InputBox("أدخل طول ضنع المساطيل ")
يناو عنها ظهور النافذة الاالية:
ملاحظة هامة:
يجوب الانارواه لآل تحديود نووا المواا في هوذه الدالوة ولآلا فإنوه يرويعامل كمواا مون النووا
الحرفي ) string ( وليس المر .
مثال : أكاب نرنامو لبراءة عدد وطراعة ترنيعه
الحل:
المعطيات: عدد ) n .)
المطنو : طراعة ترنيعه ) a .)
الكنامو المطنو :
Private Sub Form_Load)(
n% = InputBox )"أدخل العدد"(
a% = n% * n%
Print a% , "تربيع العدد هو "
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 28 ( نسخة مجانية للجميع
مثال : أكاب نرنامو لبراءة طول وعرم مساطيل وحسا وطراعة مساحاه ومحيطه
الحل:
المعطيات: طول المساطيل ) x ( عرم المساطيل ) y .)
المطنو : حسا المساحة ) a ( وا يط ) c ( حيو:
a = x * y
c = (x + y) * 2
الكنامو المطنو :
Private Sub Form_Load)(
x! = InputBox )"أدخل الطول"(
y! = InputBox )"أدخل العرض"(
a! = x! * y!
c! = (x! + y!) * 2
Print a! , "مساحة المستطيل "
Print c! , "محيط المستطيل "
End Sub
مثال )% : أكاب نرنامو لحسا ةيمة ال كاة عنى مرنغ مالي عنما نأ نسرة ال كاة هي ) 215
الحل:
المعطيات: مرنغ مالي ) x .)
المطنو : حسا ةيمة ال كاة ) y ( حيو:
y = x * 2.5 / 100
الكنامو المطنو :
Private Sub Form_Load)(
x! = InputBox )"أدخل قيمة المبلغ المالي"(
y! = x! * 2.5 / 100
Print x! , "قيمة المبلغ المالي "
Print y! , "قيمة الزكاة على هذا المبلغ "
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 26 ( نسخة مجانية للجميع
ثانيا: مربع النص ) Text Box :)
يسوواخدم مرنووع الوونص كووأداة لآدخووال أو لآخووراج لبوويم موواا ات الكنووامو وينووو عوون أموور
الطراعة ) Print ( في الكنامو.
مححظات:
يفضل دائما ريرم مرنع النص ةرل كاانة اسمه في الكنامو.
الصياة العامة لايراخدام مرنع النص في الإخراج هي كالاالي:
Text1.text = ايرم الماا
حيو:
Text1.text : الخاصية التي عن طريبها نساطيع الماانة في مرنع النص.
مثال : أكاب نرنامو لاحويل مساةة مبايرة نالأميال لآل المينومترات عنما نأ :
1 ميل = 119163 كينو متر وذلك نايراخدام دالة الإدخال ومرنع النص في الإخراج
الحل:
المعطيات: مسافة مبايرة نالأميال ) Miles .)
المطنو : تحويل هذه المسافة لآل كينومترات ) Km .)
أولا: تصميم نافذة الكنامو:
ثانيا: الكنامو المطنو :
Private Sub Form_Load)(
Miles! = InputBox )"أدخل المسافة بالأميال"(
km! = Miles! * 1.6093
Text1.text = km!
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 31 ( نسخة مجانية للجميع
ثالثا: أداة الوصف ) Label :)
تساخدم هذه الأداة لماانة وصف نصي لمخرجات أو مودخحت نافوذة الكنوامو وهوي أداة
تمو مرافبة لمرنع النص في الاالب.
والوصف في هذه الأداة يممن كااناه نطريباين:
1. عن طريق النموذج )من مرنع الخصائص(:
حيوووو يوووام تحديووود أداة الوصوووف نوووالنبر عنيهوووا أولا ثوووم
الوذها لآل مرنوع الخصوائص أموام الخيوار ) caption ( ونماوب
الاوضيح المنايرب.
2. عن طريق الكنامو:
سرط أ يام ريرم الأداة أولا ثم نماب السطر الاالي في الكنامو:
Label1.caption = "الاوضيح المنايرب "
ملاحظة:
الترةيم في أسماء الأدوات المدرجة عن وى ناف وذة الكن وامو ي واحمم ن وه نرن وامو فيجووال نيسوك
نلوومل تنبووائي ويمموون تاووي أسموواء هووذه الأدوات يسووب مووا ينايرووب المووكمو موون الخاصووية
( Name ( في مرنع الخصائص.
مثووال : أكاووب نرنووامو لبووراءة عووددين وطراعووة حاصوول جمعهووا نايروواخدام مرنووع الوونص وكاانووة
توضيح المخرجات المنايرب
الحل:
المعطيات: عددين ) A ( ) B .)
المطنو : لآيجاد حاصل جمعهما ) C .)
أولا: تصميم نافذة الكنامو:
نححظ أنه د كاان وة الاوضويح في أداة الوصوف وايروم الناف وذة أيضوا عون طريب وة الخاصوية
( Caption ( من مرنع الخصائص.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 31 ( نسخة مجانية للجميع
ثانيا: الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لإيجاد حاصل جمع عديين
A! = InputBox )"أدخل العدد الأول"(
B! = InputBox )"أدخل العدد الثاني"(
C! = A! + B!
Text1.text = A!
Text2.text = B!
Text3.text = C!
End Sub
ونححظ ناتو تنفيذ الكنامو كما في النافذة الاالية:
مثال 3 أكاب نرنامو : : تفاهم سريما في ملروا اةاصادي نابسيم العائد نينهما ننسرة 1
لبراءة العائد وتبسيمه نينهما ايراخدم دالة الإدخال ومرنع النص وأداة الوصف
الحل:
المعطيات: عائد ملروا اةاصادي ) A .)
المطنو : حسا نصيب الأول) x1 ( والثاني ) x2 ( ييو:
x1 = 1/4 * A
x2 = 3/4 * A
أولا: تصميم نافذة الكنامو:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 32 ( نسخة مجانية للجميع
ثانيا: الكنامو المطنو :
Private Sub Form_Load)(
Rem قام بكتابة هذا البرنامج المهدي جبريل
A! = InputBox )"أدخل عائد المشروع الاقتصادي"(
x1! = 1/4 * A!
x2! = 3/4 * A!
Form1.caption = "تقسيم عائد مشروع اقتصادي "
Label1.caption = "عائد المشروع "
Label2.caption = "نصيب الأول "
Label3.caption = "نصيب الثاني "
Text1.text = A!
Text2.text = x1!
Text3.text = x2!
End Sub
نححظ هنا أ الاعنيق في أداة الوصف د كااناه من خحل الكنامو وكذلك عنوا نافوذة
الكنامو والنافذة الاالية ترين ناتو تنفيذ الكنامو:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 33 ( نسخة مجانية للجميع
الباب الخامس: جمل التحكم
تهدف جمل الاحمم نلمل عام لآل لآحاز العروارات المنطبيوة ويوجود سومنين أيرايروين
لهذه الجمل في الفيجوال نيسك هما:
- جمنة )لآذا كا ولآلا( ) – If – then - else .)
- هيمل الاخايار الماعدد ) Select case .)
أولا: جملة ) إذا كان وإلا () – If – then - else :)
تأخذ هذه الجمنة اللمل العام الاالي:
If (سرط منطبي ) then
جمنة أو أكثر
Else
جمنة أو أكثر
End if
في حالووة تحبووق اللوورط المنطبووي ) True ( يروويام تنفيووذ مجموعووة الجموول الووتي تووأتي نعوود
المنموة ) Then ( وفي حالوة عودم تحببوه ) False ( يرويام تنفيوذ مجموعوة الجمول الوتي توأتي نعود
المنمة ) else .)
مححظة هامة:
ليس من الضروري أ تحاوي جمنة ) If ( عنى ) else ( ونالاالي يرامو جمنة ) If ( ناللمل العوام
الاالي:
If (سرط منطبي ) then
جمنة أو أكثر
End if
مثال : أكاب نرنامو يبوم نبراءة ةيماين ويطرع أككهما
الحل:
المعطيات: ةيماين ) A ( ) B .)
المطنو : لآيجاد أكك ةيمة من نينهما ) Max ( ييو:
لآذا كانت ) A>B ( لآذاً
Max = A
ولآلا
Max = B
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 34 ( نسخة مجانية للجميع
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لإيجاد العدد الأكبر من بين عديين
A! = InputBox )"أدخل العدد الأول"(
B! = InputBox )"أدخل العدد الثاني"(
If (A! > B!) then
Max! = A!
Else
Max! = B!
End if
Print Max!, "العدد الأكبر "
End Sub
3( ناجووت وعنوود اخارووار الكنووامو نووالبيماين ) 11
النافذة الاالية:
رموز العمليات المنطقية:
يممن حصر العمنيات المنطبية نالجدول الاالي:
الرمز المعنى
>أكبر من
<أصغر من
>=أكبر من أو يساوي
<=أصغر من أو يساوي
=
يساوي
<>لا يساوي
ملاحظة: نححظ أ معنى العمنيوات المنطبيوة أخوذ ن وأ هوذه العمني وات مماون وة نالنا وة الإحني ي وة
وهي الناة التي تماب نها الكامو في نيوة الكمجة فيجوال نيسك.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 35 ( نسخة مجانية للجميع
مثال : أكاب نرنامو لحسا ةيمة الضوريرة عنموا نوأ : الضوريرة = 1 لآذا كوا الودخل السونوي
أةل من 9111 دينار والضريرة = 5% من ةيمة الدخل السنوي لآذا كوا هوذا الودخل أكوك مون أو
يساوي 9111 دينار ايراخدم مرنع النص وأداة الوصف
الحل:
المعطيات: دخل يرنوي ) income .)
المطنو : حسا ةيمة الضريرة ) tax ( ييو:
لآذا كانت ) income >= 6000 ( لآذاً
tax = income * 5 / 100
ولآلا
tax = 0
أولا: تصميم نافذة الكنامو:
ثانيا: الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لحساب ضريبة الدخل السنوي
income! = InputBox )"أدخل الدخل السنوي"(
If (income! >= 6000) then
tax! = income! * 5 /100
Else
tax! = 0
End if
Text1.text = income!
Text2.text = tax!
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 39 ( نسخة مجانية للجميع
وعنووود تنفيوووذ الكنوووامو وافوووترام
الدخل السنوي نبيمة ) 9111 دينوار( ناجوت
النافذة الاالية:
مثال : أكاوب نرنو امو لحسوا تمواليف ف ور أرضوية مرن وى يي وو ي وام لآدخوال مسواحة الف ور
نووالمتر المرنووع مووع العنووم أ تمنفووة المووتر المرنووع الواحوود 11 دينووار وهنوواك خصووم ) 12 %( لآذا كانووت
المايرحة أكثر من 151 متر مرنع
الحل:
المعطيات: مساحة فر أرضية ) A .)
المطنو : حسا تمنفة الفر ) T ( ييو:
لآذا كانت ) A>150 ( لآذاً
T = (A * 10) (1 – 0.12)
ولآلا
T = (A * 10)
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لحساب تكاليف فرش أرضية
A! = InputBox )"أدخل مساحة الفرش"(
If (A! >150) then
T! = (A! * 10) * (1 – 0.12)
Else
T! = A! * 10
End if
Label1.caption = "مساحة الفرش "
Label2.caption = "تكلفة الفرش "
Text1.text = A!
Text2.text = T!
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 37 ( نسخة مجانية للجميع
الروابط المنطقية:
تهدف الروانط المنطبية لرنط سرطين أو أكثر لارم تبنيص عدد المبارنات في الكنامو
وياواجد منها نوعين رئيسين في لاة فيجوال نيسك هما كالاالي:
1. الرابط المنطقي ) AND ( )بمعنى "و"(:-
يرنط نين عرارتين منطباين ) E1 ( و ) E2 ( لاناو عرارة منطبية جديدة ) E3 ( كالاالي:
E3 = E1 AND E2
لآذا كانت كح العرارتين ) E1 E2 ( صحيحاين ) True ( فإ ناتو العرارة ) E3 ( يريمو
صحيحا ولآلا فإ ناتو العرارة يريمو غ صحيح ) False .)
جدول عرارة ) AND :)
E1
E2
E3 = E1 AND E2T
T
T
F
F
T
F T
F
F F
F
مثل:
1. (4 > 3) AND (3 > 2) T
2. (6 < 5) AND (10 > 9) F
2. الرابط المنطقي ) OR ( )بمعنى "أو"(:-
يرنط نين عرارتين منطباين ) E1 ( و ) E2 ( لاناو عرارة منطبية جديدة ) E3 ( كالاالي:
E3 = E1 OR E2
لآذا كانووت كووح العرووارتين ) E1 E2 ( غوو صووحيحاين ) False ( فووإ نوواتو العرووارة ) E3 )
يريمو غ صحيح ولآلا فإ ناتو العرارة يريمو صحيح ) True ( دائما.
جدول عرارة ) OR :)
E1
E2
E3 = E1 OR E2T
T
T
TF
TF T
TF F
F
مثل:
1. (-5 > 0) OR (3 > 8) F
2. (6 < 5) OR (10 > 9) T
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 38 ( نسخة مجانية للجميع
مثال : أكاب نرنامو لطراعة أكك ةيمة من نين ثحثة ةيم ايراخدم مرنوع الونص وأداة الوصوف
في نافذة الكنامو
الحل:
المعطيات: ثحثة ةيمة ) A, B, C .)
المطنو : لآيجاد أكك ةيمة من نين الثحثة ييو:
لآذا كانت ) A>B ( و ) A>C ( لآذا
Max = A
ولآلا لآذا كانت ) B>A ( و ) B>C ( لآذا
Max = B
ولآلا
Max = C
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لإيجاد أكبر قيمة من بين ثلاثة
A! = InputBox )"أدخل العدد الأول"(
B! = InputBox )"أدخل العدد الثاني"(
C! = InputBox )"أدخل العدد الثالث"(
If (A! > B!) AND (A! > C!) then
Max! = A!
Else
If (B! > A!) AND (B! > C!) then
Max! = B!
Else
Max! = C!
End if
End if
Label1.caption = "العدد الأكبر "
Text1.text = Max!
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 36 ( نسخة مجانية للجميع
ثانيا: جملة الاختيار المتعددة )هيكل الاختيار( ) Select case :)
تخانووف هووذه الجمنووة اللوورطية عوون جمنووة ) If ( موون حيووو عوودد الافرعووات فجمنووة ) If )
اللرطية تامو من تفرعين فبط في حين الهيمل الاخايار ناوي عدة تفرعات.
ملاحظة:
يممون لآضوافة تفور ا نايروم ) Case else ( في جمنوة الا خايوار الماعودد ييوو تموو آخور
تفرا فإذا ى تاوافق جميع مبارنات الفروا السانبة يام النجوء لهذا الافرا والذي عادة ما ناووي
عنى تنريه لخطأ في الإدخال.
مثال : أكاب نرنامو يبرأ حرف ويطرع الاالي:
- كنمة ) Red ( لآذا كا الحرف ) R .)
- كنمة ) Blue ( لآذا كا الحرف ) B .)
- كنمة ) Green ( لآذا كا الحرف ) G .)
ايراخدم جمنة الاخايار مرة وجمنة ) If ( مرة أخر. .
الحل:
أولا: نايراخدام جمنة ) If ( اللرطية:
Private Sub Form_Load)(
Rem هذا البرنامج باستخدام جملة إذا كان والا -
C = InputBox("G أو B أو R أدخل الحرف ")
If (C = "R") OR (C = "r") then
Print "Red"
else
If (C = "B") OR (C = "b") then
Print "Blue"
else
If (C = "G") OR (C = "g") then
Print "Green"
else
Print "اختيار خاطئ "
End if
End if
End if
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 41 ( نسخة مجانية للجميع
ثانيا: نايراخدام جمنة الاخايار الماعدد:
Private Sub Form_Load)(
Rem هذا البرنامج باستخدام جملة الاختيار المتعدد
C = InputBox("G أو B أو R أدخل الحرف ")
Select case C
Case "R", "r"
Print "Red"
Case "B", "b"
Print "Blue"
Case "G", "g"
Print "Green"
Case else
Print "اختيار خاطئ "
End select
End Sub
يعاووك هووذا الكنووامو مخاصوور وأيسوور في الاارووع مبارنووة نالكنووامو المماووو منووة ) If )
اللرطية.
مثال : أكاب نرنامو لطراعوة الاب ودير نن واءا عن وى المع ودل ال وذي تحصول عني وه الطال وب نع ود أ ت وام
ةراءته كالاالي:
- . ضعيف: المعدّل أكك من صفر وأصار من 51
- . مبرول: المعدّل أكك من أو يساوي 51 وأصار من 95
- . جيد: المعدّل أكك من أو يساوي 95 وأصار من 75
- . جيد جدا: المعدّل أكك من أو يساوي 75 وأصار من 85
- . ممااز: المعدّل أكك من أو يساوي 85 وأصار أو يساوي 111
نايراخدام جمنة الاخايار الماعدد
الحل:
المعطيات: معدل طالب ) G .)
المطنو : طراعة الابدير نناءا عنى المرين في المثال.
لأ المعدل هو ةيمة عددية كسورية يرنسواخدم أداة ) Is ( لالومل جميوع الأجو اء المسورية
لنبيم.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 41 ( نسخة مجانية للجميع
الكنامو المطنو نايراخدام جمنة الاخايار الماعدد:
Private Sub Form_Load)(
Rem هذا البرنامج لطباعة تقدير الطالب بناءا على المعدل
G! = InputBox("أدخل معدل الطالب ")
Select case G!
Case Is < 50
Print "ضعيف "
Case Is < 65
Print "مقبول "
Case Is < 75
Print "جيد "
Case Is < 85
Print "جيد جدا "
Case Is < 100
Print "ممتاز "
Case else
Print "معدل خاطئ "
End select
End Sub
مثال : أكاب نرنامو يبرأ ةيم واين ويجوري لآحود. العمني وات الحسوانية عنيه وا نن واءا عن وى اخاي وار
المساخدم ايراخدم مرنع النص وأداة الوصف في تصميم نافذة الكنامو
الحل:
المعطيات: ةيماين ) B,A .)
المطنو : لآجراء لآحد. العمنيات الحسانية الأرنعة عنى البيماين نناءا عنى طنب المساخدم.
أولا: تصميم نافذة الكنامو:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 42 ( نسخة مجانية للجميع
ثانيا: الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج كتب بتاريخ 2118
A! = InputBox("أدخل القيمة الأولى ")
B! = InputBox("أدخل القيمة الثانية ")
C = InputBox(" إختر العملية الم ا رد عملها: + * / - ")
Select case C
Case "+"
T! = A! + B!
M$ = "ناتج الجمع "
Case "-"
T! = A! - B!
M$ = "ناتج الطرح "
Case "*"
T! = A! * B!
M$ = "ناتج الضرب "
Case "/"
T! = A! / B!
M$ = "ناتج القسمة "
Case else
T! = 0
M$ = "اخترت عملية خاطئة "
End select
Label1.caption = "القيمة الأولى "
Text1.text = A!
Label2.caption = " القيمة الثانية "
Text2.text = B!
Label3.caption = M$
Text3.text = T!
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 43 ( نسخة مجانية للجميع
الباب السادس: الحلقات
تهدف الحنب وات نلومل عوام لآل تمورار عم ول مع وين عودد م ون الم ورات أو وف وق سورط مع وين
ياحبق هذا الامرار يام نسرعة عالية جدا.
ومن أهم أنواا هذه الحنبات:
.1 حنبة )من لآل( ) – For - Next .)
.2 حنبة )نفذ طالما( ) – Do - While .)
.3 حنبة )نفذ حاى( ) – Do - Until .)
أولا: حلقة )من إلى( ) – For - Next :)
تمانك هذه الحنبة اللمل العام الاالي:
For i = n to m step x
عمل معين يراد تمراره )جمنة أو أكثر(
Next i
حيو:
i : عداد الحنبة )دليل الدورة(.
n : ةيمة نداية العدّ.
m : ةيمة نهاية العدّ أو الاوةف.
x : ةيمة خطوة العدّاد.
مثال - ) : أكاب نرنامو لطراعة الأعداد ال وجية ا صورة نين ) 51 1
الحل:
.) ااج هنا لآل عداد يردأ من الصفر وي داد بخطوة ةدرها ) 2( وياوةف عند البيمة ) 51
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج يطبع الأعداد الزوجية من 1 إلى 51
For k = 0 to 50 step 2
Print k;
Next k
End sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 44 ( نسخة مجانية للجميع
ناتو تنفيذ الكنامو:
ملاحظة:
نححظ هنا أ الطراعة ماحصبة وفي يرطر واحد وهذا يرجع لنفاصنة المنبوطة الموضوعة
في نهاية أمر الطراعة نداخل الحنبة.
مثال : أكاب نرنامو لحسا مريعات محل لمدة أيرروا واحد من مريعات يومية
الحل:
المعطيات: مريعات يومية لمدة أيرروا واحد ) d .)
المطنو : حسا لآجمالي مريعات الأيرروا ) Sum .)
.) ااج هنا لآل عداد يردأ من واحد وي داد بخطوة ةدرها ) 1( وياوةف عند البيمة ) 7
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لحساب مبيعات محل لمدة أسبوع واحد
Sum! = 0
For i = 1 to 7
d! = InputBox("أدخل مريعات اليوم ")
Sum! = Sum! + d!
Next i
print sum!, "لآجمالي مريعات الأيرروا "
End sub
ملاحظة:
عنودما يموو ةيموة خطووة العود نالبيموة ) 1( فوح داعوي لماانوة هوذه البيموة في الحنبوة
ونالاوالي فوإ ذلوك يعوني أنوه لآذا ى يوام تحديود ةيموة الخطووة في الحنبوة ) For ( يرويعاكها فيجووال
.) نيسك نبيمة ) 1
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 45 ( نسخة مجانية للجميع
مثال : أكاب نرنامو يبرأ درجات ) n( من الطنرة ويطرع أكك درجة
الحل:
المعطيات: درجات ) n ( من الطنرة.
المطنو : لآيجاد أكك درجة من نين تنك الدرجات ) Max .)
نححظ هنا أننا ااج لآل ةيمة ) n ( لذلك يرنساخدم دالة الإدخال لبراءتها.
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لإيجاد أكبر درجة طالب
Max! = 0
n! = InputBox("أدخل عدد الطنرة ")
For i = 1 to n
d! = InputBox(" أدخل درجة الطالب ")
if (d! > Max!) then
Max! = d!
End if
Next i
Label1.caption = "أكك درجة "
Text1.text = Max!
End sub
مثال : أكاب نرنامو يبرأ درجات وأسماء 11 طوح ويطروع فبوط درجوات وأسمواء ذوي الابودير
الممااز
الحل:
المعطيات: أسماء ودرجات 11 طح :
المطنو : طراعة أسماء ودرجات ذوي الابدير الممااز.
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لإيجاد أكبر درجة طالب
For i = 1 to 10
Name$ = InputBox("أدخل ايرم الطالب ")
d! = InputBox("أدخل درجة الطالب ")
if (d! >= 85) then
Print Name$, d!
End if
Next i
End sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 49 ( نسخة مجانية للجميع
مثال : أكاب نرنامو يطرع اللمل الاالي:
1 2 3 4 5 6
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1
الحل:
ااج في مثل هذه الحالات لآل حنباين ماداخناين الخارجيوة لعود السوطور والداخنيوة لعود
الأعمدة.
.) عدد الأيرطر ) 9( لذلك فإ حنبة السطور يراردأ نالبيمة ) 1( وتناهي نوالبيمة ) 9
عدد الأعمدة أو الرم ووز في كول يروطر يان واةص في كول يروطر نرم و واحود ل وذلك يرويردأ
نالبيمة ) 9( وهي عدد الرموز في السطر الأول ويناهي نالبيمة ) 1( وهي عدد رموز آخر يرطر.
الكنامو المطنو :
Private Sub Form_Load)(
Rem مثال على تداخل الحلقات
n = 6
For i = 1 to 6
For j = 1 to n
Print j;
Next j
n = n – 1
Next i
End sub
اللمل الناتو نعد تنفيذ الكنامو:
لآذا كا اللمل المطنو طراعاه كما يني:
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
1 2 3 4 5 6
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 47 ( نسخة مجانية للجميع
هنا عدد الأعمدة أو الرموز في كل يرطر ي داد في كول يروطر نرمو واحود لوذلك يرويردأ
نالبيمة ) 1( وهي عدد الرموز في السطر الأول ويناهي نالبيمة ) 9( وهي عدد رموز آخر يرطر.
وفي حالة كا اللمل المطنو طراعاه كالاالي:
* * * * * *
* * * * *
* * * *
* * *
* *
*
فإنه فبط يام تاي أمر الطراعة ) Print j; ( لآل الأمر ) Print "*"; .)
مثال : أكاب نرنامو لطراعة اللمل الاالي:
A B B
B A B
B B A
الحل:
هنوا أيضوا اواج لآل حنبواين حنبوة لنسوطور وأخور. ل عمودة ولمون يجوب الرحوو عون
عحةة منطبية في اللمل نالإجانة عنى السؤال: ماى يطرع ) A ( وماى يطرع ) B . )
في هذا اللمل نححظ أنه كنما تساو. رةم السطر ورةوم العموود طروع الرمو ) A ( ولآلا
فإنه يطرع الرم ) B .)
الكنامو المطنو :
Private Sub Form_Load)(
Rem مثال على تداخل الحلقات
For i = 1 to 3
For j = 1 to 3
if (i = j) then
print "A",
else
print "B",
end if
Next j
Next i
End sub
ناتو تنفيذ الكنامو:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 48 ( نسخة مجانية للجميع
ثانيا: حلقة )نفذ طالما( ) – Do - While :)
تعمل هذه الحنبة عنى تمرار تنفيذ عمل معين طالما ياحبق سرط معوين وتأخوذ اللومل
العام الاالي:
Do While (سرط منطبي )
عمل معين يراد تمراره )جمنة أو أكثر(
loop
حيو:
)سرط منطبي(: هو سرط ايرامرار الحنبة.
loop : نهاية الحنبة.
ملاحظة:
يممن تحوير هذه الحنبة لاعمل عمل حنبوة ) For ( حيوو يوام تعويين مواا نبيموة مردئيوة
لنعد وسرط ايرامرار وةيمة زيادة لنعداد.
مثال : أكاب نرنامو لطراعة الأعداد من ) 21 1 ( نايراخدام حنبة )نفذ طالما( – -
الحل:
الكنامو المطنو :
Private Sub Form_Load)(
Rem مثال على حلق نفذ حتى -
C = 1
Do While (C<=20)
Print C;
C = C + 1
Loop
End sub
وعند تنفيذ الكنامو تظهر النافذة الاالية:
مثال : أكا وب نرن وامو لحسوا ماويروط درجوات مجموعوة طوح في م وادة الحايروو عنموا نوأ
عدد الطنرة غ معنوم وياوةف الكنامو عند لآدخال درجة يرالرة
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 46 ( نسخة مجانية للجميع
الحل:
المعطيات: درجات مجموعة من الطح غ معنومي العدد.
المطنو : الماويرط الحساني لدرجاتهم ) ave .)
نححوظ هنوا أ عودد الطنروة غو معنووم لوذلك لا يممون ايرواخدام دالوة البوراءة وحاوى يوام
لآيجاد الماويرط الحساني لدرجات الطح يجب أولا لآيجاد حاصول جموع درجواتهم ثوم عودد الطوح
الذين د جمع درجاتهم لذلك ااج لآل ماا ين هما:
( n ( عداد لعد المواد التي يام جمعها.
( sum ( ماا لجمع ةيمة جميع الدرجات المدخنة.
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج يتوقف عند إدخال درجة سالبة
n% = 0
Sum! = 0
g! = InputBox("أدخل درجة الطالب ")
Do While (g!>=0)
Sum! = Sum! + g!
n% = n% + 1
g! = InputBox("أدخل درجة يرالرة لناوةف ")
Loop
Ave! = Sum! / n%
Print Ave!," الماويرط الحساني لدرجات الطح "
End sub
ملاحظة هامة:
عحمة البسمة )/( تعيد ناتو كسري مثل:
3 / 2 = 1.5
عحمة البسمة )\( تعيد الج ء الصحيح لناتو البسمة مثل:
3 \ 2 = 1
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 51 ( نسخة مجانية للجميع
ثالثا: حلقة )نفذ حتى( ) – Do - Until :)
تعموول هووذه الحنبووة عنووى تموورار تنفيووذ عموول معووين لآل أ ياحبووق سوورط معووين لووذلك هووذا
اللرط يسمى سرط توةف وتأخذ هذه الحنبة اللمل العام الاالي:
Do Until (سرط منطبي )
عمل معين يراد تمراره )جمنة أو أكثر(
loop
حيو:
)سرط منطبي(: هو سرط توةف الحنبة.
loop : نهاية الحنبة.
مثال : أكاب الكنامو يبوم مع أعداد موجرة وياوةف عند لآدخال ةيمة يرالرة
الحل:
المعطيات: مجموعة أعداد موجرة ياوةف لآدخالها عند لآدخال ةيمة يرالرة.
المطنو : لآيجاد حاصل جمع الأعداد الموجرة ) sum .)
الكنامو المطنو :
Private Sub Form_Load)(
Rem مثال على حلق نفذ طالما -
Sum! = 0
y! = 0
Do Until (y! < 0)
Sum! = Sum! + y!
y! = InputBox("أدخل ةيمة يرالرة لناوةف ")
Loop
Label1.caption = "مجموا البيمة الموجرة "
Text1.text = Sum!
End sub
ملاحظة حول الحلقات بشكل عام:
.1 اللرط في حنبة )نفذ طالما( سرط ايرامرار نينما في حنبة )نفذ حاى( سرط توةف. – –
.2 يممن لآعادة كاانة الكنامو المماو ينبة )نفوذ طالموا( نايرواخدام حنبوة )نفوذ حاوى( - -
وياطنوب ذلوك كاانوة ايروم الحنبوة ) Until - While ( وتاوي اللورط مون سورط توةوف لآل سورط
ايرامرار أو العمس.
.3 يممن لآعادة كاانة الكنامو من حنبوة ) for ( لآل أي حنبوة سورطية والعموس غو صوحيح
حيو يممن ايراخدام حنبوة ) for ( فب وط في حال وة عنمن وا عودد م ورات الامورار ونداي وة ونهاي وة الع ود
وةيمة ال يادة.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 51 ( نسخة مجانية للجميع
الباب السابع: المصفوفات
ما هي المصفوفة؟
هي مجموعة من الريانات أو العناصر ذات نوا واحد وتحت ايرم واحد.
كل عنصر من عناصر المصفوفة ياطنب موةع )خنية( في ذاكرة الجهاز.
مثل: مصفوفة أيام الأيرروا مصفوفة الجدول الدرايروي ... الخ جميعهوا مصوفوفات يممون –
تخ ينها في ذاكرة الجهاز تخ ينا مؤةاا ياحسى نعد لآيباف تنفيذ الكنامو.
وفي هذا الرا يرناعرم لنوعين هما: مصفوفة ذات الرعد الواحد ومصفوفة ذات الرعدين.
أولا: مصفوفة البعد الواحد ) One dimensional :)
هي مصفوفة عناصرها لآما في صف واحد أو في عمود واحد.
ثانيا: مصفوفة البعدين ) Tow dimensional :)
هي مصفوفة مرترة في أكثر من عمود وأكثر من صف.
مصفوفة ذات بعد واحد في صف واحد وعناصرها ) 5 )
مصفوفة ذات بعد واحد في عمود واحد وعناصرها ) 5 )
خلية
مصفوفة ذات بعدين بحجم ) 4 * 5 ) – أي 4 صفوف و 5 أعمدة - تحتوي على 20 خلية أو عنصر
عمود
صف
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 52 ( نسخة مجانية للجميع
حجز مواقع المصفوفة في الذاكرة:
وهي أو خطوة يجب البيام نها عند ايراعمال المصفوفة في الكنامو ويام ذلك كما يني:
أ. حجز مواقع المصفوفة الأحادية البعد:
Dim a (n) as Type
حيو:
Dim : كنمة محجوزة في فيجوال نيسك اخاصار لمنمة ) Dimension .)
a : ايرم المصفوفة.
n : عدد عناصر المصفوفة.
Type : نوا عناصر المصفوفة.
ب. حجز مواقع المصفوفة ثنائية البعد:
Dim a (n, m) as Type
حيو:
Dim : كنمة محجوزة في فيجوال نيسك اخاصار لمنمة ) Dimension .)
a : ايرم المصفوفة.
n : عدد الصفوف في المصفوفة.
m : عدد الأعمدة في المصفوفة.
Type : نوا عناصر المصفوفة.
أمثنة:
1. Dim number(10) as integer
تحج ) 11 ( مواةع لنمصفوفة ) - number ( من النوا الصحيح ) integer .)
2. Dim cost(25) as single
تحج ) 25 ( موةع لنمصفوفة ) - cost ( من النوا المسري ) single .)
3. Dim table(5,7) as string
تحج ) 35 ( موةع لنمصفوفة ) - table ( من النوا الحرفي ) string .)
4. Dim x(50)
تحج ) 51 ( موةع لنمصفوفة ) - x ( من النوا المر ) variant .)
5. Dim V as single
الإعح عن ماا نايرم ) - V ( من النوا المسري ) single .)
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 53 ( نسخة مجانية للجميع
قراءة وطباعة المصفوفة:
مثال : أكاب نرنامو يبوم نبراءة ) 5( ة ويم ونسوب ماويروطها الحسواني ويطر وع الف ورق ن وين كول
ةيمة والماويرط نايراخدام المصفوفات
الحل:
ااج في هذا المثال لآل:
- مصفوفة ) V .) ( عدد عناصرها ) 5
- ماا ) sum ( حاصل جمع البيم.
- ماا ) ave ( الماويرط الحساني لنبيم.
الكنامو المطنو :
Private Sub Form_Load)(
Rem مثال على ق ا رءة مصفوفة
Dim V(5) As Single
Sum! = 0
For i = 1 to 5
V(i) = InputBox(" أدخل البيمة ")
sum! = sum! + V(i)
Next i
ave! = sum! / 5
for i = 1 to 5
d = V(i) – ave
print V(i),d
Next i
End sub
مثال : أكاب نرنامو يبوم نبراءة أيام الأيرروا وطراعاها نترتيب معموس
الحل:
الكنامو المطنو :
Private Sub Form_Load)(
Rem طباعة أيام الأسبوع بترتيب معكوس
Dim days(7) As Single
days(1) = "السرت "
days(2) = "الأحد "
days(3) = "الاثنين "
days(4) = "الثحثاء "
days(5) = "الأرنعاء "
days(6) = "الخميس "
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 54 ( نسخة مجانية للجميع
days(7) = "الجمعة "
for i = 7 to 1 step -1
print days(i)
Next i
End sub
مثال : أكاب نرنامو لبراءة أسماء وأرةام هواتف ) 11 ( أسخاص وطراعاها نترتيب معموس
الحل:
الكنامو المطنو :
Private Sub Form_Load)(
Rem مثال على ق ا رءة وطباعة مصفوفة
Dim n(5), p(5) As String
for i = 1 to 5
n(i) = InputBox("أدخل الايرم ")
p(i) = InputBox("أدخل الرةم ")
Next i
for i = 1 to 5
print n(i), p(i)
Next i
End sub
مثال : أكاب نرنامو يبوم نبراءة عدد الطنرة ععهد درايري حسب السنة الدرايروية والاخصوص
ثووم يطرووع هووذه الريانووات في جوودول منايرووب ونسووب عوودد الطنرووة في كوول يروونة درايرووية والعوودد
الإجمالي لنطنرة نالمعهد عنما نأ نظام المعهد 3 يرنوات درايرية و 4 تخصصات
الحل:
نداية لنا أ ناصور سمل الجدول المراد طراعاه كالاالي:
السنة الد ا رسية تخصص 1 تخصص 2 تخصص 3 تخصص 4 الإجمالي
سنة أولى
Sum (1)St(1,1)
St(1,2)
St(1,3)
St(1,4)سنة ثانية
Sum (2) St(2,1)
St(2,2)
St(2,3)
St(2,4)
سنة ثالثة
Sum (3) St(3,1)
St(3,2)
St(3,3)
St(3,4)
إجمالي عدد الطلبة
Totalااج لآل مصفوفة رئيسية ) - st ( لاخ ين عدد الطنرة حسب السنة الدرايرية والاخصص.
ااج لآل مصفوفة ) - sum ( لاخ ين عدد الطح حسب السنة الدرايرية.
ااج لآل ماا ) - Total ( لحسا لآجمالي عدد الطنرة.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 55 ( نسخة مجانية للجميع
الكنامو المطنو :
Private Sub Form_Load)(
Rem تمت كتابة هذه البرنامج في العام 2118
Dim st(3,4), sum(3), Total As Integer
Rem في هذه الحنبة يريام ةراءة مصفوفة الطنرة وحسا لآجمالي الطنرة في كل يرنة
for i = 1 to 3
sum(i) = 0
for j = 1 to 4
st(i,j) = InputBox("أدخل الطح حسب السنة والاخصص ")
sum(i) = sum(i) + st(i,j)
Next j
Next i
Rem في هذا الج ء من الكنامو يريام حسا لآجمالي الطنرة نالمعهد
Total = 0
for i = 1 to 3
Total = Total + sum(i)
Next i
Rem في هذا الج ء من الكنامو يريام طراعة الريانات في سمل جدول
Print "الإجمالي "," تخصص 4 "," تخصص 3 "," تخصص 2 "," تخصص 1 "
for i = 1 to 3
Print sum(i),
for j = 1 to 4
Print st(i,j),
Next j
Next i
Print Total, "لآجمالي الطنرة "
End sub
عند اخارار الكنامو نبيم افتراضية كانت نافذة النواتو كالاالي:
مثال : أكاب نرن وامو لاخو ين جودول الاماحان وات وطراعا وه لأيروروا واحود عن وى سومل مصوفوفة
ييو يام لآدخال الريانات كالاالي:
اليوم الاماحا الأول الاماحا الثاني
ثم طراعة هذا الجدول نلمل منايرب
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 59 ( نسخة مجانية للجميع
الحل:
يممن تمثيل جدول الاماحانات وتوزيع رةم العمود والصف عنيه كالاالي:
اليوم الامتحان الأول الامتحان الثاني
(1,3)
(1,2)
(1,1)
(2,3)
(2,2)
(2,1)
(3,3)
(3,2)
(3,1)
(4,3)
(4,2)
(4,1)
(5,3)
(5,2)
(5,1)
(6,3)
(6,2)
(6,1)
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج لتخزين جدول الامتحانات
Dim Table(6,3) As String
Rem في هذه الحنبة يريام ةراءة جدول الاماحانات
for i = 1 to 6
Table(i,3) = InputBox(" أدخل يوم الاماحا ")
Table(i,2) = InputBox("أدخل الاماحا الأول ")
Table(i,1) = InputBox("أدخل الاماحا الثاني ")
Next i
Rem في هذه الحنبة يريام طراعة جدول الاماحانات
Print "جدول الاماحانات "
Print " الثاني "," الأول ","اليوم "
For i = 1 to 6
For j = 1 to 3
Print Table(i,j),
Next j
Next i
End sub
عند تنفيذ الكنامو واخاراره نرعض البيم تظهر النافذة الاالية:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 57 ( نسخة مجانية للجميع
مثال : أكاب نرن وامو لب وراءة أسمواء ودرجوات علورة طوح في م وادة درايروية واحود ويطر وع ايروم
ودرجة الطالب الماحصل عنى أعنى درجة نايراخدام المصفوفات
الحل:
الكنامو المطنو :
Private Sub Form_Load)(
Dim St(10) As String
Dim G(10) As Single
Rem هذا الجزء من البرنامج لق ا رءة أسماء ودرجات الطلاب
for i = 1 to 10
St(i) = InputBox("أدخل ايرم الطالب ")
G(i) = InputBox("أدخل الدرجة ")
Next i
Rem هذا الج ء من الكنامو لفحص أعنى درجة طالب
Max! = 0
For i = 1 to 10
If (G(i) > Max!) then
Max! = G(i)
N$ = St(i)
End if
Next i
Rem هذا الجزء من البرنامج لطباعة أسماء الطلاب والدرجات وصاحب أعلى درجة
Print "الدرجة ","الايرم "
For i = 1 to 10
Print G(i), St(i)
Next i
Print Max, N$, " الطالب الأعنى درجة "
End sub
عند تنفيذ الكنامو واخاراره نرعض البيم تظهر النافذة الاالية:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 58 ( نسخة مجانية للجميع
مثال : لآذا كانت المصفوفة Q(k) تمثل عدد البطوع مون الصونف رةوم k والمصوفوفة P(k) تورين
يرعر البطعة الواحدة من الصنف k أكاب نرنامو يبرأ عدد البطع التي د نيعها مون كول صونف
ويرعر البطعة ثم يطرع الريانات المدخنة ومجموا المريعات نافترام أ عدد الأصناف التي د نيعهوا
) هو ) 12
الحل:
هذا الكنامو ج ء من فاتورة تجارية كالاالي:
رقم متسلسل
( k )
عدد القطع )الكمية(
Q(k)سعر القطعة
P(k)سعر الكمية
PQ(k): : : :
الإجمالي
Total
يرعر البطعة × يرعر الممية = عدد البطع
الكنامو المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج يمثل فاتورة تجارية
Dim P(12), Q(12), PQ(12), Total As Single
for k = 1 to 12
Q(k) = InputBox("أدخل كمية الصنف ")
P(k) = InputBox("أدخل يرعر البطعة ")
PQ(k) = Q(k) * P(k)
Next k
Rem هذا الج ء من الكنامو لحسا لآجمالي الفاتورة
Total = 0
For k = 1 to 12
Total = Total + PQ(k)
Next k
Print "يرعر الممية ", "الممية ", "يرعر البطعة "
For k = 1 to 12
Print PQ(k), Q(k), P(k)
Next k
Print Total, "لآجمالي الفاتورة "
End sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 56 ( نسخة مجانية للجميع
الباب الثامن: البرامج الفرعية
تهدف الكامو الفرعي وة لآل تبسويم الكن وامو الرئيسوي لآل أجو اء عودة هوذا الابسويم لع ودة
أيررا أهمها ترسيط العمل من حيو يرهولة الكمجوة والاخاروار والاعوديل ولآممانيوة الايروافادة مون
الكنامو الفرعي في أكثر من ملروا مسابرح.
يممن تبسيم الكامو الفرعية في لاة فيجوال نيسك لآل ثحثة أنواا:
.1 الإجراء الفرعي ) Sub procedure .)
.2 لآجراء الدالة ) Function procedure .)
.3 لآجراء الخاصية ) Property procedure .)
أولا: الأجراء الفرعي ) Sub procedure -:)
وهووو أحوود أهووم أنووواا الووكامو الفرعيووة ويممنووه أ يسووابرل ةيمووة أو أكثوور موون نرنووامو
الايرادعاء ولآعادة ةيمة أو أكثر لآل نرنامو الايرادعاء ويمانك اللمل العام الاالي:
Sub name (V1,V2,…,Vn)
جمنة أو أكثر
End sub
حيو:
Sub : كنمة محجوزة تل لآل نداية الكنامو الفرعي.
name : ايرم الإجراء الفرعي.
(V1,V2,…,Vn) : مووواا ات الإدخوووال والإخوووراج مووون ولآل الكنوووامو الفرعوووي وتسووومى أيضوووا
نالرارامترات ) Parameters .)
مثوال : أكاوب نرنوامو فرعوي لحسوا مسواحة مسواطيل واكاوب نرنوامو الايروادعاء )الكنوامو
الرئيسي(
الحل:
مدخحت هذا الكنامو الفرعي هي الطول ) L ( والعرم ) W ( ومخرجاته هي المساحة ) A .)
الكنامو الفرعي المطنو :
Sub Area (L!,W!,A!)
A! = W! * L!
End sub
يممن تمثيل هذا الكنامو الفرعي كما في اللمل الاالي:
Area
L
W
A
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 91 ( نسخة مجانية للجميع
نرنامو الايرادعاء المطنو :
Private Sub Form_Load)(
Rem هذا البرنامج يمثل البرنامج الرئيسي
L! = InputBox("أدخل طول المساطيل ")
W! = InputBox(" أدخل عرم المساطيل ")
Call Area (L!,W!,A!)
Label1.caption = "مساحة المساطيل "
Text1.text = A!
End sub
ملاحظات هامة:
- سموي نرنوامو الايروادعاء نهوذا الايروم لأنوه ناووي عنوى العروارة )( والوتي تعمول عنوى تنفيوذ
الإجراء الفرعي المرين اسمه أمامها كما يسمى هذا الكنامو أيضا نالكنامو الرئيسي.
- يماب الكنامو الفرعي في نافذة تحرير الكنامو فوق أو تحت الكنوامو الرئيسوي ولا يوؤثر
ذلك في تنفيذ الإجراء ولا الكنامو الرئيسي.
مثال : أكاب لآجراء فرعي لحسا الضوريرة ) tax ( وصوافي الودخل ) net ( نوافترام أ الضوريرة
تعادل ) 23 %( من لآجمالي الدخل ) income ( واكاب الكنامو الرئيسي
الحل:
نفترم أ ايرم الإجراء ) Taxnet ( ويممن تمثيل هذا الكنامو الفرعي كما في اللمل الاالي:
الكنامو الفرعي المطنو :
Sub Taxnet (income!, tax!, net!)
tax! = income! * 0.23
net! = income! – tax!
End sub
الكنامو الرئيسي:
Private Sub Form_Load)(
Rem هذا البرنامج يمثل البرنامج الرئيسي
income! = InputBox("أدخل ةيمة الدخل ")
Call Taxnet (income!, tax!, net!)
Text1.text = income!
Text2.text = tax!
Text3.text = net!
End sub
income Taxnet
tax
net
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 91 ( نسخة مجانية للجميع
عند تنفيذ الكنامو تظهر النافذة الاالية:
مثال : أكاب الكنامو الفرعي ) count ( الذي يسابرل ةيمة ) k ( ثم يطرع الأعداد من ) 1 لآل k )
واكاب نرنامو الايرادعاء
الحل:
الكنامو الفرعي المطنو :
Sub Count(k%)
For i = 1 to k%
Print i;
Next i
End sub
الكنامو الرئيسي:
Private Sub Form_Load)(
Rem هذا البرنامج يمثل البرنامج الرئيسي
k% = InputBox("أدخل عدد صحيح ")
Call Count (k%)
End sub
ثانيا: الدالة ) Function -: )
نرنامو الدالة يسانم ةيمة أو أكثر من الكنامو الرئيسي ولمنه يعيد ةيمة واحدة فبط في
اسمها وتمانك الدالة اللمل العام الاالي:
Function name (V1,V2,…,Vn) as Type
جمنة أو أكثر
End Function
حيو:
Function : كنمة محجوزة تل لآل نداية الدالة.
name : ايرم الدالة.
(V1,V2,…,Vn) : ماا ات مدخنة لندالة )نارامترات الدالة(.
Type : نوا الدالة ) Integer, Single, … ( وياحدد ننوا البيمة الوحيدة التي تعيدها الدالة.
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 92 ( نسخة مجانية للجميع
ملاحظات:
في حالة ى يام تحديد نوا لندالة فإ نرنامو فيجوال نيسك يريعاكها من النوا المر .
الإجراء الفرعي ليس له نوا لأنه يعيد أكثر من ةيمة أحيانا.
مثال : أكاب الدالة التي تبوم يسا عدد الدةائق في عدد مون الأيوام موع العنوم أ عودد الأيوام
يدخل في نرنامو رئيسي
الحل:
نفرم ايرم لندالة وليمن ) MDay .)
نرنامو الدالة ) MDay :)
Function MDay(x!) as single
MDay = x! * 24 * 60
End Function
الكنامو الرئيسي:
Private Sub Form_Load)(
Rem هذا البرنامج يمثل البرنامج الرئيسي
M! = InputBox("أدخل عدد الأيام ")
Print MDay (M!), "عدد الدةائق "
End sub
ملاحظة:
نححووظ أنووه د ايرووادعاء الدالووة نووالماا ) M( والووذي يباننووه الموواا ) x( في الدالووة ويعاووك
الماا ) x ( ماا داخني معرف في داخل الدالة ) MDay ( فبط حيو تنسخ ةيموة المواا ) M ( لآل
الماا ) x ( وتنفذ الدالة وتعيد ةيماها في لآسمها.
مثال : أكاب الدالة ) Max2 ( التي توجد أكك عدد من نين عددين وايراعمنها في لآيجاد أكك
عدد من نين 5 أعداد
الحل:
نرنامو الدالة ) Max2 :)
Function Max2(x!, y!)
If (x! > y!) then
Max2 = x!
Else
Max2 = y!
End if
End Function
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 93 ( نسخة مجانية للجميع
نرنامو الرئيسي:
Private Sub Form_Load)(
Rem هذا البرنامج يمثل البرنامج الرئيسي
m! = 0
for k = 1 to 5
a! = InputBox(" أدخل ةيمة عددية ")
m! = Max2(m!, a!)
Next k
Text1.text = m!
End sub
مثال : هل يممن كاانة المثال نايراخدام الدالة
الحل:
نعم لأ الإجراء الفرعي المساخدم يعيد ةيمة واحدة فبط وهذا لا ياعارم مع الدالوة الوتي
تعيد ةيمة واحدة فبط هي الأخر..
ويممن كاانة نرنامو الدالة الاالي:
Function Area(L!, W!)
Area = L! * W!
End Function
مثال : هل يممن كاانة المثال نايراخدام الدالة ولماذا
الحل:
لا لأ الكنامو الفرعي المساخدم من نوا لآجراء يعيد ةيماين ونالاالي فإنه لا يممن كاانة
دالة تبوم نذلك.
الدوال الجاهزة )الدوال الداخلية(:-
تحاووي لاووة فيجووال نيسووك العديود موون الودوال الجوواه ة الوتي يمموون ايروادعا ها نوودو أ
يماب نرنامجها الفرعي لأ هذا الكنامو جاه ضمن لاوة نيسوك ويممون تبسويم هوذه الودوال
لآل:
أولا: الدوال الرياضية:
ومن هذه الدوال:
دالة الجذر الترنيعي ) - Sqr ( تعيد الجذر الترنيعي لعدد مثل:
Sqr (4) = 2
دالة النوغاريام الطريعي ) - Log ( تعيد النوغاريام الطريعي لعدد مثل:
Log (10) = 2.302585
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 94 ( نسخة مجانية للجميع
دالة البيمة المطنبة ) - abs ( تحذف الإسارة السالرة من العدد مثل:
Abs (-6) = 6
Abs (9) = 9
دالوة جيوب ال اويوة ) - sin ( تعيود جيوب ال اويوة ويجوب أ تموو ال اويوة الموراد حسوا جيرهوا
نالابدير الدائري ) Radians ( مثل:
Sin (30*3.14159/180) = 0.5
دالووة الإسووارة ) - sgn ( تعيوود البيمووة ) 1( لآذا كانووت البيمووة موجرووة والبيمووة ) 1( لآذا كووا -
البيمة يرالرة مثل:
Sgn (-10) = -1
Sgn (3) = 1
دالووة حووذف الجوو ء المسووري موون العوودد ) - int ( أو ) fix ( تعموول هووذه الدالووة عنووى لآلاوواء الجوو ء
المسري يذفه من البيمة مثل:
Int (4.87) = 4
Fix (5.98) = 5
ثانيا: دوال السلاسل الحرفية:
ومن هذه الدوال:
دالة عدد الرموز في يرنسنة حرفية ) - Len ( تعيد طول يرنسنة حرفية مثل:
Len ("محمد ") = 4
Len ("Ali Ali") = 7
دالة الاحويل من رةم لآل نضيد ) - Str ( تعمل عنى تحويل ةيمة عددية لآل ةيمة حرفية مثل:
Str (45) = "45"
دالة الاحويل من نضيد لآل رةم ) - Val ( تعمل عنى تحويل نضيد لآل ةيمة عددية مثل:
Val ("3.5") = 3.5
Val ("-86") = -86
ثالثا: دوال إحصائية:
من هذه الدوال:
دالة الماويرط الحساني ) - average ( تعيد الماويرط الحساني لمجموعة ةيم مثل:
Average (2,4,6,8) = 5
دالة الا راف المعياري ) - StdDev ( تعيد ةيمة الا راف المعياري لمجموعة من ةيم عددية مثل:
StdDev (2,4,6,8,10) = 3.12
دالة البيمة العلوائية ) - Rnd ( تعطي ةيمة علوائية غ ماوةعة مثل:
Rnd (100) = 0.7055475
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 95 ( نسخة مجانية للجميع
رابعا: دوال الوقت والتاريخ:
من هذه الدوال:
الدالة ) - Time ( تعيد الوةت الحالي لجهاز الحايرو .
الدالة ) - Timer ( تعيد عدد الثواني منذ مناصف النيل ) 12:11 ص( وحاى هذه النحظة.
الدالة ) - Date ( تعيد الااريخ الحالي لجهاز الحايرو .
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 99 ( نسخة مجانية للجميع
الباب التاسع: أدوات بيسك المرئي
ناوي صندوق الأدوات في لاة فيجوال نيسك عنى مجموعة كور ة مون الأدوات الوتي تفيود
في تصوميم واجه وات مامي و ة يروهنة الايرواخدام والانفي وذ خاصوة نايرواخدام الف وأرة وهوي م ون الطورق
الحديثووووة في نرمجووووة الحايرووووو وتسوووومى نالكمجووووة الموجهووووة نالحوووودة ) Event driven programming .)
ومن أهم هذه الأدوات:
أ. زر الأمر ) Command button :)
يساخدم هذا ال ر لاممين المساخدم من لآصدار أوامر أثناء تنفيذ الكنامو.
مثال 1 :2 : : أكاب نرنامو لاوزيع عائد من ملروا اةاصادي عنى ثحثة سركاء ننسرة 3
الحل:
أولا: تصميم نافذة الكنامو:
ثم ومن خحل مرنع الخصائص نبوم نضرط كائنات النافذة كما في النافذة الاالية:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 97 ( نسخة مجانية للجميع
ننبر عنى ال ر المسمى )احسب( نبرا م دوجا ونماب الكنامو الاالي:
Private Sub Command1_Click()
Rem هذا البرنامج مكتوب في الزر احسب
income! = Text1.text
Text2.text = income! / 2
Text3.text = income! / 3
Text4.text = income! / 6
End sub
ثم ننبر عنى ال ر )توةف( نبرا م دوجا ونماب العرارة:
End
عند تنفيذ الكنامو واخارار ولآدخال البيمة 911 كعائد لنملروا تظهر النافذة الاالية:
زر الاختيار ) Option Button :)
يساخدم هذا ال ر لعرم أكثر من خي وار أثن واء الانفي وذ فاظه ور نبطوة يروواء عن وى هوذا ال و ر
وذلك يعني أنه د تحديد الخيار المبانل لهذا ال ر.
مثووال لأي عوووددين يوووام - )/ × +( : أكاوووب نرنوووامو يعطوووي نووواتو العمنيووات الحسوووانية الأرنعوووة
لآدخالهما
الحل:
أولا: تصميم النافذة:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 98 ( نسخة مجانية للجميع
نماب الكنامو الاالي في ال ر )احسب(:
Private Sub Command1_Click()
Rem هذا البرنامج مكتوب في الزر احسب
Dim V1, V2, V3 as Single
V1 = Val (Text1.text)
V2 = Val (Text2.text)
If (Option1.value) then
V3 = V1 + V2
Else
If (Option2.value) then
V3 = V1 - V2
Else
If (Option3.value) then
V3 = V1 * V2
Else
If (Option4.value) then
V3 = V1 / V2
End if
End if
End if
End if
Text3.text = str(V3)
End sub
عند تنفيذ الكنامو واخاراره نرعض البيم تظهر النافذة الاالية:
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 96 ( نسخة مجانية للجميع
ثالثا: مربع القائمة ) List Box :)
تساخدم هذه الأداة عند الاعامل مع البوائم وخاصة لآذا طنب من المساخدم اخايوار ننود واحود
من مجموعة خيارات.
مثال : أكاب نرنامو يعرم ةائمة نرعض الرندا ييو تظهر مساحة الرند نالميل المرنع عجورد
النبر عنى ايرم الرند
الحل:
أولا تصميم النافذة:
ثانيا: لاعروة البائمة نأسماء الرندا ننبر عنى نافذة الكنامو )في ج ء خالي( نبرا م دوجا ونماب
الكنامو الاالي:
Private Sub Form_Load)(
Rem هذا البرنامج لتعبئة القائمة بالبلدان
List1.additem (" أفاانساا ")
List1.additem ("تووووووووووونووووس ")
List1.additem ("كنوووووووووووودا ")
List1.additem ("مصووووووووووووووور ")
End sub
نالنبر الم دوج عنى البائمة المريرومة عنى النافذة ونماب الكنامو الاالي:
Private Sub List1_Click)(
Select case List1.listindex
Case 0
Text1.text = 360000
Case 1
Text1.text = 63378
Case 2
Text1.text = 3831033
Case 3
Text1.text = 363250
End select
End Sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 71 ( نسخة مجانية للجميع
وعند تنفيذ الكنامو تظهر النافذة الاالية:
رابعا: مربع السرد) Combo Box :)
وهو سريه جدا عرنع البائمة لآلا أنه نااج يرطر واحد فبط عنى نافذة الكنامو ويسواخدم
في حالة عدم وجود مساحة كافية عنى النافذة.
مثال : أكاب نرنامو نايراخدام مرنع السرد ناوي عنى ايروم الرنود نالناوة العرنيوة وعنود اخايوار
الرند يعرم اسمها نالناة الإحني ية في مرنع نص موجود عنى النافذة
الحل:
أولا نبوم ناصميم نافذة الكنامو:
ثانيوا: لاعرووة مرنوع السورد نأسمواء الرنودا ننبور عنوى
نافذة الكنامو )في جو ء خوالي( نبورا م دوجوا ونماوب
الكنامو الاالي:
Private Sub Form_Load)(
Rem هذا البرنامج لتعبئة القائمة بالبلدان
Combo1.additem ("لوووويريوووووووا ")
Combo1.additem ("توووووونووووس ")
Combo1.additem ("مصووووووووور ")
Combo1.additem ("يروريوووووووا ")
Combo1.additem (" الأرد ")
End sub
برمجة وتطبيقات الحاسوب بلغة بيسك المرئي
إعداد/ م. المهدي امحمد جبريل ) 71 ( نسخة مجانية للجميع
نالنبر الم دوج عنى مرنع السرد المريروم عنى النافذة ونماب الكنامو الاالي:
Private Sub Combo1_Click)(
Select case Combo1.listindex
Case 0
Text1.text = "Libya"
Case 1
Text1.text = "Tunisia"
Case 2
Text1.text = "Egypt"
Case 3
Text1.text = "Syria"
Case 4
Text1.text = "Jordan"
End select
End Sub
وعند تنفيذ الكنامو تظهر النافذة الاالية:
خلاصة الباب التاسع:
د الاعرم في هذا الرا ل دوات الاالية:
ر.م اسم القطعة الوظيفة
1
Command Button
إصدار أمر من المستخدم إلى البرنامج.
2
Option Button
منح فرصة اختيار الخيار المناسب من بين مجموعة خيا ا رت.
3
List Box
عرض قائمة دفعة واحدة تحتوي مجموع عناصر.
4
Combo Box
عرض قائمة عنصر تلو الآخر.
5
Text Box
عرض نص أو نواتج برنامج في مربع.
9
Label
عرض وصف ما على نافذة البرنامج.
مع تحياتي منتصر جابر
قريبا تعليم تغيير ايقونات البرنامج لتغيير المظهر الخارجي
