تامولعملا ايجولونكت Information Technology ةيناثلا ةدحولا كسيب لوجيف ةغلب ةجمربلا رشع يداحلا فصلا

نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةمدقم

تحت لم عت يتلا و ايلعلا ةجمربلا تاغل ىدحا كسيب لوجيف ةغل دعت يتلاو كسيب ةغل نع ةروطتم ةغل يه و .

Dos Windows زودنيو ةئيب سود ةئيب تحت لمعت تناك ةلهس ةئ يب دعت ، ناولأ – مئاوق – تانوقيأ ىلع يوتحت زودنيو ةئيب .

مدختسملل .

حيتافملا ةحول للاخ نم رماولأاب طقف لماعتت سود ةئيب : اهمهأ تافلم ةدع نم كسيب لوجيف يف جمانربلا نوكتي project عورشملا – يسيئرلا فلملا  form جذومنلا      نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

كسيب لوجيف يف جمانربلا ةباتك تاوطخ

) جمانربلل ةمزلالا تاودلأا رايتخا ( جمانربلا ةهجاو ميمصت  ) اهريغ و اهناولأ و تاودلأا مجح ليدعت ( صئاصخلا طبض  ) ذفنت فوس يتلا ةيجمربلا لمجلا ( ةيجمربلا رماولأا ةباتك  ) جمانربلا ليغشت ( جمانربلا ذيفنت   F5 ىلع طغضلاب وأ Run  start ةمئاق للاخ نم جمانربلا ذيفنت متي / ةظحلام تاودلأا طيرش يف رز ىلع طغضلا وأ • Start  programs  ةمئاق نم MS visual studio 6.0  كسيب لوجيف جمانرب ءدبل MS visual basic 6.0

• نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

عم ريغ تملل زوجحملا ناكملا بسانتي – بوساحلا ةركاذ يف ناكمل مسا : ريغتملا .

هيف اهنيزخت دارملا تانايبلا عون عون نم ريغتملا امنيب ةركاذلا يف تياب 2 زجحي Integer عون نم ريغتملا .

ةركاذلا يف تياب 8 زجحي : لاثم Double   : يه ةماعلا ةغيصلا و Dim رملأا مدختسن تاريغتملا نع نلاعلإل  Dim name As Type تانايبلا عون type ، ريغتملا مسا وه name ثيح * & ( لثم صاخ زمر يأ ىلع يوتحي لا نأ و فرحب أدبي نأ بجي ريغتملا مسا .

اهريغ و ) $ # ! - ? / مادخت سا نوجمربملا لضفي نكلو حيحص ىنعم ريغتملا مسلا نوكي نأ طرتشي لا .

اهيف اهنيزخت دارملا تانايبلاب ةقلاع و ىنعم تاذ ءامسا نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ريغتملا نع نلاعلاا نع لاثم حيحص ددع عون نم x همسا ريغتم نع نلعأ  Dim x as Integer X= 5 ةميق هئاطعلإو نيب ةميقلا عضوت نأ بجي string صن عون نم ريغتمل ةيصن ةميق ءاطعا دنع .

نيتجودزم نيتلصاف school ةميقلا هؤاطعإ عم c همسا صن عون نم ريغتم نع نلعأ : لاثم Dim c as string C= “ school” صن قودنص يف مدختسملا نم ةميق هؤاطعإ عم m Dim m as integer m = val (text1.text) ريغتملل صنلا ةادأ نم ةميق لاخدإ همسا ريغتم نع نلعأ نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

جذامنلا ةددعتم جماربلا

ةمئاق نم جمانربلا ىلإ ديدج جذومن ةفاضلإ  Project  Add form راتخن ةشاشلا ىلع جذومن راهظلإ  FormName.show

.

ةشاشلا ىلع جذومنلا ضرعب موقي ةشاشلا ىلع هضرع متي مث لاوأ هليمحتب موقي ةركاذلا يف لمحم نكي مل اذا و Load FormName ةشاشلا ىلع جذومنلا ليمحتب موقي جذومنلا مسا FormName ثيح Load school Student.show

.

ةركاذلا يف : ةلثمأ school جذومنلا ليمحتل مزلالا يجمربلا رملاا بتكا 1 .

ةشاشلا ىلع student جذومنلا راهظلإ مزلالا يجمربلا رملأا بتكا 2 نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةشاشلا نم جذومن ءافخلإ  FormName.hide

.

ةركا ذلا يف هئاقبإ عم ةشاشلا نم جذومنلا ءافخإب قباسلا رملاا موقي و ةركاذلا نم جذومن فذحل  Unload formName .

ةر كاذلا نم هفذح مث ةشاشلا نم هئافخإ متيس ضورعم جذومنلا ناك اذا .

جذومنلل يضارتفا مسا وه formName ةظحلام نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةلثمأ

: لمكأ هئاقبإ عم ةشاشلا نم car جذومنلا ءافخإب موقي يجمرب رمأ ..........

(car.hide) .

ةركاذلا يف .

ةركاذلا ىلع man جذومنلا ليمحتل يجمرب رمأ ..........

  عم ةركاذلا ىلع teacher جذومنلا ليمحتل يجمرب رمأ ...........

(teacher.show) .

ةشاشلا ىلع هراهظإ نم و ةشاشلا نم class (load man) جذومنلا فذحل يجمرب رمأ ...........

(Unload class) .

ةركاذلا   نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

Procedures تاءارجلإا

ءادلأ ةدحاو ةدحوك لمعت يتلا ةيجمربلا لمجلا نم ةعومجم .

: ءارجلإا ةددحم ةمهم ةلمج ،ءارجلإا مسج ، ءارجلإا فيرعت ةلمج : نم ءارجلإا نوكتي .

ةياهنلا ءارجلإا ىلع لاثم Private sub command1_click( ) فيرعتلا ةلمج Dim s as string S = “ايجولونكت” Text2.text= s End sub ةياهنلا ةلمج    نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

: جمانربلا يف ءارجلإا مادختسا ايازم



.

ةيجمربلا لمجلا ليلقت 1 .

اهحيحصت و ءاطخلأا فاشتكا ليهست 2 .

جمانربلا ميمصت ليهست 3 : تاءارجلإا نم عاونأ ثلاث كانه ماعلا عرفلا ءارجإ .

3 نارتقلاا .

2 ثدحلا ءارجإ .

1

نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ثدحلا ءارجإ

ث دح دنع ذفنت يتلا ةيجمربلا لمجلا نم ةعومجم : ثدحلا ءارجإ .

نيعم اهيلع ذفنيس يتلا ةادلأا مسا . ) ( : نم ثدحلا ءارجإ مسا نوكتي امهلصفت ثدحلا عون و ءارجلإا  ةغل ( جمانربلا هردصم ، مدختسملا هردصم : ناعون ثدحلا ) كسيب لوجيف  ةلثمأ , سواملا رشؤم كيرحت : مدختسملا هردصم ثدح .

click ةادلأا ىلع طغضلا ، mouseMove load ةركاذلا ىلع جذومنلا ليمحت : جمانربلا هردصم ثدح form نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ   

ثدحلا ءارجإ ىلع لاثم د نع ليطتسم ةحاسم باسحب موقي ثدح ءارجإ بتكأ رمأ رز ىلع طغضلا

 ىلولأا ةوطخلا : لحلا جمانربلا ةهجاو لكش ليختن نأ بجي رماولأا و جمانربلا ةباتك ليهستل .) ةمزلالا تاودلأا ةفرعمل ( ضرعلا و لوطلا لاخدلإ text1,text2 : يه تاودلأا نأ جتنتسن ميمصتلا نم جتانلا ةعابطل ةيمست ةادأ ، ضرعلا و لوطلا ةيمستل ) label1,label2 text3 صن ةادأ يف ةعابطلا متت نأ نكمي : رخآ لح ( ، label3 .

command1 مكحت رز ةادأ و  نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةيجمربلا رماولأا ةباتك : ةيناثلا ةوطخلا  Private sub command1_click( ) Dim x as integer, y as integer X= val(text1.text) Y= val(text2.text) Label3.caption= x * y End sub نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

Function نارتقلاا

و ةدحاو ةدحوك لمعت يتلا ةيجمربلا رماولأا نم ةعومجم .

: نارتقلاا ءاعدتسلاا ةيلمع دنع اهذيفنت متي : ناعون نارتقلاا val( ) , str( ) ,sin( ), cos( ), tan( ), sqr( ) , لثم ةزهاجلا تانارتقلاا abs( ) ىلع لوص حلا متي مث ،اهلمع ةيلآ ةفرعم نودب اهل ميقلا ريرمت و اهئاعدتساب جمربملا موقي ) نارتقلاا نم ةعجرملا ةميقلا ( .

اهنم جتانلا .1

جمربملا ) اهممصي ( اهفرعي يتلا تانارتقلاا .

2 ىلإ ر رمت فوس يتلا تلاماعملا ددع ددحي ثيح ، اهفيرعتب جمربملا موقي ةيجمربلا رماولأاو لمجلا ددحي و امك ،ةعجرملا ةميقلا ددحي و نارتقلاا .

ميقلا هذه ىلع اهذيفنت دارملا نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ  

ةزهاجلا تانارتقلاا مادختسا ىلع لاثم

.

ة يوازلا بيج باسحب موقي كسيب لوجيف ةغلب اجمانرب بتكا  Private sub command1_click( ) Dim a as double a همسا يقيقح ددع عون نم ريغتم نع نلاعا A= val(text1.text) a ريغتملا يف text1 صنلا قودنص يف مدختسملا اهلخدي يتلا ةيددعلا ةميقلا نيزخت label1.caption= sin(a) عجري مث ةيوا زلا بيج باسحب موقيس يذلا و ، هلخاد يف ريغتملا ةميق ريرمت و ةيوازلا بيج نارتقا ءاعدتسا label1 ةيمستلا ةادا يف هرهظي و جتانلا End sub نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

نارتقلاا فيرعت نارتقلاا فيرعتل ةماعلا ةغيصلا

 Public | Private Function Name( Formal Parameters) As Type ثيح صاخ مأ ماع وه له نارتقلاا عون ديدحتل ةيجمرب رماوأ Public , Private نارتقا ينعي يجمرب رمأ تاريغتملا ةيمست نيناوق نارتقلاا ةيمست ىلع قبطني و – Function نارتقلاا مسا Name نارتقلال جمانربلا نم اهريرمت متس يتلا ةيلكشلا تلاماعملا يه و Formal Parameters ) نارتقلاا اهعجريس يتلا ةميقلا عون ديدحت ( نارتقلاا عون Type ( Byval name as type) ةيلاتلا ةلمجلا مادختساب تلاماعملا فرعت هعون type ، ريغتملا مسا name  ثيح .

يلكشلا لماعملا لخاد يف ررمتس يلعفلا ريغتملا ةميق نأ ينعي Byval رملأا و نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ريغ تانارتقلاا مادختساب جماربلا ىلع لاثم ةزهاجلا

.

تانارتقلاا مادختساب ددع بعكم باسحب موقي جمانرب بتكا  نارتقلاا فيرعتب موقن ىلولأا ةوطخلا : لحلا  ةلأسم لا ليلحت بجي ،فيرعتلا ةلمج يف ةمزلالا تلاماعملا ددع ةفرعمل .

لحلا ةقيرط ةفرعمل a * a * a ؟؟ ددع بعكم باسح ةلداعم يه ام .

طقف دحاو لماعم لاا انمزلي لا يلاتلاب Public function cube(Byval a as double) as double Cube = a * a * a End function ةميق اهع صيصخت نارتقلاا مسج نمضتي نأ بجي جريس يتلا ةميقلا يه و – نارتقلاا مسلا جمانربلل نارتقلاا نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

انمق يذلا نار تقلاا ءاعدتساب موقيس يذلا و يسيئرلا جمانربلا ةباتك – ةيناثلا ةوطخلا هفيرعتب  Private sub command1_click( ) Dim x as integer X= val(text1.text) و text1 لولاا صنلا قودنص يف مدختسملا اهلخديس يتلا و ىلولاا ةميقلا ةءارق x ريغتملا يف اهنيزخت Label1.caption= cube(x) ةعجرملا ةميقلا ةعابط و .

هيف x ريغتملا ةميق ريرمت و label1 cube نارتقلاا ءاعدتسا ةيمستلا ةادأ يف ) نارتقلاا جتان ( End sub نم نارتقلاا ءاعدتسا متي ميقلا ريرمت و همسا للاخ هيف ةيبرعلا ةغللاب بوتكملا حرشلا فذحب مق قباسلا جمانربلا قيبطت تدرأ اذا : ةماه ةظحلام نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ماعلا عرفلا ءارجإ ل معت يتلا ةيجمربلا لمجلا نم ةعومجم : ماعلا عرفلا ءارجإ .

ءاعدتسلاا دنع اهذيفنت متي و ةدحاو ةدحوك



: ةيلاتلا ماهملاب مايقلل ماعلا عرفلا ءارجإ مدختسي

مدختسملا نم تانايب لاخدا  ةشاشلا ىلع تامولعم ضرع  جمانربلا صئاصخ ديدحت  جمانربلل ميق ةدع عاجرإ و تايلمع ءارجإ   نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

م اعلا عرفلا ءارجإ فيرعتل ةماعلا ةغيصلا

Private | Public sub Name( Formal Parameters) ثيح صاخ وأ ماع ءارجلإا لعجل ةيجمرب رماوأ Public, Private ) ثدحلا ءارجإ يف امك ( ءارجلإا فيرعتل يجمرب رمأ Sub ريغتملا ةيمست دعاوق هيلع قبطني و جمانربلا نم ءارجلإل ررمتس يتلا ةيلكشلا تلاماعملا – ءارجلإا مسا Name Formal Parameters (Byref name as type) ماعلا عرفلا ءارجإ يف تلاماعملا فيرعت ةلمج يف ناونعلاب ررميس يلعفلا لماعملا نأ ىلع ةللادلل Byref .

يلكشلا لماعملا لخاد  رملاا مدختسي ثيح نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ماعلا عرفلا ءارجإ ىلع لاثم ددع عبرم داجيإب موقي جمانرب بتكا

ءارجلإا فيرعت ىلولأا ةوطخلا : لحلا   ؟جاتحن لماعم مك – هسفن X ددعلا = !!

ددع عبرم باسح نوناق ركف ) ددعلا ( دحاو لماعم ىلإ جاتحن Public sub square(Byref x as double) X= x * x End sub نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ءارجلإا ءاعدتسا و يسيئرلا جمانربلا ةباتك : ةيناثلا ةوطخلا  Private sub command1_click( ) Dim a as Double يقيقح ددع عون نم ريغتم فيرعت A= val(text1.text) يف مدختسملا اهلخديس يتلا ةميقلا لاخدا ريغتملا لخاد يف صنلا قودنص Call square(a) هيف ريغتملا ريرمت عم ماعلا عرفلا ءارجإ ءاعدتسا Label1.caption = a ةيمستلا ةادا يف ريغتملا ةعابط End sub دعب و لبق فلتخت a square ريغتملا ةميق عرفلا ءارجإ ءاعدتسا ماعلا ةيبرعلا ةغللاب بوتكملا حرشلا فذحب مق قباسلا جمانربلا قيبطتل : ةماه ةظحلام نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةماه تانراقم

ماعلا عرفلا ءارجا ءارجلاا مسا ىلع يوتحت رملأا مادختساب تلاماعملا هيف فرعت ناونعلاب ريرمتلا يأ byref يجمربلا ةعجرملا ةميقلل – ءارجلاا عون فرعي لا ررم ت يتلا تاريغتملا ىلإ دنست و – ميق ةدع ءارجلاا يف Call Name( parameters) نارتقلاا نارتقلاا مسا ىلع يوتحت رملأا مادختساب تلاماعملا هيف فرعت ةميقلاب ريرمتلا يأ byval يجمربلا ةعجرملا ةميقلا – نارتقلاا عون فرعي ي ف نارتقلاا مسا ىلإ دنست و – ةدحاو ةميق نارتقلاا مسج Name (parameters) تررم يتلا ( ةيلعفلا تلاماعملا ميق يف ريغي ) ءاعدتسلاا ةلمج يف تررم يتلا ( ةيلعفلا تلاماعملا ميق ريغي لا ) ءاعدتسلاا ةلمج لخاد يف ةنراقملا هجو فيرعتلا ةلمج ةعجرملا ةميقلا ءاعدتسلاا ةلمج ةي ميق يف ريغي لعفلا تلاماعملا نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ناونعلاب ريرمتلا و ةميقلاب ريرمتلا

اهريرمت و ، يلعفلا ريغتملا / يلعفلا لماعملا ةميق نع ةخسن ذخأ : ) نارتقلاا يف ( ةميقلاب ريرمتلا .

نارتقلاا ذيفنت دعب يلعفلا لماعملا ةميق ريغتت لا .

يلكشلا لماعملا يف  حبصي يأ ، يلكشلا لماعملل هريرمت و يلعفلا لماعملا ناونع ذخأ ةميق ريغتس ءارج لاا يف يلكشلا لماعملا ةميق يف رييغت يأ .

.

: ) ءارجلإا يف ( ةميقلاب ريرمتلا دحاو ريغتمك يلكشلا و يلعفلا ريغتملا يسيئرلا جمانربلا يف دوجوملا يلعفلا لماعملا  يف ررم ي فوس يذلا و مدختسملا اهلخدي يتلا ميقلا هيف نزخت يذلا لماعملا وه : يلعفلا لماعملا هيف ب تكنس يذلا يسيئرلا جمانربلا يف فرعم ( .

ماعلا عرفلا ءارجإ وأ نارتقلاا ءاعدتسا لمج ) ءاعدتسلاا ةلمج .

ي سيئرلا جمانربلا نم ةيلعفلا تلاماعملا ميق هيف ررمت يذلا لماعملا وه ) : يلكشلا لماعملا ماعلا عرفلا ءارجإ وأ نارتقلاا فيرعت ةلمج يف فرعم (   نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ريغتملا قاطن

.

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

اهريغ و ةعابط : كسيب لوجيف يف ريغتملا تاقاطن نم عاونأ ثلاث كانه اذه لخا د يف افرعم نوكي يلاتلاب و لخاد يف هفيرعت ةلمج نوكت و – ءارجإ لخاد يف فرعملا ريغتملا وه و : يلحملا .

ريغتملا طقف ءارجلاا كلذ يف تا فيرعتلل ةماعلا ةقطنملا يف فرعي يذلا ريغتملا وه : جذومنلا ىوتسم ىلع ريغتملا .

جذومنلا public رملأا مادختساب فرعي يذلا وه و : (Standard Module) ماعلا ريغتملا ةيسايق ةدحو    .1

.2

.3

نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةماه ةظحلام : ةيسايقلا ةدحولا

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

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

جمانربلا قاطن ىلع نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ءارجإ قاطن ىلع ريغتملا ىلع لاثم

Private sub command1_click( ) Dim s as Integer S= 5 End sub ) ءارجلإا لخاد يف ةبوتكم dim فيرعتلا ةلمج ( ءارجإ لخاد يف فرعم s ريغتملا .

ءارجلاا اذه وه طقف هقاطن نا ينعي امم ةميقلا ةعابط متي نل ، رخآ ءارجإ نم s ريغتملا ةميق ةعابط ةلواحمب انمق لاح يف .

5 نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

جذومنلا ىوتسم ىلع ريغتملا

form1 جذومنلا ىوتسم ىلع حيحص ددع عون نم count ريغتملا فرع  form1 راسيلا جذومنلاب ةصاخلا تافيرعتلل ةماعلا ةقطنملا يف count : لحلا ريغتملا فيرعت ةلمج بتكن  ىلعأ يف ةلدسنملا ةمئاقلا نم راتخن مث ، جذومنلا يف غراف ناكم يف نيترم سواملاب رقنن General ةيلاتلا فيرعتلا ةلمج بتكنو Dim count as Integer رز يف .

جذومنلا اذه يف ةدوجوملا ( ) رخأ ءارجا نم اهتعابط و رارزلأا ) ( تاءارجلاا لك يف فرعم count ريغتملا حبصي اذكه command1 رز يف لاثم ( ءارجا يف ةميق هئاطعإ نكمي و ) command2 نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ماعلا ريغتملا

يلاتلا لكشلاب ةيسايق ةدحو لخاد يف هفيرعت ةلمج بتكن  Add Module مث Project ةمئاقل بهذن Module لا ىلع نيترم رقنن مث ةيلاتلا ةيجمربلا ةلمجلا بتكنو General b as Integer ) جذامنلا لك يف ( جمانربلا ءازجا لك يف افرعم b ريغتملا حبصي اذكه نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةيداحلأا ةفوفصملا

.

دحاو عون نم تاريغتملا نم ةعومجم نيزختب موقت و تانايبلا بيكارت ىدحإ يه .

حيحص ددع عون نم تاريغتم  10 فرع لاثم تاريغتملل ءامسا 10 راتخن و تارم 10 ريغتملا فيرعت ةلمج رركن نأ بجي : لحلا Dim a as integer Dim x as integer Dim c as integer Dim y as integer Dim e as integer Dim b as integer Dim g as integer Dim f as integer Dim t as integer Dim n as integer .

اقحلا اهيل ع لمعلل تاريغتملا هذه لك ءامسأ ظفح ةبوعصل ةفاضلإاب ، لمجلا هذه هذخأت يذلا ريبكلا زيحلا ظحلا رصانع 10 ب اهيف رصانعلا ددع ددحن و حيحص ددع عون نم ةفوفصم فرعن : لضفلاا لحلا نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةيداحلأا ةفوفصملا فيرعت

Dim name(n) as type ةفوفصملا مسا name ثيح ) رفص ب أدبي ( اهرصانع ددع n تانايبلا عون Type قباسلا لاؤسلا لح Dim n(9) as integer رصانع 10 ىلع يوتحت حيحص ددع عون نم ةفوفصم انفرع يلاتلاب و .

تاريغتم 10 لا لثمت نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

ةفوفصملل ميق ءاطعإ : ةفوفصملل ميقلا ءاطعإ ةقيرط

 ميق هي طعن و ةفوفصملا يف رصنع لك مسا ةباتكب موقن : ىلولأا ةقيرطلا .) جمربملا للاخ نم ةفوفصملل ميق ءاطعإ ( لصفنم لكشب n(0) = 5 ةفوفصملا يف لولاا رصنعلا يف 5 ةميقلا نيزخت n(1) = 3 ةفوفصملا يف يناثلا رصنعلا يف 3 ةميقلا نيزخت .1

اذكه و .

مدختسملا قيرط نع ةفوفصملل ميق لاخدا : ةيناثلا ةقيرطلا .

2 نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

.

ميقلا هذه ةعابطب مق مث تاملاع 10 نيزختب موقت يقيقح ددع عون نم ةيداحأ ةفوفصم نع نلعأ Private sub command1_click( ) Dim a(9) as double Dim i as integer For I = 0 to 9 تارم 10 راركت لمعل رمأ a(i)=inputbox( “ةملاعلا لخدا”) Label1.caption= label1.caption & “ “ & a(i) Next i  End sub اهي ف ” ” نيب ةبوتكملا ةلاسرلا رهظت و ، صن قودنص ىلع يوتحت ةشاش راهظإب inputbox موقت نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

قباسلا جمانربلا حرش

رفص يواست i ريغتملا ةميق نوكت ذيفنتلا ءدب دنع a(i) = inputbox ( “ةملاعلا لخدا” ) ةيلاتلا ةشاشلا راهظإب رماولأا هذه موقت a(0) ةفوفصملل لولاا رصنعلا يف نزختس راركتلا طرش صحف متي مث ، دحاوب ok ىلع طغضلا و ةميق لاخدا دنع و label1 يف رصنعلا ةميق عبطن مث i ريغتملا ةميق ديزت فوس يتلا و next i ةلمجل لصن مث نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

قباسلا جمانربلا حرش عبات

ل ةي لاتلا لمجلا ذيفنت متيس اذا .

9 ةميقلا يواست وا لقأ ققحتم طرشلا لاز ام نذا 1 = 1 + i ريغتملا ةميق نوكت نأ ذيفنتلا طرش 0 يه ةديدجلا i ريغتملا ةميق نأ امب for a(i) = inputbox ( “ةملاعلا لخدا” ) ةيلاتلا ةشاشلا راهظإب رماولأا هذه موقت a(1) ةفوفصملل يناثلا رصنعلا يف نزختس ok ىلع طغضلا و ةميق لاخدا دنع و ىلإ ةفاض لإاب ) لولأا رصنعلا ىلع يوتحت يتلا و ( ةيمستلا ةادلأ ةميدقلا ةميقلا ةعابط متيس مث و راركتلا طرش صحف متي مث ، دحاوب i ريغتملا ةميق ديزت فوس يتلا و تارم .

يناثلا رصنعلا ةميق next i ةلمجل لصن مث 10 ةيلمعلا هذه رركتت نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

مدختسملا اهلخديس يتلا ميق 10 لا ةعابطب جمانربلا موقيس ةياهنلا يف label1 صنلا ةادأ يف ةفاسم اهلصفت  ة ةميق ن وكت امدنع راركتلا لمج ذيفنت اهيف متي ةلحرم رخآ : ةفرعملل ميق حبصت ىرخأ ةرم راركتلا ةلواحم دنع هنلأ ، for i =o to 9 طرشلا ققحتي نل يلاتلاب و 9 يواست 10 يواست i ريغتملا i ريغتملا  نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ

الله دمحب مت

عقوملا للاخ نم لصاوتلا تاقيلعت يأ دوجو لاح يف ءاجرلا www.technologya.ps

قيفوتلا و حاجنلاب مكل يتاينمت عم  نينبلل ةيوناثلا لمركلا ةسردم ةفق الله دبع .

أ