الدرس الرابع في ASP.NET2 ( الجزء الثاني )

[خليل سليم]

السلام عليكم

أمل أن تكونوا قد تمعنتم بالجزء الأول لأن اليوم حديثنا سيطول

سأتكلم اليوم إن شاء الله عن بعض الأساسيات والامكانيات البرمجية للفيجوال بيسك


لنفتح الدرس السابق ( الجزء الأول ) ونتابع

وكما كنا قد فعلنا

الكود التالي

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Response.Write(RadioButtonList1.SelectedItem.Text.  ToString)

    End Sub

وهنا دعونا نقول ما هي ريسبونس
بيئة الASP.NET2 وكما قلت كانت بالأساس بدون دوت نت ( الكلاسيكية ) وأخذت الكثير من الأشياء منها ومنها

ريسبونس

بيئة ال ASP.NET2 تتكون من حسب ما أفتكر 8 كائنات أساسية
وهي
Response
Request
Server
Session
Trace
User
Application
Cash

Response
وكما قلت باختصار سابقا وسأكرر
هي بمثابة البيانات المرسلة من الخادم للمتصفح
حيث من ضمن الطرق التي يحتويها إجراء يسمى ب write()
وبالامكان كتابة نصوص عادية أو حتى كتابة نصوص هتمل
جرب مثلا أن تكتب "<br>"
وأيضا وهنالك الطريقة redirect والتي نقوم بطلب صفحة من السيرفر

مثلا إذا كان موقعنا يحتوي على عشر صفحات ونريد عند النقر على الزر أن يتم تحويلنا لصفحة رقم 6 فكل ما علينا

عمله في حدث النقر على الزر هو كتابة التالي

Response.redirct("PageName.aspx")



لنعود الآن للكود
الكود بسيط
اكتب . القائمة . العنصر المنتقى . نص العنصر . إلى نص ( عادي بدونها أيضا)



ماذا لو أردنا أن يكتب أنت اخترت الخيار و ( اسم الخيار )
طبعا راح تقول راح نكتب جملتين كالتالي

Response.Write("أنت اخترت الخيار")
Response.Write("<br>")
Response.Write("RadioButtonList1.SelectedItem.Text.ToString")

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

كود:

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Write("أنت اخترت " & RadioButtonList1.SelectedItem.Text.ToString)

End Sub

الكود بسيط جدا وقد قمنا بربط الجملتين بالحرف & بكل بساطة وبامكانك أن تضيف عدد لا نهائي من الربط
الحرف & يربطك بين متغيرين من نوع string وهي المتغيرات الحرفية طبعا يمكن إعادة قيادتها كما تشاء ولكن هذا

ليس موضوعنا

لنقم بجعل الكود داخل الزر تعليق ( )
ما هي التعليقات

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

حرف الطاء من الكيبورد قبل السطر مع العلم انه يتحتم عليك أن تضع قبل كل سطر بدء تعليق

والرمز هو
'



ماذا لو أردنا أن يخرج لنا على الصفحة رقم الخيار
الطريق بسيطة وهي عن طريق الخاصية SelectedIndex كالتالي ( الترقيم بيبدا من الرقم 0 وليس من الرقم 1)
أو إذا حدا مركز معي بيفتكر إنه أعطينا القيم أرقام نفس ترقيم الاندكس يعني يمكن كتابة الكود التالي أيضا

Response.Write(RadioButtonList1.SelectedValue)

Response.Write(RadioButtonList1.SelectedIndex)


طبعا راح نلاقي إنه الترقيم من صفر يعني الخيار الخامس بيكون رقمه 4
طيب والعمل
المطلوب أن يكتب 5 بدلا من 4
الحل بسيط وكما قلت الفيجوال بيسك هنا يعطيك كل الإمكانيات يجب أن تعرفوا أن القيمة هنا في الفاليو أو الإندكس

يتعامل معاها كأنها رقم
يعني لو اخترنا الخيار الثالث فإن هذه الجملة بيفهمها RadioButtonList1.SelectedIndex كإنها رقم 2

