تطوير البرنامج الأول
في الدرس السابق قمنا بعمل برنامج بسيط واليوم سنقوم بعمل نفس البرنامج لكن بشكل أكثر احترافاً:
الآن قم بوضع أداتي زر Tow CommandButttons وأداة عنوان Lable، وقم بتغيير
الخصائص كالتالي:
الأداة Form1:
Caption --> تطوير البرنامج الأول
Hight --> 3500
Width --> 4500
StartUpPosition --> 2 CenterScreen
أداة الزر الأولى:
Name --> CmdWelcome
Caption --> &ترحيب
Hight --> 500
Width --> 1200
Left --> 3000
Top --> 2400
أداة الزر الثانية:
Name --> CmdExit
Caption --> &خروج
Hight --> 500
Width --> 1200
Left --> 200
Top --> 2400
أداة العنوان:
Name --> LblWelcome
Caption --> اجعله فارغاً
Hight --> 1000
Width --> 4000
Left --> 190
Top --> 350
سيصبح الشكل النهائي للنموذج هكذا:
والآن إلى المرحلة التالية(كتابة الكود):
في حدث النقر Click على زر الترحيب CmdWelcome اكتب الكود التالي:
CODE
LblWelcome.Alignment = 2
"LblWelcome.FontName = "Traditional Arabic
LblWelcome.FontSize = 40
LblWelcome.FontBold = True
LblWelcome.FontUnderline = True
LblWelcome.ForeColor = 1000
"مرحباً" = LblWelcome.Caption
في حدث النقر Click على زر الخروج CmdExit اكتب الكود التالي:
CODE
End
سيصبح الشكل النهائي للكود هكذا:
الآن اضغط F5 وانظر النتيجة
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
البرنامج الثاني
المرحلة الأولى: سنقوم بعمل برنامج يحتوي على أداتي مربع نص Tow TextBoxes، وأداة زر CommandButton، وأداة عنوان Lable، ويقوم المستخدم بكتابة اسمه الأول في مربع النص الأول، واسمه الأخير في مربع النص الثاني، وعندما يضغط المستخدم على الزر يقوم البرنامج بإظهار الاسم كاملاً في أداة العنوان.
المرحلة الثانية: قم برسم الأدوات المذكورة، واضبط الخصائص كما يلي:
الأداة Form1:
Caption --> البرنامج الثاني
Hight --> 3500
Width --> 4500
StartUpPosition --> 2 CenterScreen
أداة مربع النص الأولى:
Name --> TxtFirstName
Text --> أدخل الاسم الأول
Hight --> 375
Width --> 3735
Left --> 360
Top --> 120
أداة مربع النص الثانية:
Name --> TxtLastName
Text --> أدخل الاسم الثاني
Hight --> 375
Width --> 3735
Left --> 360
Top --> 600
أداة الزر:
Name --> CmdFullName
Caption --> الاسم كاملاً
Hight --> 500
Width --> 1200
Left --> 1590
Top --> 1200
أداة العنوان:
Name --> LblFullName
Caption --> اجعله فارغاً
Hight --> 1000
Width --> 4000
Left --> 190
Top --> 1900
سيصبح الشكل النهائي للنموذج هكذا:
المرحلة الثالثة: في حدث النقر Click على زر الاسم كاملاً CmdFullName اكتب الكود التالي:
CODE
LblFullName.Alignment = 2
"LblFullName.FontName = "Traditional Arabic
LblFullName.FontSize = 12
LblFullName.Caption = TxtFirstName.Text + " " + TxtLastName.Text
والشكل النهائي للكود هكذا:
شرح الكود: كما ترى الكود بسيط جداً حيث في السطر الأول نقوم بتغيير خاصية المحاذاة إلى توسيط، ونغير خاصية نوع الخط إلى Traditional، ونغير حجم الخط إلى 12، وفي السطر الأخير نجعل الخاصية Caption (وهي تعني النص المعروض) تساوي النص الموجود في مربع النص الأول + مسافة + النص الموجود في مربع النص الثاني.
اضغط F5 وتأكد من النتيجة.
«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»(ملك الهكرز)«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»
ان كانــــــت جنــــة الله في الدنيــا فــهي دمشــــــــــــــــــــــــــــــــقُ
الرجاء من كافة الاعضاء الكرام (والاقارب) عدم ارسال رسائل تخص الاختراق والندف
وتانكيو