لو سمحتوا شباب ، أتمنى لو واحد يساعدني بالبحث عن طريقة ما لتنزيل لغة برمج Visual basic 6 على النت لكي يستفيد الجميع وشكراً .
------------------------------------------------------
درس اليوم بسيط ، وهذه ثانية مرة أكتبة بس بالغلط طار ! ، على كل حال ، لو ... لو ...
لا سأل الأب أبنه الوحيد : هل نجحت ؟ فقال الابن : نعم . فسأل الأب مجدداً : هل تفوقت ؟ فقال : نعم ، فيكرمه الأب على حسب مزاجك ! ، لو تلاحظ لو أن الابن قال لا في السؤال الأول لما سئله الأب عن تفوقه ، لأن التفوق لا يحدث إلا مع النجاح ، ولكن النجاح قد يحدث بدون تطور .
ودرس اليوم سنتعلم اسلوب شرط متتابع مماثل لهذه الحالة ، وتكتب هكذا :-
if .... then
جواب الشرط
if .... then
جواب الشرط
end if
end if
يجب كتابة عباره End if لكل شرط متتابع وإلا طلعت رسالة Error - إلا هذه
- ، ولا يتأكد من الشرط الثاني إلا إذا كانت قيمة الشرط الأولى صحيحة ، وعلى كل حال شباب هذه لغة برمجة أي يمكننا توصيل الشروط المتتابعة بحروف جر :-
If .... And ... Xor ... then
جواب شرط
IF Not ... And ... Or not ... then
جواب شرط
جواب شرط
If ... then
جواب شرط
end if
end if
end if
على كل حال ، لو سأل الأب أيضاً : من معه مال ؟ ، فقال بعض ابناه : نحن معنا ! فسأل مجدداً : من غيرهم ؟
هنا نوضع صيغة جديدة وهي Else ، وتمثل هكذا :-
if .... then
جواب الشرط
else
جواب الشرط
end if
ولكن يمكن أيضاً وصل غيرهم بشرط هكذا :-
if .... then
جواب شرط
ElseIF .... then
جواب شرط
end if
مع العلم إذا وصلت بإذا بمكننا توصيلها بحروف الجر ، ولكن إذا كان Else منفردة لا يمكنك ربطها بحروف الجر ، وأيضاً else لجميع الحالات التي لا يكون بها الشرط الأول صحيح ، ولا يضاف End if لعبارة else أو ElseIf .
وهذا هو المثال