تبي تتعلم الفيجوال بيسك اذا ادخل

**ابو سلمان** · 12-01-2006, 06:42 PM

الرد: تبي تتعلم الفيجوال بيسك اذا ادخل

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

وبالتوفيق وإلى الأمام
لي تجارب في هذا المضمار وأشتغلت لفترة على الفيجوال بيسك البرنامج ممتع ويستحق التجربة

**Abanda** · 12-01-2006, 08:19 PM

الرد: تبي تتعلم الفيجوال بيسك اذا ادخل

أشكرك أخوي على مرورك الكريم
الدرس الثاني قاعدة if
قبل ان نبدأ
عليك أولا فهم الدرس الأول جيدا فاذا كنت قد فهمت الدرس الأول جيدا فمعنى هذا انك تستطيع قراءة هذا الكود
[php]text1.text = "السلام عليكم"[/php]
ملاحظة : سأشرح القاعدة في هذا الدرس وفي الدرس القادم سنقوم بتطوير برنامجنا (الزكاة) باستخدام هذه القاعدة
تعريف قاعدة if باختصار :
1- اذا حدث هذا الشرط يحدث جواب الشرط
2- اذا حدث هذا الشرط يحدث جواب الشرط وان لم يحدث هذا الشرط يحدث الجواب الثاني للشرط
3- اذا حدث هذا الشرط يحدث جواب الشرط وان لم يحدث هذا الشرط يحدث الشرط الثاني
عليك حفظ هذه الكلمات
if
else
elseif
end if
عليك أن تعلم أولا شروط if
= تساوي
< أكبر من
> أصغر من
<> لا تساوي
>= تساوي أو اصغر من
<= تساوي أو أكـبر من
نبدأ بالشرح:
if : نخبر الفيجوال بيسك بأننا نريد استخدام هذه القاعدة
else : اذا لم يحدث الشرط يحدث الجواب الآخر للشرط
else if : اذا لم يحدث الشرط يحدث الشرط الثاني

ترميز:

[COLOR=red][B]if[/B][/COLOR] text1.text [COLOR=red][B]= [/B][/COLOR]text2.text [COLOR=red][B]then[/B][/COLOR] label1.caption [COLOR=red][COLOR=black]=[/COLOR][/COLOR]"الرقم الأول يساوي الرقم الثاني"

شرح الكواد باختصار
اذا كانت قيمة text1 تساوي text2 فيكتب داخل label1 الرقم الأول يساوي الرقم الثاني

ترميز:

 
[B][COLOR=red]if[/COLOR][/B] text1.text [COLOR=red][B]=[/B][/COLOR] text2.text[B][COLOR=red] then[/COLOR][/B]
label1.caption = "الرقم الأول يساوي الرقم الثاني"
[COLOR=red][B]else[/B][/COLOR]
lable1.caption = " الرقم الأول لا يساوي الرقم الثاني"
[B][COLOR=red]end if[/COLOR][/B]

شرح الكواد باختصار
اذا كانت قيمة text1 تساوي text2 فيكتب داخل label1 الرقم الأول يساوي الرقم الثاني واذا text1 لا تساوي text2 فيكتب داخل label1 الرقم الأول لا يساوي الرقم الثاني

ترميز:

 
[COLOR=red][B]if[/B][/COLOR] text1.text[COLOR=red][B] =[/B][/COLOR] text2.text [COLOR=red][B]then[/B][/COLOR] 
label1.caption = "الرقم الأول يساوي الرقم الثاني"
[COLOR=red][B]else if[/B][/COLOR] text1.text [COLOR=red][B]<[/B][/COLOR] text2.text[B][COLOR=red] then[/COLOR][/B]
label1.caption [COLOR=black]=[/COLOR] "الرقم الأول أصغر من الرقم الثاني"
[COLOR=red][B]else if[/B][/COLOR] text1.text [B][COLOR=#ff0000]>[/COLOR][/B] text2.text [COLOR=red][B]then[/B][/COLOR]
label1.caption [COLOR=red][COLOR=black]=[/COLOR][/COLOR]الرقم الأول أكبر من الرقم الثاني"
[COLOR=red][B]end if[/B][/COLOR]

شرح الكواد باختصار
اذا كانت قيمة text1 تساوي text2 فيكتب داخل label1 الرقم الأول يساوي الرقم الثاني ، واذا كانت قيمة text1 أصغر من text2 فيكتب داخل label1 الرقم الأول أصغر من الرقم الثاني ، واذا كانت قيمة text1 أكبر من text2 فيكتب داخل label1 الرقم الأول أكبر من الرقم الثاني
هذا والله أعلم
وسامحوني على التقصير بس انتظروا التطبيق العملي في الدرس القادم
بس أبي تفاعل انزين!

**Abanda** · 14-01-2006, 07:11 AM

الرد: تبي تتعلم الفيجوال بيسك اذا ادخل

اخواني لا أرى أي تفاعل
في الحقيقة بما ان ليس هنالك تفاعل لن استطيع اكمال الدروس
أين الردود أين الأسئلة
ترى تعبت كثيير على الموضوع

**وردة في أجمل بستان** · 16-01-2006, 09:21 PM

الرد: تبي تتعلم الفيجوال بيسك اذا ادخل

انت لو ضفت الموضوع بدري شوية
أنا كان مطلوب مني بالمدرسة وتعقدت منو وخاصة كتابة التعليمات
يعني كنت ما بعرف اعمل غير امثلة الكتاب
يلا هلء بتعلمو كويس
تسلم اخي على الموضوع المفيد جدا

**Abanda** · 17-01-2006, 03:07 PM

الرد: تبي تتعلم الفيجوال بيسك اذا ادخل

العفو أختي وشكرا على مرورك الكريم

**طـلال** · 19-03-2006, 12:50 PM

الرد: تبي تتعلم الفيجوال بيسك اذا ادخل

شكرا . لك .. اخ اباندا .. صحيح خطوة ممتازة ...
واي شي تحتاجه في هذا البرنامج .. انا حاضر .. او برنامج غيرة ...

وشكرا لك على هذا البرنامج ...

تحياتي للجميع ..

تبي تتعلم الفيجوال بيسك اذا ادخل

تبي تتعلم الفيجوال بيسك اذا ادخل

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق