في كل اصدارة جديدة جديد برمجي ، هذا ما عودتنا عليه مايكروسوفت خصوصا في السنوات الاخيرة ، حيث تجد العديد من التطويرات الجديدة في لغة البرمجة مما يكسبها المزيد منت المرونة والقوة في نفس الوقت .

من التطويرات الجديدة في النسخة القادمة من Visual Basic والتي تحمل الرقم 10 هي ما يدعى بمنشئات المجموعات Collection Initializers . في هذه المقالة سنتعرف على الـ Collections Initializers .

ظهر في الاصدار التاسع من visual basic ما يعرف بمنشئات الكائنات Objects Initializers حيث اصبح بإمكانك انشاء نسخه جديدة من فئة معينه واسناد قيم ابتدائيه لبعض خصائصها في نفس السطر بدون ان تستخدم منشيء الفئة New . لنفترض ان لدينا الفئة التالية :

حيث اسمها Student وتحتوي على خاصيتين وهما Age و Name ، الىن افرض انك تود انشاء عدة كائنات جديدة من هذه الفئة واسناد قيم للخاصيتين Age و Name معا بسطر واحد وبشكل مختصر تماما في الكود ، سيكون شكل الكود بالطريقة التالية حيث نستخدم الكلمة المحجوزة With :

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

الطريقة ذاتها مدعومة بشكل واضح في LINQ ، فلو افترضنا انه لدينا List بالـ students بالإسم ClassStudents كما وتود الاستعلام عن احدها ، فسيكون الكود بالشكل التالي :

لكنك تلاحظ من الكود السابق ان عملية انشاء List واضافة عناصر اليها في نفس السطر غير ممكنة حتى الاصدار التاسع لذلك في الكود السابق قمنا بإنشاء كائنين جديدين من الفئة Student ثم قمنا بإضافتهما الى القائمة List المحددة . البعض قد يقترح انشاء Array حيث ذلك ممكن ، لكننا هنا نرغب بعمل List وليس مصفوفة ، اضف الى ان عملية التحويل ستكون مستهلكه لسطور من الاكواد – ستحتاج الى انشاء مصفوفة اولا وتضيف لها العناصر ثم تقوم بانشاء القائمة List وتسند لها المصفوفة ! – وبالتالي دعنا على الحالة الراهنة افضل من اللف والدوران ووجع الرأس !

في Visual Basic 10 اصبح هذا الامر ممكنا بفضل الكلمة المحجوزة From كما بالكود التالي :

اعتقد ان الكثيرين ممنا سيقرأون الكود السابق سيصيبهم الدوار والحول وسيقولون هذا ليس كود Visual Basic فأين الشرطة المنخفضة _ او المعروفة بـ Underscore نهاية كل سطر ؟ وماذا دهى الألوان والخط حتى ! مهلا مهلا يا جماعة الخير هل نسيتم اننا نستخدم تقنية من شركة مايكروسوفت وبالتالي كل شيء يتغير في يوم وليلة ؟ في فيجوال بيسك 10 لسنا بحاجه الى كتابة underscore نهاية كل سطر ، فضلا عن تغيير تلوين الكلمات شيئا ما – اصبح مثل اكواد C# الى حد كبير جدا .

طيب ما رأيك بتسهيل الكود السابق اكثر اذا علمنا ان الطرق الموسعة Extension Methods مدعومة في هذه القضية ! شاهد معي الكود التالي :

بعد كتابة تلكم السطيرات – تعبير جديد ! – اصبح بإمكاننا كتابة الكود التالي :

ما رأيك بالعملية السابقة ؟

آخر ما تبقى عرضه هو امكانيه اضافة العناصر بشكل مباشر دون استخدام الكلمة From كما بالشكل التالي :

نترقب الاصدار 2010 بفارغ الصبر !

مقتبس ومترجم بتصرف مع بعض الرتوش البسيطة من :

http://blogs.msdn.com/bethmassi/archive/2009/06/05/collection-initializers-in-visual-basic-10.aspx

تحياتي

