المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الدرس الرابع-سلسلة دروس تعلم فيجوال بيسك دوت نت


sweety
08-23-2007, 02:35 PM
السلام عليكم ورحمة الله

سنتكلم في هذا الدرس عن Objects و Events و في آخر الدرس سنطبق مثال

بسم الله

أولا :الكائنات Objects

إن لغة الـ VB.Net مبنية بالكامل على مفهوم البرمجة الشيئية أو البرمجة بالكائنات,سنتعلم معاً اليوم

كيف تتعامل VB.Netمع الكائنات.

كل ماتستخدمه في لغتنا هذه هو كائن Object. فالمتغيرات والنماذج وغيرها هي كائنات حيث أن لكل كائن سمات(خصائص) properties.

بالمثال المبسط التالي ستتضح الصورة:

لنفرض أن لدينا طالب Student. هذا الطالب هو كائن (شيء) وله خصائص عديدة منها على سبيل

المثال: الاسم Name,

العمر Age..الخ

الآن سنقوم بتمثيل الكائن وسماته باستخدام كود VB.Net والطريقة كالتالي:

ObjectName . Property

أي اسم الكائن ثم ( . ) ثم خاصية أو سمة من سماته حيث أنه بمجرد كتابتك للنقطة (.) ستنسدل لك قائمة تحتوي على جميع خصائص هذا الكائن المعرفة داخل البرنامج.

لنطبق ذلك على الكائن المعرف أعلاه Student:

Student . Name

Student . Age

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

لملء هذه القيم (الخصائص) في حال كونها فارغة قم بالآتي على سبيل المثال:

Student . Name = Ahmed

Student . Age = 20


ثانيا: الأحداث Events

الأحداث باختصار هي طرق يمكن استدعاؤها باستخدام بعض الأساليب الخاصة ومن أشهر هذه

الأساليب تفاعل المستخدم مع شيء ما على النموذج كالنقر click على أحد أزرار النموذج مثلا.

يعدّ النقر click على زر Button ما أحد أشهر وأكثر الأحداث شيوعا واستخداما. حيث أن المستخدم

بنقره على الزر يكون قد استدعى حدثا ما.

لاستدعاء الأحداث أربع طرق هي:

1- تفاعل المستخدم مع البرنامج.

2- يستطيع الكائن تشغيل الحدث الخاص به إذا لزم الأمر.

3- يستطيع نظام التشغيل تشغيل الأحداث.

4- تشغيل الأحداث باستخدام كود برمجي.

مثال:

عند تشغيل البرنامج ستظر النافذة التالية:
http://up2.arabsh.com/072/988f829.jpg
ادخل الاسم واختر احد الخيارين, male او female
http://up2.arabsh.com/072/7705ade.jpg
ثم اضغط على welcome
سيظهرmsgbox كما يلي
http://up2.arabsh.com/072/85184de.jpg
لاحظ عند اختيار female, سيظر لك "Hello, Miss", لكن عند اختيار male سيظهر Hello, Mr.
لاحظ الصورة:
http://up2.arabsh.com/072/855878f.jpg
وعند الضغط على close, سيغلق البرنامج

نبدأ الشغل...

ملاحظة : كلمة teext تتكون من e واحدة فقط

اولا: قم بادراج الادوات على الفورم من قائمة الادوات ,ستحتاج الى
group box,2radio button,lable,teextbox,2 button كما بالشكل:
http://up2.arabsh.com/072/5e2b664.jpg
في دروس سابقة تعرفنا على buttonو,lable,teextbox
اليوم سنتعامل مع اداة جديدة وهي radio button وكما لاحظنا فهي تستخدم لتحديد خيار من بين مجموعة خيارات.

ثانيا:حدد خاصية Nameو teextلكل اداة كما بالجدول:
http://up2.arabsh.com/072/c88a6af.jpg
الآن انقر نقراً مزدوجا على الزر welcom و اكتب الكود التالي:

If rdbMale.Checked = True Then
MsgBox("Hello, Mr. " + txtName.teext)
Else
MsgBox("Hello, Miss " + txtName.teext)
End If

نلاحظ اننا استخدمنا احد اشكال جملة if , والذي له الصيغة العامة التالية:
if condition then
statment 1
else
statment 2
end if

اي اذا تحقق الشرط ,نفذ statment 1 والا نفذ statment 2

نرجع للمثال..

rdbMale هو الاسم البرمجي لزر الاختيار الاول,
Checked خاصية تأخذ القيمة True اذا تم اختيار الزر وتأخذ القيمة False اذا لم يتم اختياره.

If rdbMale.Checked = True

اي اذا تم تحديد الخيار male ,عندها اظهر msgbox تحوي على "Hello, Mr. "
بالاضافة الى الاسم الذي كتبه المستخدم في teextbox , كيف نحصل على الاسم ؟؟؟ وذلك بكتابة الاسم

البرمجي للteextbox ثم نقطة (ستظهر لك قائمة منسدلة , اخترالخاصية teext)
txtName.teext

