تطبيقات هندسية في علم هندسة المواد بإستخدام لغة 6 Visual Basic

قحطان خلف الخزرجي, ليث قيس عباس الحيدري, عباس خماس حسين الساعدي

Description

إن الكتاب المقدم بين يديك عزيزي القارئ هو محاولة للربط بين علوم هندسة المواد، والبرمجة بلغة (-Visual Basic-6)، وما هو إلا محاولة لاختراق عملية الربط هذه؛ إذ لم نجد كمستخدمين لهذه اللغة البرمجية المميزة مراجع أو كتبًا منهجية تطرقت لهذه الحالة، ولقد سعى مؤلفو الكتاب بصورة مستمرة لانتقاء الأمثلة الهندسية الخاصة بعلم هندسة المواد؛ بحيث كانت أمثلة متدرجة في درجة صعوبتها، منتقلة في جميع فصول الكتاب من الأقل صعوبة -برمجيًّا أو تصميميًّا- إلى الأكثر صعوبة، وكان لا بد من مراعاة توجيه المستخدم إلى جميع تفاصيل التصميم الخاصة بكل مثال، وبطريقة مفصلة تفصيلًا قد يكون مملًّا؛ والسبب في ذلك هو اعتبار أن المستخدم يملك بعض المهارات التصميمية البسيطة، ويلم إلمامًا محدودا باللغة؛ ليتم من خلال الكتاب نقله إلى مرحلة أكثر تقدمًا بهذه اللغة، ولقد حاول مؤلفو الكتاب من خلال الأمثلة في فصوله الستة التطرق إلى أغلب الإيعازات الخاصة باللغة، كما حاولوا استخدام أغلب كائنات اللغة في عملية التصميم الخاصة بكل الأمثلة، وجاءت عناوين الفصول الستة على النحو التالي: مقدمة للبرمجة بلغة (-Visual Basic-6)، وأمثلة عامة في علم هندسة المواد (الفلزات والسبائك)، وأمثلة في البوليمرات، وأمثلة في المواد السيراميكية، وأمثلة في المواد المتراكبة، وأخيرا أمثلة في المعادن.

Sujets

• الهندسة
• Sciences et techniques

Informations

• Publié par: دار دجلة ناشرون و موزعون
• Date de parution: 01 janvier 2011
• Nombre de lectures: 0
• EAN13: 9796500037875
• Langue: Arabic
• Poids de l'ouvrage: 5 Mo

Extrait

ﻢـــﻠﻋ ﰲ ﺔﻴﺳﺪﻨﻫ تﺎﻘﻴﺒﻄﺗ
ﺔﻐﻟ ماﺪﺨﺘﺳﺎﺑ داﻮﳌا ﺔﺳﺪﻨﻫ
(Visual Basic – 6 –)
1

2

ﻢـــﻠﻋ ﰲ ﺔﻴﺳﺪﻨﻫ تﺎﻘﻴﺒﻄﺗ
ﺔﻐﻟ ماﺪﺨﺘﺳﺎﺑ داﻮﳌا ﺔﺳﺪﻨﻫ
(Visual Basic – 6 –)


ﻒــﻴـــﻟﺄـــﺗ

ﻲﺟرﺰﺨﻟا ﻒﻠﺧ نﺎﻄﺤﻗ.د.أ
داﻮﳌا ﺔﺳﺪﻨﻫ ﻢﺴﻗ
ﺔﻴﺟﻮﻟﻮﻨﻜﺘﻟا ﺔﻌﻣﺎﺠﻟا

يﺪﻋﺎﺴﻟا يﺴﺣ سمﺧ سﺎﺒﻋ .د.م يرﺪﻴﺤﻟا سﺎﺒﻋ ﺲﻴﻗ ﺚﻴﻟ . دم.
داﻮﳌا ﺔﺳﺪﻨﻫ ﻢﺴﻗ داﻮﳌا ﺔﺳﺪﻨﻫ ﻢﺴﻗ
ﺔﻴﺟﻮﻟﻮﻨﻜﺘﻟا ﺔﻌﻣﺎﺠﻟا ﺔﻴﺟﻮﻟﻮﻨﻜﺘﻟا ﺔﻌﻣﺎﺠﻟا

ﺔﻠﺟد راد
2011



ءاﺪﻫﻷا
قاﺮﻌﻟا............. ﱄﺎﻐﻟا ﺎﻨﻨﻃو ﱃا
ﺰﻳﺰﻌﻟا ﺎﻨﺒﻌﺷ ﱃا
ﻢﻠﻌﻟا ﻲﺒﻟﺎﻃ ﱃا
. هﺬﻫ ﺎﻧدﻮﻬﺟ ةﺮث يﺪﻬﻧ
نﻮﻔﻟﺆﳌا