في بعض الاحيان قد تحتاج الى كتابة كود لمراقبة الملفات الموجودة في الحافظة Clipboard ، وأدنى ما تحتاجه غالبا هو معرفة المسار الكامل للملف والعملية ادت الى وضع الملف في الحافظة سواء كانت نسخ copy او قص Cut ، قد تتخيل لوهلة أن العملية قد تكون معقدة وصعبة للغاية ، لكن دعني اخبرك بان الكائن My.computer.clipboard الخاص بالتعامل مع حافظة النظام يحتوي على طرق Methods تسهل معرفه محتوى الحافظة سواء كان صوت او نص او ملفات ، فلنتابع معا الفكرة التي اقتبستها من احد المواقع الاجنبية .

الطريقة GetFileDropList تعود لنا بـ Collection تمثل قائمة بالملفات الموجودة في الذاكرة ، وسيكون بإمكاننا بسهوله كتابة كود كالتالي للحصول عليها في اداة TextBox متعددة الاسطر:

هكذا نكون قد تمكنا من الحصول على قائمة بأسماء الملفات ، والآن نرغب في الحصول على الاجراء الذي أدى الى وجود هذه الملفات في الحافظة ، هل هو نسخ Copy أم نقل Move ؟

للحصول على نوع الاجراء Drop Effect Type، سنقوم بعمل كائن من النوع Object ونسند له القيمة:

، نقوم بعدها بقراءه اول اربع بايتات الى مصفوفة ، يمثل الحرف الأول منها نوع الاجراء ، وهو المهم هنا !

السطور التالية توضح ذلك :

والآن اصبحنا جاهزين تماما للقيام بالمهمه الكاملة ، لذلك قمت بوضع مثال بسيط هذا هو الكود الخاص به :

انتشرت عدة طرق مختلفة لفتح صفحات الانترنت ، فمنها ما يستخدم الدالة shell القديمة والتي ستظهر Command Prompot يظهر ويختفي ، ومنها ما يستخدم المكتبة البرمجية التابعة لـ Internet Explorer ، ولكن وجدت كود ثالث يستخدم طريقة الـ Process كما هنا :

قد يبدو هذا العنوان مدويا لبعض المبرمجين ، ولكنه حقيقة فعلاً ! في هذا المقال نتناول كيفية استخدام عناصر فضاء الاسماء My داخل لغة C# مباشرة !

تكمن الفكرة في ان عناصر فضاء الاسماء My هي موجودة داخل فضاء الاسماء Microsoft.VisualBasic ، فيجب علينا في البداية استيراد المجمع Microsoft.VisualBasic.DLL ، ثم استيراد فضاء الاسماء Microsoft.VisualBasic.Devices في اول ملف البرمجة الذي تود استخدام عناصر فضاء الاسماء My فيه ، الكود التالي مثلا يقوم بتشغيل احد الاصوات الموجودة في النظام بكل سهوله :

يمكنك عزيزي مبرمج C# استكشاف باقي عناصر فضاء الاسما Microsoft.VisualBasic.Devices بواسطة نافذة مستعرض الكائنات ObjectBrowser .

تحياتي

يمكنك اضافة مجلد معين الى قائمة المجلدات التي تظهر على جانب مربع الحوار OpenDialog,Savedialog من خلال الـ Collection المسماه CustomPlaces . كل الفكرة تقوم على اضافة Custom Place جديد فقط ويتم ذلك بعدة طرق ، المثال التالي يمثل كيفية اضافة مجلد مخصص عن طريق ذكر مسارة الكامل :

الطريقة التالية تستخدم ما يعرف بالـ Known GUID لمناداة مجلد خاص بنظام التشغيل ويندوز فيستا وفي هذه الحالة هو مجلد Pictures الخاص بالمستخدم الحالي :

‘ Add Pictures custom place using GUID. openFileDialog1.CustomPlaces.Add(“33E28130-4E1E-4676-835A-98395C3BC3BB”)

وللحصول على قائمة بالـ Known GUID’s يمكنك زيارة الرابط التالي :هنا 

يوجد طريقة ثالثة ايضا كالتالية :

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

العنصر الذي يصرح عنه بانه مشترك Shared في Visual Basic .Net ( او static في لغات الـ C ) يعتبر عنصرا مشتركا لكل الفئات التي تنشأ من نفس الفئة . كلام مكرر وغير مفهوم وكل الكتاب يكتبونه نفسه عند شرحهم وتناولهم لهذا الموضوع وتعت منه كثيرا وأعتقد انك انت عزيزي القارئ بدأت تكره كلمة Shared عندما تراها في أي كود لنفس السبب !! اليس هذا ما تريد قوله ؟ طيب لندخل معا على الموضوع من زاوية اخرى  :

