البرنامج الثالث
المرحلة الأولى: سنقوم بعمل برنامج يحتوي على أداتي مربع نص Tow TextBoxes، وأداة زر CommandButton، وأداة عنوان Lable، وعندما يضغط المستخدم على الزر يقوم البرنامج بجمع العدد الموجود في مربع النص الأول مع العدد الموجود في مربع النص الثاني ويظهر الناتج في أداة العنوان.
المرحلة الثانية: قم برسم الأدوات المذكورة، واضبط الخصائص كما يلي:
الأداة Form1:
Caption --> البرنامج الثالث
Hight --> 3500
Width --> 4500
StartUpPosition --> 2 CenterScreen
أداة مربع النص الأولى:
Name --> TxtFirstNum
Text --> اجعله فارغاً
Hight --> 375
Width --> 495
Left --> 1943
Top --> 120
أداة مربع النص الثانية:
Name --> TxtSecondNum
Text --> اجعله فارغاً
Hight --> 375
Width --> 495
Left --> 1943
Top --> 600
أداة الزر:
Name --> CmdNum
Caption --> المجموع
Hight --> 500
Width --> 1200
Left --> 1590
Top --> 1200
أداة العنوان:
Name --> LblNum
Caption --> اجعله فارغاً
Hight --> 1000
Width --> 4000
Left --> 190
Top --> 1900
سيصبح الشكل النهائي للنموذج هكذا:
المرحلة الثالثة: في حدث النقر Click على زر المجموع CmdNum اكتب الكود التالي:
CODE
LblNum.Alignment = 2
"LblNum.FontName = "Traditional Arabic
LblNum.FontSize = 12
)LblNum.Caption = Val(TxtFirstNum.Text) + Val(TxtSecondNum.Text
والشكل النهائي للكود هكذا:
شرح الكود: كما ترى فإن هذا الكود شبيه جداً بالكود الذي كتبناه في البرنامج السابق إلا أننا أضفنا الكلمة Val والتي تعني (قيمة)، أي أننا نريد أن نجمع ما في المربع الأول مع ما في المربع الثاني كقيمة عددية، ولو لم نكتب هذه الكلمة فإن البرنامج سيجمعها كقيمة نصية وليس عددية...
مثلاً 19+3 عندما نجمعهم كقيمة نصية فإن الناتج سيكون 311 .. ولكن عندما نجمعهم كقيمة عددية فإن الناتج سيكون 14 وهذا ما نريده ..
اضغط الآن F5 وتأكد من النتيجة.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
البرنامج الرابع
المرحلة الأولى: سنقوم بعمل برنامج يحتوي على أداة مربع صورة PictureBox تقع في وسط النموذج تماماً، وفي جوانبها الأربعة أربعة أدوات زر four CommandButtons، وعندما يضغط المستخدم على الزر العلوي تتحرك الصور إلى أعلى، وعندما يضغط على الزر الأيمن تتحرك الصورة إلى اليمين وهكذا ... أيضاً عندما يمر المستخدم بالماوس على الصورة يتم إحاطتها بـ خط أسود خارجي، وعندما يمر المستخدم بالماوس خارج الصورة أي على النموذج يختفي هذا الخط الأسود.
المرحلة الثانية: قم برسم الأدوات المذكورة، واضبط الخصائص كما يلي:
الأداة Form1:
Caption --> البرنامج الرابع
Hight --> 6000
Width --> 6000
StartUpPosition --> 2 CenterScreen
أداة مربع الصورة:
Name --> PicTest
Picture --> ضع أي صورة تعجبك
BoderStyle --> 0 None
Hight --> 855
Width --> 855
Left --> 2513
Top --> 2370
أداة الزر الأولى:
Name --> CmdUp
Caption --> Up
Hight --> 500
Width --> 615
Left --> 2633
Top --> 240
أداة الزر الثانية:
Name --> CmdDown
Caption --> Down
Hight --> 500
Width --> 615
Left --> 2633
Top --> 4920
أداة الزر الثالثة:
Name --> CmdLeft
Caption --> Left
Hight --> 500
Width --> 615
Left --> 360
Top --> 2610
أداة الزر الرابعة:
Name --> CmdRight
Caption --> Right
Hight --> 500
Width --> 615
Left --> 4920
Top --> 2610
سيصبح الشكل النهائي للنموذج هكذا:
المرحلة الثالثة:
في حدث النقر Click على زر أعلى CmdUp اكتب الكود التالي:
CODE
PicTest.Top = PicTest.Top - 100
وفي حدث النقر Click على زر أسفل CmdDown اكتب الكود التالي:
CODE
PicTest.Top = PicTest.Top + 100
وفي حدث النقر Click على زر يمين CmdRight اكتب الكود التالي:
CODE
PicTest.Left = PicTest.Left + 100
وفي حدث النقر Click على زر يسار CmdLeft اكتب الكود التالي:
CODE
PicTest.Left = PicTest.Left - 100
وفي حدث المرور بالماوس MouseMove على الصورة اكتب الكود التالي:
CODE
PicTest.BorderStyle = 1
وفي حدث المرور بالماوس MouseMove على النموذج اكتب الكود التالي:
CODE
PicTest.BorderStyle = 0
والشكل النهائي للكود هكذا:
اضغط الآن F5 وتأكد من النتيجة.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»(ملك الهكرز)«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»
ان كانــــــت جنــــة الله في الدنيــا فــهي دمشــــــــــــــــــــــــــــــــقُ
الرجاء من كافة الاعضاء الكرام (والاقارب) عدم ارسال رسائل تخص الاختراق والندف
وتانكيو