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

[الحرية]

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

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 تكون أول السطر .

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