افترض أن لدينا فئة إسمها Person تحتوي على الحقل Field المسمى ParentClassName ، ويوجد لدينا ثلاث كائنات منشأه من هذه الفئة الاول اسمه Ahmed والثاني Mohammed فإن قيمة الحقل ParentClassName يختلف في Ahmed عنه عند Mohammed ، لكن لو تم تعريف الحقل ParentClassName على انه Shared فسيكون هو نفسه دوما ، فتغيير قيمته عند Ahmed سيغير قيمته عن Mohammed مباشرة !

هذا بالنسبه للحقول والخصائص Properties ، لكن ماذا عن الطرق Methods والتي تشمل الإجراءات Subs والدوال Functions ؟

في هذه الحالة فإن الطريقة المعرفة على انها shared يمكن الوصول إليها مباشرة دون الحاجة الى انشاء كائن جديد من الفئه اولا  ثم استدعاء الطريقة منه ، مثلا ، الطريقة SetEnvironmentVariable التابعة للفئه System.Environment هي طريقة مشتركه ، فلاستخدامها لسنا بحاجه لأن نقوم بغنشاء كائن جديد من الفئة Environment ثم استدعاء تلك الطريقة ولكن كتابة اسم الفئة الأساسية مباشرة SetEnvironmentVariable  System.Environment. .

بالنسبة للفئة system.Environment فهي من اكثر الفئات التي تستخدم الاعضاء المشتركة Shared Members التي واجهتها في لغات الدوت نت ، هناك العديد من الفئات الاخرى التي تنتهج نفس النهج ، وعادة ما تكون هذه الفئات مصممه لتعطينا معلومات للقراءه فقط او معلومات عامة لا تتغير مهما ، وفي الحقيقة هل تتوقع ان تجد اكثر من MachineName لنفس الجهاز ؟ طبعا لا

يعد تطوير التطبيقات على شكل طبقات من افضل الطرق المتبعة في هندسة البرمجيات ، فهنا يمكن تقسيم البرنامج على عدة طبقات Layers تتولى كل طبقة منها مهمه معينه ، وبالتالي يسهل التعديل على أي منها عند حدوث أي خطأ او نقص او اكتشاف اي ثغرة امنية او قصور . وأغلب التطبيقات التجارية – خصوصا قواعد البيانات – تعتمد هذه الطريقة ، لكن هذا لا يعني ان البرمجيات الصغيرة والمجانية بعيده عن التطبيق هاهنا .في هذا المقال المترجم ، نتطرق – بشكل نظري – الى كيفية بناء تطبيقات متعددة الطبقات من خلال تقنيات Microsoft .Net .

تحتوي التطبيقات متعددة الطبقات على ثلاث طبقات رئيسية : طبقة العرض  Presentation Layer ، الطبقة الوسطى Middle Layer ، طبقة البيانات DataLayer . ان فصل هذه الطبقات عن بعضها بالطريقة الصحيحة والسلمية يضمن لك الاستفادة من ميزات أسلوب بناء التطبيقات على شكل طبقات ، وافضل طريقة تفصل فيها بين هذه الطبقات بشكل كامل هو ان تكون كل طبقة موجودة في مشروع Project منفصل تجتمع كلها في حل واحد Solution ، وبهذا تصبح كل طبقة منفصلة تماما عن الأخريات ، فقد تكون طبقة العرض Presentation Layer من نوع Windows Forms ، والطبقة الوسطى على هيئة Class Library ، بينما طبقة البيانات قد تكون حتى WCF Service او XML Web service ، وكما ذكرنا أعلاه ، فإن تعديل أي طبقة لن يؤثر على الاخريات بأي حال من الأحوال ، وصدور تقنية جديدة تحتاج الى تطبيقها في احد الطبقات لن يدفعك الى اعادة بناء التطبيق ككل بل الطبقة المعنية بذلك فقط!.

يساعدك Visual Studio على تطوير التطبيقات على شكل طبقات بعدة ادوات تتوفر فيه واكاد اجزم بان اغلبكم يعرفها :

