الفصل (1) : الفيجوال بيسك دوت نت (لمحة تعريفية)

السلام عليكم ورحمة الله وبركاته

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

في هذا الفصل سوف نتحدث عن:

لا أخفي عليكم أني قمت بالاستعانة من مصادر عديدة لتركيب هذا الفصل ليصدر بالشكل الحالي:

والآن دعونا نناقش ما هي الدوت نت وما جد فيها؟

كما في الفصل السابق فان درسنا سيكون عبارة عن فقرات وشروحها:

لا
يمكن اعتبار الفيجوال بيسك دوت نت امتداد لفيجوال بيسك فبدخولك الدوت نت
فإن فيجوال بيسك 6 ليس لها اي اعتبار سوى الصيغة المشتركة في قواعد
البرمجة.

كما أن فيجوال بيسك 6 يستخدم التقنية (Component Object Model) COM أي
تقنية برمجة المكونات وهى ActiveX Controls و ActiveX DLL ....إلخ

أما الفيجوال بيسك دوت نت فيعتمد تقنية الدوت نت التي
كانت في يوما من الايام ستصدر باسم COM2 ولكن بسبب الاختلاف الجذري مقابل
تقنية الCOM عزفوا إلى تسميتها بالاسم الحال .NET

كأي برنامج كبير فان الفيجوال بيسك دوت نت يحتوي:

تنقسم المشاريع بشكل عام في بيئة الدوت نت باختلاف اللغة إلى :

أولا: مشاريع الونيدوز

ثانيا:مشاريع الويب

ثالثا:مشاريع الجهاز الذكي

سوف نتعلم صياغة هذا البرنامج باستخدام الConsole وتطبيق الويندوز

أولا : باستخدام الConsole

أنشئ مشروع Console جديد
جرب الكود التالي:

رموز PHP:




Sub Main()
Console.Write("Hello World")
End Sub









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




رموز PHP:




Console.ReadKey()

ومهمة هذا الكود الانتظار الى أن يقوم المستخدم بادخال مفتاح وبالتالي مهمة هذا الكود قراءة نقرة

ليصبح الشكل الأخير للكود

رموز PHP:




Sub Main()
Console.Write("Hello World")
Console.ReadKey()
End Sub

ثانيا:باستخدام تطبيقات الويندوز المرئية

أنشيء مشروع Windows Application

قم باضافة زر Button وواحد TextBox وغير بالخصائص ليصبح بالشكل التالي

وفي هذا الببرنامج يلزمنا عند الضغط على الزر Buttin1 أن يعرض رسالة Hello World في مربع النص
وسيكون بالشكل التالي:

رموز PHP:




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Hello World"
End Sub