5
6
ً
ً
ً
ً
ً
ً
ً
ً
ً
ً
: ﺔﻣﺪﻘﳌا
يﺒﻴﻄﻟا ﻪﻟا ﲆﻋو يﻌﻤﺟا سﺎﻨﻟاو ﴩﺒﻟا ﺪﻴﺳ ﲆﻋ مﻼﺴﻟاو ةﻼﺼﻟاو يﳌﺎﻌﻟا بر ل ﺪﻤﺤﻟا
ﺔـﺳﺪﻨﻫ مﻮـﻠﻋ يﺑ ﻂﺑﺮﻠﻟ ﺔﻟوﺎﺤﻣ ﻮﻫ ءىرﺎﻘﻟا يﺰﻳﺰﻋ ﻚﻳﺪﻳ يﺑ مﺪﻘﳌا بﺎﺘﻜﻟا نا .ﻦﻳﺮﻫﺎﻄﻟا
هﺬـﻫ ﻂﺑﺮﻟا ﺔﻴﻠﻤﻋ قاﱰﺧﻷ ﺔﻟوﺎﺤﻣ ﻵا ﻮﻫ ﺎﻣو ،(Visual basic-6-) ﺔﻐﻠﺑ ﺔﺠﻣﱪﻟا يﺑو داﻮﳌا
هﺬـﻬﻟ ﺖـﻗﺮﻄﺗ ﺔـﻴﺠﻬﻨﻣ ﺎـﺒﺘﻛ وا ﺎﻌﺟاﺮﻣ ةءﻮﻔﻜﻟا ﺔﻴﺠﻣﱪﻟا ﺔﻐﻠﻟا هﺬﻬﻟ يﻣﺪﺨﺘﺴﻤﻛ ﺪﺠﻧ ل ذا
ﺔـﻴﺠﻣﺮﺑ ﺔـﻠﺜﻣا ﺔﻴـﺳﺪﻨﻬﻟا تﺎـﻌﻣﺎﺠﻟا ﰲ ﺎـﻨﺘﺒﻠﻄﻟ ﻊﻀـﻧ نا لوﺎـﺤﻧ يﻴﺴـﻳرﺪﺘﻛ ﺎﻨﻧا مﻛ ،ﺔﻟﺎﺤﻟا
اﺮـﻣا ﺔـﺳﺪﻨﻬﻟا ﺔـﻴﻠﻛ ﺐـﻟﺎﻃ ﺎـﻬﻟ قﺮـﻄﺘﻳ ﻲـﺘﻟا ﺔـﻳﺮﻈﻨﻟا ﺐﻧاﻮﺠﻟا يﺑ ﻂﺑﺮﻟا ﺔﻴﻠﻤﻋ ﻦﻣ ﻞﻌﺠﺗ
ﻢـﻠﻌﺑ ﺔـﺻﺎﺨﻟا ﺔﻴـﺳﺪﻨﻬﻟا ﺔـﻠﺜﻣﻷا ءﺎـﻘﺘﻧﻷ ةﺮﻤﺘﺴـﻣ ةرﻮﺼـﺑ بﺎﺘﻜﻟا اﻮﻔﻟﺆﻣ ﻰﻌﺳ ﺪﻘﻟو . ﺎﻨﻜﻤﻣ
بﺎـﺘﻜﻟا لﻮﺼـﻓ ﻊﻴﻤﺟ ﰲ ﺔﻠﻘﺘ ﻨﻣ ﺎﻬﺘﺑﻮﻌﺻ ﺔﺟرد ﰲ ﺔﺟرﺪﺘﻣ ﺔﻠﺜﻣا ﺖﻧﺎﻛ ﺚﻴﺤﺑ داﻮﳌا ﺔﺳﺪﻨﻫ
ﻪــﻴﺟﻮﺗ ةﺎــﻋاﺮﻣ ﻦــﻣ ﺪــﺑﻻ نﺎــﻛو ،ﺔﺑﻮﻌــﺻ ثــﻛﻷا ﱃا ﺎﻴﻤﻴﻤﺼــﺗ وا ﺎــﻴﺠﻣﺮﺑ ﺔﺑﻮﻌــﺻ ﻞــﻗﻷا ﻦــﻣ
نﻮـﻜﻳ ﺪـﻗ ﻼﻴﺼـﻔﺗ ﺔﻠﺼﻔﻣ ﺔﻘﻳﺮﻄﺑو لﺎﺜﻣ ﻞﻜﺑ ﺔﺻﺎﺨﻟا ﻢﻴﻤﺼﺘﻟا ﻞﻴﺻﺎﻔﺗ ﻊﻴﻤﺟ ﱃا مﺪﺨﺘﺴﳌا
ﺔﻄﻴﺴـﺒﻟا ﺔﻴﻤﻴﻤﺼـﺘﻟا تارﺎـﻬﳌا ﺾـﻌﺑ ﻚـﻠي مﺪﺨﺘﺴـﳌا نا رﺎـﺒﺘﻋا ﻮـﻫ ﻚﻟذ ﰲ ﺐﺒﺴﻟاو ﻼﻤﻣ
.ﺔﻐﻠﻟا هﺬﻬﺑ ﺎﻣﺪﻘﺗ ثﻛا ﺔﻠﺣﺮﻣ ﱃا ﻪﻠﻘﻧ بﺎﺘﻜﻟا لﻼ ﺧ ﻦﻣ ﻢﺘﻴﻟ ﺔﻐﻠﻟﺎﺑ دوﺪﺤﳌا مﺎﳌﻷاو
تازﺎـﻌﻳﻷا ﺐـﻠﻏا ﱃا قﺮـﻄﺘﻟا ﺔﺘﺴـﻟا ﻪﻟﻮﺼـﻓ ﰲ ﺔـﻠﺜﻣﻷا لﻼـﺧ ﻦﻣ بﺎﺘﻜﻟا اﻮﻔﻟﺆﻣ لوﺎﺣ
ﺔــﺻﺎﺨﻟا ﻢﻴﻤﺼـﺘﻟا ﺔــﻴﻠﻤﻋ ﰲ ﺔــﻐﻠﻟا تﺎــﻨﺋﺎﻛ ﺐــﻠﻏا ماﺪﺨﺘــﺳا اﻮﻟوﺎــﺣ مــﻛ ﺔــﻐﻠﻟﺎﺑ ﺔــﺻﺎﺨﻟا
ﺔــﺳارد ﰲ لﺎــﺜﻤﻠﻟ ﺪــﻴﻘﻌﺘﻟا ﺔــﺟرد ﺐﺴـﺤﺑ ﺔــﻨﻴﻌﻣ ﺔﺒﺴــﻨﺑ ﻖــﻘﺤﺗ ﻚــﻟذ ﻦــﻜﻟ ،ﺔــﻠﺜﻣﻷا ﻞــﻜﺑ
ﺔـﻠﺜﻣﻷﺎﺑ ﺔـﺻﺎﺨﻟا ﺔـﺠﻣﱪﻟا ﺔـﻘﻳﺮﻃ نﻮـﻜﺗ نا ﱃا نﻮـﻔﻟﺆﳌا ﻰﻌـﺳ ﺪـﻘﻟو ،داﻮـﳌا ﺔـﺳﺪﻨﻫ مﻮﻠﻋ
تاﺪــﻴﻘﻌﺘﻟا ﻦــﻋ ىﺮﺧﺄـﺑ وا ﺔــﻘﻳﺮﻄﺑ ةﺪــﻴﻌﺑو ةﴍﺎــﺒﻣو ﺔﺤـﺿاو تﺎــﻴﻣزراﻮﺧ ﲆــﻋ ﺔــﻴﻨﺒﻣ
بﺎــﺘﻜﻟا اﻮـﻔﻟﺆﻣ ﺢــﺠﻧ مــﻛ ،ﺔــﻠﺜﻣﻷ ﺎﺑ ﺔــﺻﺎﺨﻟا ﺞﻣاﱪـﻟا ﺬــﻴﻔﻨﺗ بﺎــﺘﻜﻟا ىءرﺎـﻗ ﲆــﻋ ﻞﻬﺴــﻴﻟ
ﺖــﺑاﻮﺜﻟا ﺔﻴﻤﺴــﺗ ﺖــﻧﺎﻛ ذا ةﺪــﻘﻌﻣ ﺔــﻴﺠﻣﺮﺑ تاﺮﻔــﺷ ﺔــﺑﺎﺘﻛ ﻦــﻋ ﺪــﻌﺒﻟا ﻞــﻛ دﺎــﻌﺘﺑﻷا ﰲ
ﺔـﻗﻼﻋ تاذ ﺔﺤـﺿاو تﺎﻴﻤﺴـﺗ ﺔـﻠﺜﻣﻷا ﻊـﻴﻤﺟ ﰲ ةﺪـﻤﺘﻌﳌا تﺎﻓﻮﻔﺼـﳌاو تايﻐﺘﳌاو ﺔﻳدﺪﻌﻟا