• DataSet Designer : والذي نستغله في عمل مشروعين او طبقتين منفصلتين : طبقة كائنات البيانات Data Entities وطبقة الإتصال والتعامل المباشر مع مصادر البيانات Data Access Layers المتمثل في Data Adapters .
• Object Relational Designer : (O/R) Designer : والذي يقوم بتوليد الـ DataContexts وفئات البيانات Data Classes على شكل فضاءات اسماء Namespaces منفصلة تماما ، هذا الفصل يعني انك تفصل طبقة الـ Data Entity عن طبقة Data Accessing .
• LINQ to SQL : والذي يمكنك من جمع DataContexts من عدة طبقات معا .
• مربع حوار Configure Data Syndication : والذي يمكنك من ضبط إعدادات التزامن بين البيانات الموجودة على الخادم server وتلك الموجودة في Local Database Cache ، هذا يساعدك كثيرا على فصل طبقة الـخادم Server عن طبقة الـعميل Client .

وفيما يلي موجز عن كل طبقة وما يمكن ان تستخدمه فيها من تقنيات متاحة لك :

طبقة العرض Presentation Layer:

وهي تلك الطبقة التي يتعامل بها المستخدم مع البرنامج UserInterface ، وتحتوي ايضا في العادة على المنطق الخاص بالبرنامج  logic ، وفي العادة قد تحتوي طبقة العرض لديك على المكونات التالية :

• ربط البيانات بالأدوات : DataBinding : والتي تستخدم فيها الـ BindingSource والـ BindingNavigator .
• ممثلات كائنات البيانات : كـ Linq to SQL لتستخدمها في طبقة العرض .
• قاعدة البيانات المحلية : Local Databases : كـ Local Database Cache والتي تمكنك من مزامنة البيانات مع تلك الموجودة في السيرفر من خلال Microsoft Synchronization Services for ADO.NET .

المخطط التالي يوضح طبقة العرض والتقنيات المتوفرة لاستخدامها فيها :

بقي ان اوضح ان طبقة العرض لا تصل الى طبقة البيانات مباشرة وانما تتصل بالطبقة الوسطى التي بدورها تتصل بطبقة البيانات ، وهنا قد تكون الطبقة الوسطى مشروع WCF او غيره .

الطبقة الوسطى MiddleTier :

وظيفة هذه الطبقة انها تلعب دور الوسيط بين طبقة البيانات DataLayer وطبقة العرض PresentationLayer .

تتكون الطبقة الوسطى في العادة من المكونات التالية :

• الـ BusinessLogic : والذي يكون في العادة DataValidation او التحقق من المدخلات والبيانات .
• TableAdapters و Datasets .
• كائنات تمثيل البيانات : كـ LINQ to SQL entity .
• الخدمات العامة Common Services : كالصلاحيات والمأذونيات والتخصيص للمستخدم .

الشكل التالي يقدم مخططا للتقنيات المتوافرة لاستخدامها في الطبقة الوسطى :

وتتصل الطبقة الوسطى بطبقة البيانات عن طريق اتصال Data Connection والذي يكون متوفرا في العادة في مكون الاتصال بالبيانات Data Access Component .

طبقة البيانات : Data Tier :

وتكون هذه الطبقة موجودة عند مصدر بيانات البرنامج او مكان توافر قاعدة البيانات ، احيانا يكون ذلك خادم Server يحتوي على SQL Server عند الاتصال بقاعدة بيانات من النوع SQL Server ، واستخدام طبقة البيانات بهذه الطريقة يسهل عملية تصميم تطبيقات من نوع Server/Client حيث تكون هذه الطبقة هي المسؤولة عن الاتصال بالـ Server وارسال واستقبال البيانات منه واليه .

الشكل التالي يوضح التقنيات المستخدمة في طبقة البيانات :

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

يعد اسلوب البرمجة الكانئية افضل اسلوب برمجي تطبقه في معظم اللغات الحديثة والقوية وخصوصا لغات الدوت نت سواء كانت VB.Net او C# ، وعندما تطبق هذا الاسلوب فمن الاكيد بانك ستقوم ببناء فئات Classes وستحتوي بداخلها على اعضاء Members كـ Properties,Function,Subs وغيرها ، ثم تستخدم هذه الفئات في أي جزء رئيسي من الرنامج بإنشاء كائن جديد منها ثم اسناد القيم والخصائص إليه من خلال المشيد Constructor في حالة وجوده او من خلال الخصائص القابلة للكتابة Writable Properties او لاشيء من هذا !

