[RaggiTech]

. الأداة الزائدة التي لا تلزم: ربما تحتاج لتخزين ناتج عملية لاستخدامه في عملية أخرى فتضع الناتج الأولي في صندوق نص ومن ثم تجري عليه العملية وتظهر النتيجة في صندوق نص أخر فالأحرى بك أن تحفظ الناتج الأول في متغير ثم تظهر الناتج النهائي في صندوق النص
ومثال بسيط لذلك جمع عددين ثم إيجاد نصف المجموع أ+ب=ج ثم س=ج/2 لا أريد طرح أمثلة معقدة بل سأكتفي بأمثلة بسيطة لإيضاح الفكرة

ستستخدم الكود

كود :

[align=left]TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text
TextBox4.Text = Val(TextBox3.Text) / 2[/align]

لاحظ المستطيل الأحمر نستطيع الاستغناء عن هذه الأداة لان المهم بالنسبة لنا هو الناتج النهائي لذلك نقوم بحذف الأداة وتعديل كودنا إذا كان الأمر سهل فيمكن دمج الكود ومثال الدمج:

كود :

[align=left][FONT=Courier New]TextBox4.Text = (Val(TextBox1.Text) + Val(TextBox2.Text)) / 2[/FONT][/align]
[FONT=Courier New]
[/FONT]

لاحظ لا يوجد TextBox3 ولسنا بحاجة إليه أو يمكن تخزين قيمة الجمع في متغير ومن ثم قسمة الناتج على 2 وذلك في حال كون العمليات كثيرة ولا نريد إرباك أنفسنا بكتابتها بسطر واحد وتنسيق كم كبير من الأقواس ومثال المتغير

كود :

[align=left][FONT=Courier New]Dim A As Double [/FONT]
[FONT=Courier New]A = Val(TextBox1.Text) + Val(TextBox2.Text) [/FONT]
[FONT=Courier New]TextBox4.Text = A / 2[/FONT][/align]

قد تجد المثال بسيط وليس بحاجة لتخزين القيمة ولكن لو أردت العمل على القيمة بعدة عمليات فليس من المعقول أن نخزن كل ناتج في صندوق نص ومثال تعدد العمليات

كود :

[align=left][FONT=Arial]Dim A As Double[/FONT]
[FONT=Arial]A = Val(TextBox1.Text) + Val(TextBox2.Text)[/FONT][FONT=Arial]
[FONT=Arial]A = A \ 2[/FONT]
[FONT=Arial]A = A ^ 2[/FONT]
[FONT=Arial]A = A * (5 / 100)[/FONT]
[FONT=Arial]TextBox4.Text = A[/FONT][/FONT][/align]
[FONT=Arial]
[/FONT]

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

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

كود :

[align=left][FONT=Courier New]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/FONT]
[FONT=Courier New]If TextBox1.Text = "عبدالله العنيق" Then[/FONT][FONT=Courier New]
[FONT=Courier New]MsgBox("تفضل")[/FONT]
[FONT=Courier New]Else[/FONT]
[FONT=Courier New]Button2.PerformClick()[/FONT]
[FONT=Courier New]End If[/FONT]
[FONT=Courier New]End Sub[/FONT][/FONT][/align]
[FONT=Courier New]

[align=left][FONT=Courier New]Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click[/FONT]
[FONT=Courier New]MsgBox("يبدو أنك عضو جديد غير مصرح لك بالدخول")[/FONT]
[FONT=Courier New]End Sub[/FONT][/align]
[/FONT]

ففي الكود السابق استعينا حدث الزر الثاني Button2_Click طبعا يقوم المستخدم عادة بإخفاء هذا الزر بجعل خاصية Visible = False لكنه يبقى استعماله للكود المسئول عنه هذا الزر
ففي هذه الحالة الأفضل أن نقوم بعمل إجراء وبالتالي نستغني عن وجود الزر لاحظ الكود التالي :

كود :

[align=left][FONT=Courier New]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/FONT]
[FONT=Courier New]If TextBox1.Text = "عبد الله" Then[/FONT][FONT=Courier New]
[FONT=Courier New]MsgBox("تفضل ")[/FONT]
[FONT=Courier New]Else[/FONT]
[FONT=Courier New]ERRRRR()[/FONT]
[FONT=Courier New]End If[/FONT]
[FONT=Courier New]End Sub[/FONT][/FONT][/align]
[FONT=Courier New]

[align=left][FONT=Courier New]Private Sub ERRRRR()[/FONT]
[FONT=Courier New]MsgBox("يبدو أنك عضو جديد غير مصرح لك بالدخول")[/FONT]
[FONT=Courier New]End Sub[/FONT][/align]
[/FONT]

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