7
ً
ً
ً
ً
ً
ً
ً
ً
ً
ﻰﻌـﺳ ذا تﺎـﻨﺋﺎﻜﻟا تﺎﻴﻤﺴـﺗ ﰲ تارﺎﺼـﺘﺧﻷا ماﺪﺨﺘﺳا ﻢﺘﻳ لو ﺔﻠﺜﻣﻷﺎﺑ ﺔﺑﻮﺴﺤﳌا تﻻدﺎﻌﳌﺎﺑ
ﺔـﻴﻐﺑ ةﴍﺎـﺒﳌا ﺎﻬﺗﺎﻴﻤﺴـﻣو تﺎـﻨﺋﺎﻜﻟا هﺬـﻫ ﻊﻣ ﻞﻣﺎﻌﺘﻟا ﲆﻋ يﻣﺪﺨﺘﺴﳌا ﺐﻳرﺪﺗ ﱃا نﻮﻔﻟﺆﳌا
لاﺆﺳ يﺋرﺎﻘﻟا نﺎﻫذا ﱃا ردﺎﺒﺘﻳ ﺪﻗ .ﺔﺠﻣﱪﻟا ﺔﻐﻟ ﻞﻤﻋ ﺔﺌﻴﺑ يﺑو ﻢﻬﻨﻴﺑ ﺔﻔﻟﻷا ﻦﻣ ءﳾ ﻖﻴﻘﺤﺗ
؟ ﻞﺤﻟا قﺮﻃ ﻞﺜﻣا وا ﻞﻀﻓا ﻲﻫأ ﱄﺎﺤﻟا بﺎﺘﻜﻟا ﰲ ﺎﻬﻴﻟا قﺮﻄﺘﻟا ﻢﺗ ﻲﺘﻟا ﺔﻠﺜﻣﻷا ﻞﺣ قﺮﻃ ﻦﻋ
ﺔـﻠﺜﻣﻷا ﺾﻌﺑ ﺔﺠﻣﺮﺑ ﻢﺘﺗ نا ﻦﻜﻤﳌا ﻦﻣو ﺞﻣﱪﳌا تﺎﻋاﺪﺑﻷ سﺎﻜﻌﻧا ﻲﻫ ﺔﺠﻣﱪﻟا نا ﺔﻘﻴﻘﺤﻟاو
هﺪﻘﻌﻣ وا ﺔﺒﻳﺮﻏ نﻮﻜﺗ ﺪﻗ ﺎﻬﻨﻜﻟ ةﺮﻔﺸﻟا ﺔﺑﺎﺘﻛ ﺮﻄﺳا دﺪﻌﺑ ﻞﻗا نﻮﻜﺗ ﺪﻗ ىﺮﺧا قﺮﻄﺑ ﺔﻴﻟﺎﺤﻟا
ﺔـﻠﺜﻣﻷا ﺾـﻌﺑ ﺔـﺠﻣﺮﺑ اوﺪـﻤﻌﺗ ﺪﻗ بﺎﺘﻜﻟا اﻮﻔﻟﺆﻣ نﺄﻓ سﺎﺳﻷا اﺬﻫ ﲆﻋو ،ءىرﺎﻘﻟا نﺎﻫذا ﲆﻋ
ءﺎﺸـﻧاو ﻪـﺘﺠﻣﺮﺑ ﰲ ﺔﺤـﺿاو ﺔـﻴﻄن ﲆﻋ مﺪﺨﺘﺴﳌا ﺐﻳرﺪﺗ ﻲﻫ ﺔﻳﺎﻐﻟاو نﻵا ﻪﻴﻠﻋ ﻲﻫ ﺎﻣ ﲆﻋ
سﺪـﻨﻬﻣ ءﺎـﻨﺑ ﻮﻫ ﻢﻬﻓﺪﻫ نا ﺔﺻﺎﺧ ﻞﺒﻘﺘﺴﳌا ﰲ ﺎﻋﺪﺒﻣ ﺎﺠﻣﱪﻣ ﻪﻨﻣ ﻞﻌﺠﺗ ﺪﻗ ﺔﻴﻨﻫذ تارﻮﺼﺗ
.ﻪﻟ صﺎﺼﺘﺧﻷا لﺎﺠﻣو ﺔﺠﻣﱪﻟﺎﺑ ﺔﻴﻟﺎﻋ ﺔﺟرﺪﺑ ﻢﻠﻣ داﻮﻣ
ﺔﻴﻠﻛ ﺐﻟﺎﻃ ﻪﺟاﻮﺗ ﺪﻗ ﻲﺘﻟا تﺎﺑﻮﻌﺼﻟاو تﺎﻗﻮﻌﳌا لﻻذا ﻮﻫ ﱄﺎﺤﻟا بﺎﺘﻜﻟا ﻦﻣ فﺪﻬﻟا نا
ﺔﻴـﺳﺪﻨﻬﻟا ﻪﺘـﺳارد ﰲ ﺎـﻬﺟﺎﺘﺤﻳ ﺪﻗ ﻲﺘﻟا ﺔﻴﺑﻮﺳﺎﺤﻟا ﺞﻣاﱪﻟا ءﺎﻨﺑ ﺔﻴﻠﻤﻋ ﰲ سﺪﻨﻬﳌا وا ﺔﺳﺪﻨﻬﻟا
ﺔـﺳارﺪﻟا ﻦـﻣ ﺔﻨﻴﻌﻣ ةﱰﻔﺑ ﻪﺟﺎﺘﺤﻳ يﻌﻣ ﻞﻤﻌﺑ ﺎﺻﺎﺧ ﺎﺠﻣﺎﻧﺮﺑ ﻲﻨﺒﻳ ﺪﻗ ﻪﻧا ذا ،ﺔﻴﻨﻬﳌا ﻪﺗﺎﻴﺣ وا
ﻊـﻴﻤﺟ ﻞـﺤﺗ ﺞﻣاﺮـﺑ وا ﺔﻴﺳﺪﻨﻫ تﺎﻘﻴﺒﻄﺗ ﺪﺠﻳ نا ةروﺮﻈﻟﺎﺑ ﺲﻴﻠﻓ ﺔﻨﻬﳌا ﺔﺳرمﻣ وا ﺔﻴﺳﺪﻨﻬﻟا
تﺎـﻴﻠﻛ ﺔـﺒﻠﻄﻟ اﺪـﻴﻔﻣ نﻮـﻜﻳ نا بﺎـﺘﻜﻟا اﺬـﻬﻟ ﻦـﻜيو ،ﺎـﻬﻬﺟاﻮﻳ ﺪﻗ ﻲﺘﻟا ﺔﻴﺳﺪﻨﻬﻟا تﻼﻜﺸﳌا
ةﺎـﻘﺘﻨﳌا ﺔـﻠﺜﻣﻷا نﻮـﻜﺗ نا ةﺎـﻋاﺮﻣ ﻢـﺗ ذا يﻌﻣ ﺺﺼﺨﺘﻟ زﺎﻴﺤﻧﻷا نوﺪﺑ ﺔﻣﺎﻋ ةرﻮﺼﺑ ﺔﺳﺪﻨﻬﻟا
ﺪـﻘﻓ ﻚﻟﺬـﺑو ﺎـﻣﻮﻤﻋ ﺔـﺳﺪﻨﻬﻟا تﺎـﻴﻠﻛ ﺔـﺒﻠﻃ ﻦـﻣ ﺔـﻨﻜﻤﻣ ﺔﺤﻳﴍ ﱪﻛا ﺪﻴﻔﺘﻟ ةﴍﺎﺒﻣو ﺔﺤﺿاو
ﻢﻴـﻠﻌﺘﻟ ىﺮـﺧا ﺎـﻧﺎﻴﺣا ةﺪـﻘﻌﻣو ﺎﻧﺎﻴﺣا ﺔﻄﺴﺒﻣ تﺎﻬﻴﺟﻮﺗو تازﺎﻌﻳ او ﺔﻠﺜﻣا ﲆﻋ بﺎﺘﻜﻟا ىﻮﺘﺣا
ءﺎـﻄﻋا وا ﺔـﻐﻠﻟا هﺬـﻫ ﻞﻤﻋ ﺔﻴﻄن ﲆﻋ يﻮﺘﺤﻳ لو (Visual Basic-6-) ﺔـﻐﻠﺑ ﺔـﺠﻣﱪﻟا ﺔﻴﻔﻴﻛ
.ﺔﻐﻠﻟا تازﺎﻌﻳا ﻞﻤﻋ ﻞﻴﺻﺎﻔﺗ
8
ً
ً
:ﻦﻤﻀﺗ ﺚﻴﺣ لﻮﺼﻓ ﺔﺘﺳ بﺎﺘﻜﻟا اﺬﻫ لوﺎﻨﺘﻳ
ﲆﻋ ﺖﻠﻤﺘﺷا ﺪﻗو (Visual Basic-6-) ﺔﻐﻟ لﻮﺣ ﺔﻄﺴﺒﻣو ﺔﻣﺎﻋ ﺔﻣﺪﻘﻣ لوﻷا ﻞﺼﻔﻟا -
ﺔـﻐﻠﻟا ﲆـﻋ ﻞـﻤﻌﻟﺎﺑ ﺔـﻘﻠﻌﺘﳌا ﺔﻴـﺳﺎﺳﻷا ءىدﺎـﺒﳌﺎﺑ مﺪﺨﺘﺴـﳌا ﻒﻳﺮﻌﺗ
.ﺔﻳﺮﻳﻮﻄﺘﻟا ﺎﻬﺘﺌﻴﺑو
ﻢـﻠﻌﺑ ﺔـﻘﻠﻌﺘﻣ ﺔـﻠﺜﻣا ﲆﻋ ﺎﻬﻌﻴﻤﺟ تﻮﺘﺣا ﺪﻘﻓ يﺧﻷا ﻞﺼﻔﻟا ﱃا ﻻﻮﺻو نﺎﺜﻟا ﻞﺼﻔﻟا ﺎﻣا
،داﻮـﳌا ﺔـﺳﺪﻨﻫ ﻢـﻠﻋ تﺎﻔﻴﻨﺼـﺗ رﺎـﺒﺘﻋﻷا ﺮـﻈﻨﺑ ﻦﻳﺬـﺧآ داﻮﳌا ﺔﺳﺪﻨﻫ
تاﺰﻠﻔﻟا) داﻮﳌا ﺔﺳﺪﻨﻫ ﻢﻠﻋ ﰲ ﺔﻣﺎﻋ ﺔﻠﺜﻣا نﺎﺜﻟا ﻞﺼﻔﻟا ﻦﻤﻀﺗ ﺚﻴﺤﺑ
.(ﻚﺋﺎﺒﺴﻟاو
.تاﺮﻤﻴﻟﻮﺒﻟا لﻮﺣ ﺔﻠﺜﻣا ﺚﻟﺎﺜﻟا ﻞﺼﻔﻟا ىﻮﺘﺣاو
.ﺔﻴﻜﻴﻣايﺴﻟا داﻮﳌا لﻮﺣ ﺔﻠﺜﻣا ﻦﻤﻀﺗ ﺪﻘﻓ ﻊﺑاﺮﻟا ﻞﺼﻔﻟا ﺎﻣأ
.ﺔﺒﻛاﱰﳌا داﻮﳌا ﰲ ﺔﻠﺜﻣا ﲆﻋ ﺲﻣﺎﺨﻟا ﻞﺼﻔﻟا ىﻮﺘﺣاو
.ندﺎﻌﳌﺎﺑ ﺔﻠﺜﻣا ﱃا ﻪﻴﻓ قﺮﻄﺘﻟا ﻢﺗ ﺪﻘﻓ سدﺎﺴﻟا ﻞﺼﻔﻟا ﺎﻣا
ﺔـﻳﺎﻐﻟا ﻖـﻘﺤﺘﻟ ﻪـﺗﺎﻳﻮﺘﺤﻣو بﺎـﺘﻜﻟا ﻢﻳﺪﻘﺗ ﰲ ﺎﻨﻘﻓو ﺪﻗ نﻮﻜﻧ نا ﻪـﻠـﻟا ﻦﻣ ﻰﻨﻤﺘﻧ اي ﺧاو
ﺪـﻨﻋ ﻦﻣ ﻵا ﻖﻴﻓﻮﺘﻟا ﺎﻣو ﺔﻴﺳﺪﻨﻬﻟا ﺔﻴﺑﺮﻌﻟا ﺔﺒﺘﻜﳌا ءﺎﻨﻏا ﰲ ﺎﻨﻤﻫﺎﺳ ﺪﻗ نﻮﻜﻧ ناو ﻪﻨﻣ هﻮﺟﺮﳌا
.ﻪـﻠـﻟا
ﻲﺟرﺰﺨﻟا ﻒﻠﺧ نﺎﻄﺤﻗ .د.أ
يرﺪﻴﺤﻟا سﺎﺒﻋ ﺲﻴﻗ ﺚﻴﻟ .د.م
يﺪﻋﺎﺴﻟا يﺴﺣ سمﺧ سﺎﺒﻋ .د.م
2010 ناﺮﻳﺰﺣ / داﺪﻐﺑ
9
10
لوﻷا ﻞﺼﻔﻟا

ﺔﻐﻠﺑ ﺔﺠﻣﱪﻠﻟ ﺔﻣﺪﻘﻣ
(Visual Basic-6-)
11
12
ً
:ئﺮﳌا ﻚﺴﻴﺒﻟا ﺔﻐﻟ لﻮﺣ ﺔﻣﺪﻘﻣ 1-1
بﻮـﺳﺎﺤﻟا رﻮـﻬﻇ ﺬـﻨﻤﻓ ، يـﺒﻛ ﻞﻜﺸﺑ ﺔﻴﺿﺎﳌا تاﻮﻨﺴﻟا ﱪﻋ بﻮﺳﺎﺤﻟا تﺎﻴﺠﻣاﺮﺑ ترﻮﻄﺗ
ﻞﻋﺎﻔﺘﻟا وا ماﺪﺨﺘﺳﻷﺎﺑ حﻮﺿﻮﻟاو ﺔﻃﺎﺴﺒﻟﺎﺑ هﺰﻴﻤﺘﻣ ﺞﻣاﺮﺑ جﺎﺘﻧا ﰲ يﻜﻔﺘﻟﺎﺑ نوﺬﺧآ نﻮﺠﻣﱪﳌاو
ﺔــﻐﻟ ﻞـﺜﻣ (High Level Language) ﺔـﻴﻟﺎﻌﻟا وا ﺔـﻣﺪﻘﺘﳌا ﺔــﺠﻣﱪﻟا تﺎـﻐﻟ تﺮـﻬﻇو ،ﺎـﻬﻌﻣ
Low Level ) ىﻮﺘﺴـﳌا ﺔـﻴﻧﺪﺘﳌا ﺔـﺠﻣﱪﻟا تﺎـﻐﻟ ﻞﺤﻣ ﻞﺤﺘﻟ (Basic , Qbasic , C , …etc)
ﺎـﻗﺮﻃ مﺪـﻘﺘﻟ تﺎﻐﻠﻟا هﺬﻫ ﺮﻳﻮﻄﺗ ﻢﺗ ﻢﺛ ،تﺎﻐﻠﻟا ﻦﻣ ﺎﻫيﻏو (Assembly) ﺔﻐﻠﻛ (Language
ﻦــﻴﺠﻣﱪﳌا ﻰــﻠﻋ ﺪــﻬﺠﻟاو ﺖــﻗﻮﻟا ﻦـﻣ ﺮـﻴﺜﻜﻟا ﺮـﻓﻮﺗ نا ﺎـﻬﻧﺄﺷ ﻦـﻣ ىﻮـﻗاو ﻞـﻬﺳا ﺔـﻴﺠﻣﺮﺑ
ﲆـﻋ تﻮـﺘﺣا ﺚﻴﺣ (Visual Programming Languages) ﺔـﻴﺋﺮﳌا ﺔﺠﻣﱪﻟا تﺎـﻐﻟ تﺮـﻬﻈﻓ
Visual ) ئﺮـﳌا ﻚﺴـﻴﺒﻟا ﺔـﻐﻟ ﺎـﻫزﺮﺑا ﻦـﻣ نﺎـﻛ ﻲﺘﻟاو ةﺰﻴﻤﺘﳌا ﺔﻣﺪﻘﺘﳌا تﺎ ﻐﻠﻟا ﻦﻣ ﺔﻋﻮﻤﺠﻣ
رﻮـﺻو تﺎﻣﻮـﺳرو تﺎـﻬﺟاو ماﺪﺨﺘـﺳﺄﺑ يـﺠﻣﱪﻤﻠﻟ ﺖﺤﻤـﺳ ﻲﺘﻟا ةدﺪﻌﺘﳌا ﻪﺗاراﺪﺻﺄﺑ (Basic
ﺔـﻴﺋﺮﳌا ﺔـﺠﻣﱪﻟا تﺎﻐﻟ فﺮﻌﻧ نا ﻦﻜي ﺎﻨﻫ ﻦﻣ .ﻢﻬﺠﻣاﱪﻟ ﻢﻬﺘﺑﺎﺘﻛ ﺪﻨﻋ ﺔﻨﻴﻌﻣ تﺎﻘﻴﺒﻄﺗ ﻰﺘﺣو
ﺔﺑﺎﺘﻜﻟ (Visual Expressions) ﺔﻴﺋﺮﳌا يﺑﺎﻌﺘﻟا ماﺪﺨﺘﺳا ﺎﻬﻟﻼﺧ ﻦﻣ ﻢﺘﻳ ﻲﺘﻟا تﺎﻐﻠﻟا ﺎﻬﻧا ﲆﻋ
ﻢﻴﻤﺼـﺗ وا ءﺎـﻨﺒﻟ (Objects) تﺎـﻨﺋﺎﻜﻟا ﻦـﻣ ﺔـﻋﻮﻤﺠب ﺎـﻬﻄﺑرو (Code) ﺔـﻨﻴﻌﻣ ﺔﺠﻣﺮﺑ ةﺮﻔﺷ
ﻪـﺘﺟﺎﺣ ﺐﺴـﺣ ﺞﻣﱪـﳌا ﺎﻬﻤﻴﻤﺼـﺘﺑ مﻮﻘﻳ ﻲﺘﻟا ﺬﻓاﻮﻨﻟا ﻦﻣ ﺔﻋﻮﻤﺠﻣ ﲆﻋ يﻮﺘﺤﻳ يﻌﻣ ﺞﻣﺎﻧﺮﺑ
.ﻪﺠﻣﺎﻧﱪﻟ ﺔﺒﺳﺎﻨﻣ ﺎﻫاﺮﻳ ﻲﺘﻟا ﺔﺌﻴﺒﻟﺎﺑو
ﺔـﻴﻠﻋﺎﻔﺘﻟا ضوﺮـﻌﻟا ﻞﺒـﺳ ﻦـﻣ يـﺜﻜﻟا ﺎـﻬﺗﺎﻨﺋﺎﻛ ﻦﻤـﺿ ئﺮﳌا ﻚﺴﻴﺒﻟا ﺔﻐﻟ تﻮﺘﺣا
،ﺔـﻐﻠﻟا هﺬـﻬﺑ ﺔﻤﻤﺼـﳌا ﺞﻣاﱪـﻟا ﻲﻣﺪﺨﺘﺴـﻣ ﻞـﻋﺎﻔﺗو ﻞـﻤﻋ ﻦﻣ ﻞﻬﺴﺗ ﻲﺘﻟا ﺔﻣﺪﻘﺘﳌا
نﺎـﻜﻣﻷﺎﺑ ﺢﺒـﺻﺄﻓ ﻢﻬﺠﻣاﺮـﺑ ﻢﻴﻤﺼـﺗ ﺪـﻨﻋ ءﺎـﻨﻌﻟا ﻦـﻣ يـﺜﻜﻟا يـﺠﻣﱪﳌا ﲆـﻋ تﺮﻓﻮﻓ
Three Dimensions) ﺔﻤﺴـﺠﳌا رﻮﺼـﻟاو (Animations) ﺔﻛﺮﺤﻟا ﺐﻴﻟﺎﺳا ماﺪﺨﺘﺳا