لاحقا وبعد ان تكتب الاكواد داخل الأعضاء الخاصة بفئتك التي انشاتها للتو واللحظة ، فإنك قد تتساءل حول عملية قنص الاستثناءات Exceptions ، فماذا لو حدث استثناء معين او خطاء وقت التنفيذ في الكود ؟ هذا ما سنناقشه هنا .

لنفترض انك قد قمت بعمل فئة بالإسم MyData والتي تمثل بيانات شخصيه معينه يتم اسنادها لها ،كالخصائص التالية مثلا : FirstName,FamilyName,Age  ، بحيث صارت كالتالي :

Public Class MyData     Dim _FirstName As String     Public Property FirstName() As String         Get             Return _FirstName         End Get         Set(ByVal value As String)             _FirstName = value         End Set     End Property       Dim _FamilyName As String     Public Property FamilyName() As String         Get             Return _FamilyName         End Get         Set(ByVal value As String)             _FamilyName = value         End Set     End Property       Dim _Age As Byte     Public Property Age()         Get             Return _Age         End Get         Set(ByVal value)             _Age = value         End Set     End Property   End Class

 ثم طلبت منك ان تضيف لهذه الفئة طريقة Method تقوم بكتابة البيانات الى ملف – وذلك بإضافتها الى بيانات اخرى موجودة سابقا- لتكتب الاسم الاول والعائلة والعمر ، ولنفترض – واقول نفترض- انك كتبت الكود التالي بالضبط ( بما فيه من اخطاء فادحة ! ) :

Public Sub WriteDataToFile(ByVal FileName As String)         Dim FileContent As String         FileContent = “الإسم الأول : ” & Me.FirstName & ” العائلة : ” & Me.FamilyName & ” العمر ” & Me.Age           My.Computer.FileSystem.WriteAllText(FileName, FileContent, True)         End Sub

الآن لو قمنا بإنشاء كائن جديد من هذه الفئة واعطيناه قيما لخصائصه وطلبنا من الكائن ان يتكرم علينا بتنفيذ الطريقة WriteDataToFile واعطيناه الوسيط المناسب كالتالي :

Module Module1       Sub Main()           Dim Mohammed As New MyData         Mohammed.FirstName = “Mohammed”         Mohammed.FamilyName = “AL-Nabhani”         Mohammed.Age = 20           Mohammed.WriteDataToFile(“C:\Users\Personals\Documents\MyData.txt”)           Console.ReadLine()       End Sub   End Module

ثم قمنا بتجربة البرنامج ، لكن مهلا هناك استثناء وارد بنسبه كبيرة جدا وهو ان الملف MyData غير موجود ! قد تفكر بان عملية التحقق من وجود الملف اولا افضل وانا اتفق معك في ذلك تماما ، لكن ما هي سيناريوهات العملية القادمة ؟ اذا لم يجد الملف ماذا يفعل البرنامج ؟

في حالتي لا اريد انشاء ملف لانني اريد ان اضيف البيانات الى الملف MyData لا أن أققوم بإنشاءه في حالة عدم وجودة ، لذلك فإننا نرغب الآن بإعلام المستخدم بأن الملف غير موجود واجزم انك تتفق معي الان في ذلك ، لكن السؤال كيف سنخبر المستخدم بذلك ؟ ان كنت ستقول لنكتب سطرا مثل التالي في الطريقة المعنية :

Public Sub WriteDataToFile(ByVal FileName As String)         Dim FileContent As String         FileContent = “الإسم الأول : ” & Me.FirstName & ” العائلة : ” & Me.FamilyName & ” العمر ” & Me.Age           If My.Computer.FileSystem.FileExists(FileName) = True Then             My.Computer.FileSystem.WriteAllText(FileName, FileContent, True)         Else             Console.Write(“الملف غير موجود”)         End If       End Sub

