من يريد منكم التعلم على visual basic 6 ؟

[الحرية]

شكراً عابر سبيل ، حتى أنت أراك مبدع في الفوتو شوب ، بس مو هنا الكلام ، على كل حال شباب لو كان بوده أحد يكتب رسالة فرجاءً يخليها رسالة خاصة ، لأن هذا الموضوع بأستغله بقدر الأمكان وبيكون كبير جداً مئات الدروس ، فلو كل واحد بيكتب رسالته هنا بيتدبل علينا وماحد من الجدد بيدخله ولا بيقرائه أحد ( هذا لو كان هناك واحد بيقراه أصلاً !)
-------------------------------------------------------------
نكمل الدرس اليوم ، كما قلت أمس المفروض لكل المبرمجين المهتمين ألحين يعرفوا على الأقل بعض الصفات وطريفة تغييرها ، الرجاء أتباع الدروس واحداً واحداً لكي تفهم الموضوع بيرفكت ، هذا اليوم بأقدم ليكم بعض الأوامر الجانبية البسيطة .

فتحنافذةجديدة : أولاً لكي تجعل برنامجك ( مشروعك ) يحوي أكثر من نافذة يجب الذهاب إلى قائمة Project وتضغط على Add new Form ، كم قلت سابقاً يجب أختيار أول نوع وهو العادي ، والنافذة عبارة عن أداة حاضنة كبيرة أي لها أسم وعنوان ( اسم ضاهري ) ولون خلفية وصورة وهكذا ، عندما يكون عندك مشروع له صفحتان وتشغل البرنامج لن يفتح لك إلا النافذة الأولة في زمن التشغيل ، لماذا ؟ لأن المشروع بشكل أو بآخر لن يفتح لك إلا نافذة واحدة ، كيف يمكننا تغير النافذة التي سيبدأ بها المشروع ؟
بسيطة إذهب لقائمة Project وأختر آخر خيار ، سيفتح لك نافذة صفات المشروع ، سترى قائمة عليها عنوان Startup Object من هنا يمكن أختيار Form الذي سيبدأ به المشروع ، وأيضاً قد لا يكون Form أصلاً .
على كل حال ، عندم يفتح الصفحة ما هو الأمر الذي يفتح النوافذ ؟ الأمر هو الآتي :

Form1.show

صفة Show خاصة بالنوافد وهي صفة فتح الصفحة ، ويمكن كنابة الأمر كالتالي :-
اسم النافذة . show
كما قلت سابقاً إن البرمجة تعتمد على صفة Name وليس Caption في الأوامر .
هناك إضافة غير ضروية ، يمكنك كتابة 1 بعد show بينهما فراع ، وفائدته إنه لا يمكنك الرجوع للصفحة التي كانت موجودة سابقاً إلا إذا أغلقت النافذة الجديد ، سيكون واضحاً في المثال التابع للدرس إنشاء الله .

إغلاقالنوافد : بما إنك عرفت كيف تفتح النافذة يجب أن تعرف كيف تغلقها !
Unload اسم النفذة
مثل unload form1 ، هذا الأمر لا يأتي بعده بنقطة لأنه ليس أداة ليكون له صفات ، هذا الأمر يعمل مع النوافذ ويغلقها ، ويمكن كتابة الأمر التالي :-

Unlaod me

هذا الأمر مضحك بعضاً ما ! إنه يأمر البرنامج أن يغلق نفسه ! وبذلك سيغلق النافذة التي وجد بها الأمر .

إغلاقالبرنامج: لإغلاق البرنامج بكل بساطة أكتب End

شباب قبل ما أرحل بأقول ليكم بعض الأشياء ، البعض يتسائل : لماذا لم أضع الأوامر السابقة في زر وقلت لكم ضعوه في رز ؟؟؟

سؤال المليون ! مين يجاوبه له مليون ! كنت أمزح

الجواب بسيط يا شباب ، هذه لغة برمجة ويمكن وضع الأوامر في أي حدث كان ، إنشالله لو أقول إذا كانت قيمة الشريط التمرير الأفقي = 20 بيغلق البرنامج في وجهك !؟ هو ماله شغل كان الأمر منطقي وإلا لا ! تذكر أنت من له سيادة في الموضوع مش البرنامج .

[الحرية]