و اذا لم يتم تحديد male , سينتقل البرنامج الى تنفيذ الجملة الموجودة بعد Else وهي اظهار msgbox تحوي على "Hello, Miss"
بالاضافة الى الاسم الذي كتبه المستخدم في teext box .

انقر نقرا مزدوجا على الزر close و اكتب

End

وهي لانهاء البرنامج

و بكذا خلص البرنامج و جاء وقت تشوف نتيجة شغلك , اختر من قائمة debue>> star debugging

ارجو ان الشرح يكون واضح,, واذا في اي استفسار انا حاضرة

يوجد في المرفقات المثال الذي تم شرحة , حيث تحتاج لفتحة الى تحميل microsoft visual basic 2005

http://msdn.microsoft.com/vstudio/express/downloads/default.aspx



جمع واعداد اختكم
sweety

برق الشمال
08-24-2007, 02:25 AM
بارك الله فيك استاذتنا سويتي


على الشرح الرائع

لي عودة ان شاء الله

الف شكر اختي

sweety
08-24-2007, 02:27 PM
الكود الاول:



If rdbMale.Checked = True Then:

MsgBox("Hello, Mr. " + txtName.****)
Else
MsgBox("Hello, Miss " + txtName.****)
End If

الكود الثاني:

If rdbMale.Checked = True Then
MsgBox("Hello, Mr. " + txtName.****)
Elseif rdbFemale.Checked = True Then
MsgBox("Hello, Miss " + txtName.****)
Else
MsgBox("you must select the Gender ")
End If

ايش الفرق بين الكودين؟؟؟

الكود الاول : لو اخترت male, بيطلع hello Mr وإلا راح يطلع hello Miss سواء اخترت female او لم تختاراي شيء.
طبعا في ها الحالة اصبح في البرنامج قصور,, كيف نحل ها المشكلة ??باستخدام الكود الثاني.

الكود الثاني:استخدمنا شكل آخر من اشكال جملة If , ويسمى nested if او if المتداخلة .

المهره الأصيله
08-26-2007, 02:42 AM
هلا والله بسويتي
ومرحبا فيك


يعطيك العاافيه والله
شرح كاافي واافي
سلمت يمناااك يالغاليه


ومعليش مقصرين هالاياام بلحييل

لكن الله يكون بالعون بس



دمت ودام لك الخير:
اختك


المهره الأصيله

عنــاد
09-11-2007, 11:23 PM
شرح جبـــــــــــاار يعطيك ألف عافيه علي الشرح الرائع
وتسلم يمنااك خيتو

أخوك عنــــاد

sweety
09-12-2007, 08:06 PM
شرح جبـــــــــــاار يعطيك ألف عافيه علي الشرح الرائع
وتسلم يمنااك خيتو

أخوك عنــــاد

يعافيك ربي أخوي عناد

شاكرة لك مرورك

MIX
12-04-2007, 12:20 PM
بارك الله فيك

شرح اذا فيه مبتدئى تحت الصفر بذن الله بيفهم


الله يديم الصحة عليكم

mix

الاميرة الهادئة
01-22-2008, 07:03 AM
السلام عليكم ورحمة الله وبركاته

<<<< جايه بدري :1:


المهم ابشرك بدات اتعلم الفيجوال بيسك دوت نت


وهذا تطبيقي على درسك

http://www.barqalshamal.com/upload/folder1/elite_v22nFO0pp.gif
ومن جد مره حلوووه هاللغه وسهله

بس عندي سوال ؟؟؟

كيف احفظ العمل الي سويته بحيث اقدر استخدمه بدون ما افتح الفيجوال ؟؟؟؟

sweety
01-22-2008, 08:37 PM
يا هلا و الله بالاميرة


<<<< جايه بدري :1:


تشرفي في اي وقت حيّاك


المهم ابشرك بدات اتعلم الفيجوال بيسك دوت نت


خبر حلو الله يبشرك بالخير


ومن جد مره حلوووه هاللغه وسهله


الحمد لله

كيف احفظ العمل الي سويته بحيث اقدر استخدمه بدون ما افتح الفيجوال ؟؟؟؟

اذا تبغي تفتحي البرنامج من جهازك افتحي مجلد البرنامج في داخلة مجلد اسمه bin
وداخل ها المجلد في مجلد اسمه debug

حتلاقي ايقونه البرنامج في هذا المجلد و حيكون شكلها مثل اللي في الصورة

http://up101.arabsh.com/my/5739671.jpg

طبعا اسمه حيكون نفس اسم برنامجك

اما اذا كنت تبغي تشغلي البرنامج على جهاز مو مثبت عليه الفيجوال فلازم تعملي ملف السيت اب و هذا ان شاء الله حأنزله في درس بإذن الله

نمر الشراري
02-06-2008, 02:55 AM
مشاء الله تبارك الله مبدعة والله

ربي يوفقك ويسدد خطااك

sweety
02-06-2008, 11:17 PM
مشاء الله تبارك الله مبدعة والله

ربي يوفقك ويسدد خطااك


يا هلا بأخوي
شاكرة لك مرورك