فسأقول لك ان الطريقة السابقة خاطئة تماما ، صحيح انها ستعطينا الناتج النهائي المطلوب كما قد تشتهيه ، ولكن في في اسلوب البرمجة الكائنيه ذلك خطأ ، فالمفترض ان الفئة التي انشاناها لا تعرض شيء على الشاشة بدون اذن الطريقة Main ، وافرض او اننا اردنا استخدام هذه الفئة في مشروع من نوع WIndowsApplication بدل ConsoleApplication فماذا ستفعل ؟ الادهى لو قمت بترجمه الفئة الى ملف Dll فكيف ستعرف نوع المشروع الحالي ؟ حتى لو عرفت من خلال الكود فهل يعجبك ان تكتب جملة شرطية للتأكد من نوع المشروع ثم اظهار رسالة الخطأ بالطريقة الخاصة بكل واحد ؟

اتمنى انك اقتنعت بذلك ، اما الحل فسيكون بتعديل الطريقة WriteDataToFile لتكون  دالة Function بدل Sub وجعلها تعود بقيمة معينه ، طيب فكر معي ، ما هو النوع Type الخاص بهذه الدالة function والتي ستعيده ؟ هل ستعيد Boolean لنعرف ان حدث خطأ ام لا ؟ ام تعيد String في كل مرة ام أي نوع ؟ طيب لنفكر في كل واحدة على حده :

• 1- النوع Boolean : فكرة جيدة ، لجعل الدالة تعيد قيمة True ان تم تنفيذها كما يجب ، و False في الحالة المعاكسه ولكن يعيبها عدم اعادتها لرسالة الخطأ ، ففي حالة امكانية حدوث اكثر من خطأ واحد فهناك ستواجه مشكلة حول أي رسالة خطأ ستعرض او أي اجراء ستنفذ .
• 2- النوع String : طريقة جيدة نوعا ما ، لكن لو اردت كتابة دالة تعيد نوع معينا مثلا تقرأ ملفا معينا وتعيد الاسم الاول فكيف ستعرف ان ما اعادته هو الاسم الاول او رسالة الخطأ ؟

لا تقل لي لنضع Field ( حقل ) عام على مستوى المشروع بمثابته متغير من النوع Boolean يعرف اذا حدث خطا ام لا فهذه الطريقة تنتهك OOP من كل النواحي !

طيب ما الحل اذا ؟

الحل يتم بعمل نوع جديد خاص بنا لمثل هذه الحالات ، وهو عمل فئة Class تحمل خاصية تخبرنا ان حدث خطا او لا ، وتعطينا ايضا نص رسالة الخطأ او حتى كائن الـ Error بأكمله او أي شيء من هذا القبيل … كما قد نطورها اكثر لتحمل قيمة ما تود ارجاعه كما في الحالة الثانية اعلاه ، وهو الحل الذي سأتبعه في هذا النطاق مع انه قد يوجد حلول افضل ولكن ذلك يعتمد على الحالات التي تواجهها في برامجك .

الفئة الجديدة والتي سنعول عليها معرفة حدوث خطأ وحمل قيمة ناتج عملياتنا اسميتها ExecutionCondition وستحمل الخصائص التالية :

• HasErrors : وهي خاصية للقراءة فقط ReadOnly ومن النوع Boolean
• ErrorMessage : وهي خاصية للقراءة فقط ايضا ومن النوع Strign
• Value : وهي خاصية اختيارية لك ، وهي من النوع Object .

بالنسبة للطرق فقد وضعت اجرائين فقط :

• SetErrorMessage : وهو الذي نستخدمه في اعطاء الخاصية ErrorMessage قيمتها وبناءا عليه تتحدد قمية الخاصية HasErrors .
• Reset : يعيد الكائن الى حالته الاساسية أي بدون خطأ مع عدم المساس بقيمة الكائن المتمثل في الخاصية Value .

لن اقوم بشرح كل شيء في هذه الفئة ، فهي واضحة وضوح الشمس لكل من لديه اساسيات ولو بسيطة في OOP :