وبالتالي بامكانك التعامل معاها كأنها رقم يعني بامكانك أن تضرب وتجمع
جرب التالي
Response.Write(RadioButtonList1.SelectedIndex + 1)

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



ماذا لو أردنا من البرنامج يكتب لنا التالي
أنت اخترت JSP
هذا الخيار رقم 4

ويكررها حسب رقم الخيار

هنا سنطر إلى استخدام جملة التكرار الشائعة
لنشرح جملة التكرار

        For i = 0 To 10 Step 1

        Next

جملة الشرط تبدا ب for وتنتهي ب next
وما نريد تنفيذه يكون بينهما

يتوجب وجود متغير لتبدأ العد منه ولتعريف متغير ( أفضل قراءة كتاب الأخ تركي بخصوص برمجة الفيجوال بيسك

دوت نت )
وباختصار اكتب dim I as integer حيث I اسم المتغير وانتجر نوعه وهنا نوعه عدد صحيح
في الكود بالأعلى 0 هي القيمة الابتدائية و10 هي القيمة النهائية للتكرار والرقم 1 هو عدد مرات الزيادة
وهي اختيارية وبدونها الزيادة سكتكون واحد
الآن لنكتب الكود التالي

    Protected Sub RadioButtonList1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles 

RadioButtonList1.Load
        Dim i As Byte

        For i = 1 To RadioButtonList1.SelectedIndex + 1 Step 1
            Response.Write("أنت اخترت  " & RadioButtonList1.SelectedItem.Text.ToString & "<br>" & "هذا الخيار رقم  

" & RadioButtonList1.SelectedIndex.ToString + 1 & "<br>" & "<br>")
        Next
    End Sub

كما قلت RadioButtonList1.SelectedIndex + 1 هي بمثابة رقم




الجزء الأخير البسيط لدرس اليوم سيكون عن الأحداث

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

هذه هي أمثلة على أحداث الكميوتر وهي شبيهة بأحداثنا كالأكل والمشي والنوم


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

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
    End Sub

ونلاحظ التالي
Protected Sub
بروتكتد وهو محدد الوصول ويعني أن هذا الاجراء سنصل إليه من نفس الفئة والفئة الوارثة لها ( لا عليكم )
وسب تعني أنها دالة لن ترجع قيمة

Page_Load
اسم الاجراء

(ByVal sender As Object, ByVal e As System.EventArgs)
الكائن المرسل و نوع الحدث


Handles Me.Load
اقتناص حدث تحميل الصفحة

أيضا لا عليكم
المهم المفترض أن نكتب متطلبنا بين هذين السطرين
وهذه من أروع المزايا التي تقدمها مايكروسوفت وهي الكود الخلفي code beheind
وهي ليست موجودة في البي اتش بي وهذا ما يجعلها صعبة القراءة



نرى في صفحة الكود الخلفي في أعلى الكود كلمة load وبجانبها صورة البرق

ويسبقها اسم الأداة ( في حالتنا وهي الصفحة ) وبجانبها البرق
ومن هنا يمكن الوصول لأي حدث من أحداث الأدوات

وذلك بتحديد الأداة من اليسار أولا ثم اسم الحدث من على يمينها

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

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



تم بحمد الله الدرس الرابع الجزء الثاني
وإن شاء الله ستكون الدروس القادمة أكثر متعا وتخصصا طالما لم يطلب مني أن أوضح نقاط محددة أشرحها خارج خطتي


سألني أخ عن كيفية تشغيل الدرس المرفق وهي كالتالي
بعد فك الضغط والتاكد من أن الملفات في المجلد الذي سنختاره
بعد فتح الفيجوال استوديو
اذهب إلى File ?open ? Web SIte
ومن ثم اختر اسم المجلد الموجود به المشروع مباشرة

وفي هذا الدرس لم أضع شيئا كالمعتاد وأرجو من يهتم أن يذكرني

أخوكم خليل من فلسطين

[asp2asp]

ماشاء الله تبارك الرحمن..

درس ممتاز، بدأنا ندخل ونتعمق، ماشاء الله، درس وافي كاافي..

سر ونحن معك ..

[الثلج]

رائع عزيزي

واصل مسيرتك جزاك الله خير