:حسناً شباب ، هذا اليوم بنتوسع شوي ، فلو أي واحد مو فاهم أي درس سابق ، فليرسل رسالة أو سوؤال في موضوع : من مهتم منكم في تعلم لغة visual basic ، وشكراً .
-------------------------------------------------------------------
في الدرس السابق تعلمنا كيف نغلق النافذة وكيف نفتحها ، أداة الشرط هذه موجودة تقريباً في جميع اللغات ، وتستخدم بكثرة، اليوم سنتعلم كيف تضع شرط :

then + أمر + if

end if

حسناً أرجو أن يكون هذا الدرس سهل ، دعني أشرح الخرابيط التي بفوق :-
if : أداة الشرط ، وهي ثابتة عند عمل الشرط .
then : تأتي بعد الأوامر في الشرط نفسه ليعطي الحكم .

ببساطة هذا الشرط يجوي على شرط ما ( أنت تضعه ) ، عندما تكون قيمته صحيحة ( أي قد تنفذت ) فإن الأوامر التي ستأتي بعده ستعمل بإذن الله ، أما إذا كانت خاطئة فإنها لن تعمل . مثلاً نقول هذا الشرط :-
If text1.text = 1 then
text2.text = 5
end if
لقد فرض الشرط إذا كان الصندوق الأول يحوي على رقم واحد ، فإن الصندوق الثاني ستكون قيمته 5 .
أو هذا مثال آخر :
If text1.text = 5 then
text2.text = text1.text * 3
end if
هذا الشرط يقول إن إذا كان صندوق الأول قيمته 5 ، ستكون قيمة الصندوق الثاني مساوية للصندوق الأول × 3 أيضاً ..... هل هناك شيء ما خطأ ! :confused

أوه نعم نسيت شيءً مهماً
نسيت ما أقول يمكن عمل عمليات حسابية مثلاً :
text1.text = 1 * 3 / 4 + 6
أو حتى :
text1.text = text4.text / label2.caption + command1.left
ولكن إذا كانت إحداها ليست قيمة عددية سيكون هناك خطأ في البرنامج ، ومن العمليات :
/ قسمة ، + زائد ، - طرح ، * ضرب ( وليس × ) ، ^ أس

على كل حال ، أراكم في الدرس القادم .

[الحرية]

إذا فهمت الدرس السابق ممكن تكمل معانا ، بس إذا ما فهمته مني أرسل لي رسالة خاصة وبأراسلك بالأمثلة التوضيحية أكثر ( كان في هذا الموضوع أو غيره ، أنا ما بأكسح أحد)
---------------------------------------------------
ماذا لو أردنا وضع أكثر من شرط ؟ لو قالت الوالدة لأولادها : اللي يحفظ الدرس أو يكتب الواجب له خمسة ريال ، كيف تسوي هذه الشغلة برمجة ؟؟؟

حسناً ، عندما نكتب أمر برمجي شرطي سيكون هكذا :-

if .... then

جواب الشرط

end if

... هو الشرط ، ولكن هناك عدة طرق لكتابة أكثر من أمر في البرمجة ، وهي حروف العطف ، ( يا كافي الشر يا الله ، أنقلب الدرس لقواعد ) :

And: وهو الحرف "و" ، وفائدته الجمع المطلق ، أي لن يتنفد جواب الشرط إلا إذا كان الشرطين صحيحين كلها .

Or: وهو الحرف " أو " وفائدته حدث صحة أحد الشرطين ، ول حدث الأثنان تنفذ جواب الشرط أيضاً .

Xor: وهو لا رمز له في العربية ، وهو مثل الي قبله إذا تنفذ أحد الشرطين نفذ جواب الشرط ، ولكن لو تنفذ كلهما لن يتنفذ جواب الشرط .

Not: وهو الحرف " لا " ، أي سيتنفذ جواب الشرط إذا لم يتحقق الحاذث .

حسناً شباب هذا درس اليوم ، تمنيت لو كان أطول لأني ولله الحمد أحب الكلام في هذه الأمور ، لا تخافوا إنشاء الله بيكون الكلام واضح في المثال التالي .

[الحرية]

عذراً نسيت الدرس ...

[الحرية]

لو سمحتوا شباب ، أتمنى لو واحد يساعدني بالبحث عن طريقة ما لتنزيل لغة برمج 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 .

وهذا هو المثال

[الحرية]

على فكرة شباب الدرس السادس ( السابق ) مكتوب فيه حروف الجر ، نحن لا نملك حروف جر هنا بل عطف !
---------------------------------------------------------------
قبل ما أبدأ الدرس يجب إطلاعكم على سر خطير جداً ، إن لغات البرمجة كلها عندما تنفذ الأوامر في حدث ما فإنها تبدأ من السطر الأول وتنزل للأوامر كما في المثال التالي :-