”’ <summary> ”’ This class is used to return an object with value and error message when error occur ”’ </summary> ”’ <remarks></remarks> Public Class ExecutionCondition #Region “Properties”     Dim _HasErrors As Boolean     ”’ <summary>     ”’ Determines if the assosiated process has an errors while executing it     ”’ </summary>     ”’ <value></value>     ”’ <returns></returns>     ”’ <remarks></remarks>     Public ReadOnly Property HasErrors() As Boolean         Get             If Me._HasErrors = True Then Me._ErrorMessage = “”              Return _HasErrors         End Get     End Property       Dim _ErrorMessage As String     ”’ <summary>     ”’ Gets the error message if the assisiated process has an erors while executing     ”’ </summary>     ”’ <value></value>     ”’ <returns></returns>     ”’ <remarks></remarks>     Public ReadOnly Property ErrorMessage() As String         Get             Return _ErrorMessage         End Get       End Property       Dim _Value As Object     ”’ <summary>     ”’ Represents the value of the ibject, it could be any type .     ”’ </summary>     ”’ <value></value>     ”’ <returns></returns>     ”’ <remarks></remarks>     Public Property Value() As Object         Get             Return _Value         End Get         Set(ByVal value As Object)             _Value = value         End Set     End Property #End Region   #Region “Methods”       Public Sub New()       End Sub     ”’ <summary>     ”’ Sets the Error Message     ”’ </summary>     ”’ <param name=”Message”>”the message of the error that will be presented in Error Message property</param>     ”’ <remarks></remarks>     Public Sub SetErrorMessage(ByVal Message As String)         _ErrorMessage = Message         _HasErrors = True     End Sub     ”’ <summary>     ”’ resets the object so no errors are contained     ”’ </summary>     ”’ <remarks></remarks>     Public Sub Reset()         Me._HasErrors = False       End Sub #End Region End Class

الآن لنقم بعمل مثال عملي جديد لنجرب استخدام هذه الفئة ، اما بخصوص مثالنا السابق والفئة MyData فاعتبره تمرينا لك لحل مشكلتنا الأساسية !

في الوحدة النمطية Module1 التي تحتوي على الطريقة Main – الجزء الاساسي من البرنامج بطبيعة الحال – فقد قمت باضافة الدالة التالية فيها :

Function WriteOnTheScreen() As ExecutionCondition         Dim mExCn As New ExecutionCondition           Try             Console.WriteLine(5 / 1)             Console.ReadLine()               mExCn.Reset()           Catch ex As Exception             mExCn.SetErrorMessage(ex.Message)         End Try           Return mExCn     End Function

وفي الطريقة Main كتبت الكود التالي :

Sub Main()         ‘لنجرب تنفيذ الدالة         ‘WriteOnTheScreen         If WriteOnTheScreen.HasErrors = True Then             Console.WriteLine(WriteOnTheScreen.ErrorMessage)         End If         Console.ReadLine()     End Sub

بعد تشغيل البرنامج سيظهر كل شيء على ما يرام هذه المرة وسيطبع 5 ، لنجرب الآن تعديل الطريقة WriteOnTheScreen ولنجعل القسمة مبنية على صفر وهذا خطأ رياضي فادح جدا :

Function WriteOnTheScreen() As ExecutionCondition         Dim mExCn As New ExecutionCondition           Try               Dim x As Integer = 5             Dim y As Integer = 0             Dim z As Integer = x / y             Console.WriteLine(z)             Console.ReadLine()               mExCn.Reset()           Catch ex As Exception             mExCn.SetErrorMessage(ex.Message)         End Try           Return mExCn     End Function

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

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

اثناء تجولي في احد مواقع مايكروسوفت المعروفة ( لست بصدد الحديث عنه الآن ) وجدت اعلانا من شركة DevExpress يفيد بوجود طقم مكون من 60 اداة مختلفة بشكل مجاني تماما وهي تشكيلة مختلفة ومتنوعة فعلا  :

http://www.devexpress.com/Products/Free/WebRegistration60/

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

من اهم المواضيع البرمجية التي نحتاجها – خصوصا للمهتمين بالرسم – هي الطباعه ، وهذا ليس موضوع حديثي هنا ، بل انني قررت ان اقدم مثالا صغيرا للاخوة المبتدئين ، لمعرفة الطابعات المثبتة في النظام وخصائص كل واحده منها بضغطة زر صغيرة وبأقل قدر ممكن من الكود !
 
البرنامج يقوم بجلب اسماء الطابعات المثبته الى اداة الـ combobox ثم عرض معلومات الطابعة المحددة بسهوله شديدة على اداة PropertyGrid الرائعه والتي ستوفر عليك مجهود كبير جدا قد لا تتخيله حاليا !
من منظور .Net framework ، قمت باستيراد فضائي الاسماء System.Drawing و System.Drwaing.Printing .

وانتظر منكم اخواني واخواتي الاعزاء تحديد الفئة المسئوله عن معلومات الطابعة .

للتحميل انقر هنا