13
ً
ً
ً
يـﺜﻜﻟا تﺮـﻬﻈﻓ ،ﻪـﺠﻣﺎﻧﺮﺑ ءﺎـﻨﺑ ﺪﻨﻋ ﺞﻣﱪﳌا ﺎﻬﻣﺪﺨﺘﺴﻴﻟ ،ﺦﻟا...(Sounds) تﻮﺼﻟاو ( Images
،ﻢـﻬﻟ ﺪﻌﺗ ﺖﻧﺎﻛ ﻲﺘﻟا صﺎﺨﺷﻷا ﱃا تﺎﻣﻮﻠﻌﳌا ﻞﻘﻧ ﰲ رﻮﻄﺗو ةءﺎﻔﻛ ثﻛا ﺪﻌﺗ ﻲﺘﻟا ﺞﻣاﱪﻟا ﻦﻣ
مﺎـﻈﻧ ﺖـﺤﺗ ﻞـﻤﻌﺗ ﻲﺘﻟا تﺎﻘﻴﺒﻄﺘﻟا ﻦﻣ يﺜﻜﻟا يﺑو ﺔﻐﻠﻟا يﺑ ﴍﺎﺒﳌا ﻂﺑﺮﻟا ﺔﻴﻧﺎﻜﻣا ﻦﻋ ﻼﻀﻓ
.ﻪﺨﺴﻧ ﺔﻓﺎﻜﺑ (Windows) ﻞﻴﻐﺸﺘﻟا
تﺎــﻨﺋﺎﻛ نﻮــﻜﺗ نا اﻮﻟوﺎــﺣ ﺪــﻗ ئﺮــﳌا ﻚﺴــﻴﺒﻟا ﺔــﻐﻟ ﻲﻤﻤﺼــﻣ نا ﱃا ةرﺎــﺷﻷا ﻦــﻣ ﺪــﺑﻻو
تﺎـﻣﻮﻠﻌﻤﻠﻟ جاﺮـﺧﻷاو لﺎـﺧدﻷا تﺎـﻨﺋﺎﻛ اﻮﻌـ ﺿﻮﻓ يﺒﻛ رﺪﻘﺑ ﺔﻠﻣﺎﺷ ﻢﻬﻠﺒﻗ ﻦﻣ ﺔﻤﻤﺼﳌا ﺔﻐﻠﻟا
Picture Box , ) رﻮﺼﻟا ﻖﻳدﺎﻨﺻو (Label) ناﻮﻨﻌﻟا ةاداو (Text Boxes) صﻮﺼﻨﻟا ﻖﻳدﺎﻨﺼﻛ
Command Buttons , Check Boxes , ) تاراﺮـﻘﻟا ذﺎـﺨﺗاو ﻢﻜﺤﺘـﻟا تاوداو (Image
Vertical Scroll Bar , Horizontal ) ضوﺮﻌﻟﺎـﺑ ﻢﻜﺤﺘـﻟا تاوداو (Option Boxes …etc
رﻮﺼـﻟاو صﻮﺼـﻨﻟا ضﺮـﻌﺑ ﺔﻣﺪﺨﺘﺴـﳌا (Scroll Bar , Vertical & Horizontal Scrolls
تﺎــﻔﻠﳌﺎﺑ ﻢﻜﺤﺘـﻟا تاوداو (List Box , Combo Box) ةدﺪــﻌﺘﳌا تارﺎــﻴﺘﺧﻷا ﻖﻳدﺎﻨــﺻو
Diver List Box , Directory ) ﺎـﻬﻋاﻮﻧا ﻒـﻠﺘﺨب نﺰﺨﻟا تاﺪﺣو ءاﺰﺟا ﱃا لﻮﺻﻮﻟا تاوداو
تﺎـــﻴﺠﻣاﱪﻟاو تﺎـــﻘﻴﺒﻄﺘﻟﺎﺑ ﻂﺑاوﺮـــﻟا ﻦﻳﻮـــﻜﺗ ةادا وا (OLE) طﺎـــﺒﺗرﻷا ةاداو (File Box
ﻢﻤﺼـﳌا ﺞﻣﺎـﻧﱪﻟا ﻞـﺧاد ﻦـﻣ ﺎﻬﻠﻴﻐﺸـﺗ ﻢﺘـﻴﻟ (Windows) ﻞﻴﻐﺸﺘﻟا مﺎﻈﻧ ﺖﺤﺗ ﻞﻤﻌﺗ ﻲﺘﻟا
ﻲﻤﻤﺼـﻣ ﻞـﺒﻗ ﻦـﻣ ﺎﻬﻌـﺿو ﻢـﺗ ﻲﺘﻟا تﺎﻨﺋﺎﻜﻟا ﻦﻣ ﺦﻟا...(Visual Basic) ئﺮﳌا ﻚﺴﻴﺒﻟا ﺔﻐﻠﺑ
ﺞﻣﺎــﻧﺮﺑ ﻢﻴﻤﺼــﺗ ﺪــﻨﻋ ﻪــﺘﺟﺎﺣ ﺐﺴــﺤﺑ ﺎﻬﺘﻓﺎــﺿا مﺪﺨﺘﺴــﳌا ﻊﻴﻄﺘﺴــﻳ ىﺮـﺧا تﺎــﻨﺋﺎﻛو ﺔــﻐﻠﻟا
ﺎـﻣ ﺐـﻠﻏا ماﺪﺨﺘـﺳا ﻦﻣ ﺞﻣﱪﳌا ﻦﻜﻤﺘﻳ كﻟ بﻮﻠﺳﻷا اﺬﻬﺑ تﺎﻨﺋﺎﻜﻟا هﺬﻫ ﻊﺿو ﻢﺗ ﺪﻘﻓ ،يﻌﻣ
ﺎﻧﴫـﻋ ﰲ ةﺪﺋﺎﺴـﻟا ﺔﻴﺑﻮـﺳﺎﺤﻟا ﺞﻣاﱪـﻟا ﺔـﺌﻴﺒﺑ ﺎﻬﻴﺒـﺷ نﻮﻜﻳﺎـﻣ ﺐﻠﻏا ﺎﺠﻣﺎﻧﺮﺑ ﻢﻤﺼﻳو ﻪﺟﺎﺘﺤﻳ
ﰲ دﻮﺟﻮﻣﺎـﻣ ﻦـﻣ ةيـﺒﻛ ﺔـﺟرﺪﺑ ﺔـﺒﻳﺮﻗ ﺎـﻬﻠﻤﻋ ﺔـﻴﻄنو ﺎﻬﻟﺎﻜـﺷﺄﺑ ﺔـﻐﻠﻟا تﺎـﻨﺋﺎﻛ ﺖﻧﺎﻜﻓ اﺬﻫ
ﻞﻜﺸـﺑ ﺞﻣاﱪـﻟا ﺐـﻠﻏاو صﺎﺧ ﻞﻜﺸﺑ (Windows) ﻞﻴﻐﺸﺘﻟا مﺎﻈﻨﻟ تاراﺪﺻﻷاو ﺦﺴﻨﻟا ﺐﻠﻏا

14
ً
ً
ً
ً
ً
يدﺎـﻴﺘﻋﻷا ﺞﻣﱪـﳌا ﺔﻠﺣﺮﻣ ﻦﻣ ﻪﺑ لﺎﻘﺘﻧﻸﻟ مﺪﺨﺘﺴﻤﻠﻟ ﺎﺑرﺪﻣ ئﺮﳌا ﻚﺴﻴﺒﻟا ﺔﻐﻟ نﻮﻜﺗ كﻟ مﺎﻋ
ئﺮـﳌا ﻚﺴـﻴﺒﻟا ﺔـﻐﻟ نا ﱃا يﺸـﻧ نا ﻲـﻘﺑو .ﺔـﻐﻠﻟا هﺬـﻫ ﺖـﺤﺗ ﺔﻴﺑﻮـﺳﺎﺤﻟا ﺞﻣاﱪـﻠﻟ ﺪـﻌﻣ ﱃا
ﻦـﻣ ﺔﻣﺪﺨﺘﺴـﳌا تﺎـﻨﺋﺎﻜﻟﺎﺑ ﻢﻜﺤﺘـﻟا ﺔـﻴﻧﺎﻜﻣا ﰲ ﺞﻣﱪﻤﻠﻟ ﺔﺻﺮﻔﻟا ﺖﺣﺎﺗا ﺪﻗ (Visual Basic)
ﻞـﻤﺠﻟا ﻊﺿوو ﻚﻳﺮﺤﺘﻟا ﺔﻴﻧﺎﻜﻣاو ماﺪﺨﺘﺳﻷا ﺔﻴﻧﺎﻜﻣاو ﻢﻴﺴﺠﺘﻟاو ﻞﻜﺸﻟاو نﻮﻠﻟاو ﻢﺠﺤﻟا ﺚﻴﺣ
ﻞـﻤﺠﻟا ﺾﻌﺑ تﴫﺘﺧا ﺪﻘﻓ ﻚﻟﺬﺑو ﺺﺋﺎﺼﺨﻟا ةﺬﻓﺎﻧ ﱪﻋ تﺎﻴﻧﺎﻜﻣﻷا ﻦﻣ ،ﺦﻟا...تﺎﻨﺋﺎﻜﻟا ﻦﻤﺿ
ﻞﻴﺒـﺳ ﲆـﻋ (QBasic) ﺔـﻐﻟ ﰲ مـﻛ ﻼﺜـﻣ ﺺﻧ نﻮﻠﻳ كﻟ ﺞﻣﱪﳌا ﺎﻬﻣﺪﺨﺘﺴﻳ نﺎﻛ ﻲﺘﻟا ﺔﻴﺠﻣﱪﻟا
.لﺎﺜﳌا
لﻼﺧ ﻦﻣ ﺞﻣﱪﳌا ﻊﻣ ةﴍﺎﺒﳌا ﺔﻴﻛﺬﻟا ةروﺎﺤﳌا بﻮﻠﺳ ا تﺪﻤﺘﻋا ئﺮﳌا ﻚﺴﻴﺒﻟا ﺔﻐﻟ نا مﻛ
ﺔـﺻﺎﺧ ﻖﻳدﺎﻨـﺻ هءﺎـﻨﺒﺑ ﺞﻣﱪـﻤﻠﻟ ﺔـﻴﻧﺎﻜﻣﻷا ﺔـﺣﺎﺗاو تاراﻮـﺤﻟا وا تارﺎـﻴﺘﺧﻸﻟ ﺔـﻴﻛذ ﻖﻳدﺎﻨﺻ
ةﺮﻔﺸﻟا ﺮﻄﺳا ﺔﺑﺎﺘﻛ ءﺎﻨﺛا ﺎﻬﻴﻓ ﻊﻘﻳ نا ﻦﻜي ﻲﺘﻟا ءﺎﻄﺧﻷ ﺢﻴﺤﺼﺗ ﺔﻴﻧﺎﻜﻣا تﺮﻓو مﻛ ،ﻪﺠﻣﺎﻧﱪﺑ
لﻼـﺧ ﻦـﻣ ﺄـﻄﺨﻟا عﻮـﻧ ءﺎﻄﻋاو يﻌﻣ نﻮﻠﺑ هيﺷﺄﺘﺑ ﺄﻄﺨﻟا ﻊﻗﻮﻣ ﺪﻳﺪﺤﺗ لﻼﺧ ﻦﻣ (Coding)
.ﺞﻣﱪﻤﻠﻟ ةيﺼﻗ ﺔﻟﺎﺳر
ﺾـﻌﺑ ﲆـﻋ يﻮـﺘﺤﺗ ﺔـﻐﻠﻟا هﺬـﻫ نا ﺪـﻛﺆﳌا ﻦـﻤﻓ (ﻞـﺟو ﺰـﻋ) ل لمﻜﻟا نا لﻮﻘﻧ ايﺧا
ﺔـﻴﻠﻛ ﺐـﻟﺎﻃ ﻞـﻘﻨﻟ ﺔـﻟوﺎﺤﻣ ﻵا ﻮﻫ