10:Text1.Text = 1
20:Text1.Text = Text1.Text + 5
30:Text1.Text = Text1.Text * 2

ففي هذا المثال ، سيتم وضع قيمة للمربع النص أولاً في السطر الأول ، وكما تلاحظ لكل سطر يرمز له بأرقام متتابعة ولكن هذا ليس ضرورياً الآن بل كان ضرورياً في لغة Basic القديمة ، ويمكننا أستخدام بعضها للضرورة ، على كل حال ثم سيتم إضافة 5 على الرقم السابق = 6 ، ثم سيضربها × 5 فتصبح = 30 .

قد يعرف البعض إن الأوامر متتابعه هكذا منذ البداية ، ولكن عند التطبيق لا يعطيه أي أهمية مما يحدث كثير من الأخطاء في البرنامج ، وتذكروا البرنامج الجيد هو الخالي من الأخطاء وسهل الأستخدام هو المعقد في البرمجة ! ( مو لازم ! )

قبل أن أبدأ الدرس ، سأقول : عندما يكون الشرط له جواب شرط واحد يمكننا الإستغناء عن End if وذلك بالطريقة التالية :-
If الشرط Then جواب الشرط

وبهذه الطريقة توفر سطران وهما جواب الشرط و End if أليس هكذا منظم أكثر !

على كل حال ، درس اليوم متعلق بالشرط وهو الإنتقال المشروط ، وفائدته الإنتقال إلى سطر أوامراً ما إذا تحقق الشرط ، وصيغته الأتية :-

If ............. Then GoTo #

ويكتب بدلاً من # رقم معبن ، وكما قلت في بداية الدرس يجب وليس ممكن ، يجب وضع رقم السطر المراد بالذهاب إليه ، ويمثل كالآتي :-

If .... Then GoTO 10:
............
.............
10:.............

في هذا المثال سيتجاوز الأمران بعد الشرط إذا كان الشرط صحيحاً وسينفذ الأمر المكتوب بجانبه 10 وسيستمر لتحت كما في العادة ، ولكنه إذا كانت قيمة الشرط غير صحيحة سيذهب لتحته مباشرة سطر تلوى سطر حتى يصل للعشرة ، وبهذه الطرية لن يفيدك كثيراً ، فإذا أردت طريقة لكي يمر على العشرة فقط إذا كانت قيمة صحيحة أعمل التالي :-

If ........... Then GoTo 10 :
...........
...........
Then (شرط مستحيل) IF
10: ....................
end if

ماذا أقصد بالشرط مستحيل ! ، مثلاُ إذا كان 1 = 2 !!! ، الغرض من الشرط المستحيل هو عندما تكون الشرط في الأول خاطئً سيستمر البرنامج حتى يصل للشرط فلن يحققه فيتجاوزه ، ولكن لو كان الشرط صحيح سينتقل إلى 10 مما يؤذي للتجاوز عن هذا الشرط!

المراد به هذا المثال هو إن المكان الذي سينتقل إليه قد يكون في أي مكان إلا إذا كان في صفحة آخرى فلن يمكنك الإنتقال اليه بهذه الطريقة .

قد يكون الإنتقال قبل الشرط مثل :-

10 : .................
...............
...............
IF ........ Then GoTo 10

:

بهذا المثال سوف ينتقل لشرط قد حققه مسبقاً ، فبهذه الطريقة قد يعود كل مرة للخلف مما يؤذي للتخريف ( يجيم ) الكمبيوتر ! .

لو تلاحظ في بداية الدرس الجدي قلت الإنتقال المشروط ، فهل هناك إنتقال غير مشروط ؟
نعم هناك إنتقال غير مشروط وهو كالتالي :-

GoTo 10:
.........
10: ...........

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

ولكن إنتبه هذه الأداة سبب في كثير من الأخطاء مثل :-

10: ........
..............
GoTo 10:

لو تلاحظ في المثال السابق ستتم حلقة لا منتهية من الأوامر ، وقد هذا يؤذي لتجيم الجهاز .

قد تكون الـأمثلة غير واضحة سابقاُ بسب تشابك اللغة العربية والإنجليزية ! ، ولكن الأرقام مثل 10 تكون أول السطر .

على كل حال ، هذا هو المثال الحلو ، قد يكون معقداً عليك في البداية ، ولكن لا تخشى شيء ! كل شيء سيكون عليك بسيطاً بكثرة التجارب وحفظ الأوامر والمصطلحات .