كيف تقوم بعمل امتحان باستخدام لغة VB.net الدرس الرابع

بسم الله الرحمن الرحيم 

الدرس الرابع في سلسلة شرح عمل امتحان باستخدام لغة VB.net

بعد الإنتهاء من عمل الفورم كما شاهدنا في الدرس الأول
وعمل قائمة MenuStrip في جميع Forms وربط Forms مع بعضها في الدرس الثاني 
وبرمجة شاشة الدخول كما في الدرس الثالث
اليوم سنستكمل شرح طريقة عمل امتحان بسيط باستخدام لغة برمجة VB.net

شاشة الدخول إلى الامتحان

شاشة أسئلة الامتحان

في حالة الإجابة على السؤال لا يمكن تغيير الإجابة.

تصميم وبرمجة الشاشة

بداية تم تحديد لكل سؤال نقطتين..

إذا كانت الإجابة صحيحة يتم إضافة 2 ل Textbox المقابل للسؤال 

تصميم الشاشة: 

تم وضع كل سؤال وخياراته داخل GroupBox للتنظيم
وتم استخدام أداة ال RadioButton لعرض خيارات الأجوبة
الكود: 

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            TextBox1.Text = "2"

            RadioButton1.Enabled = False

            RadioButton2.Enabled = False

        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            TextBox1.Text = "0"

            RadioButton1.Enabled = False

            RadioButton2.Enabled = False

        End If

    End Sub

شرح الكود: 

إذا تم اختيار الجواب الأول RadioButton1 > قم بإضافة 2 إلى TextBox1 

واجعل الخيار الأول + الخيار الثاني غير مفعل.

وبالمثل إذا تم اختيار الجواب الثاني RadioButton2 > لا يتم إضافة اي قيمة إلى TextBox1 

واجعل الخيار الأول + الخيار الثاني غير مفعل.

وبهذه الطريقة يتم التطبيق على جميع الأسئلة المتبقية

 عند الإنتهاء من الإجابة >> 

نختار إنهاء الامتحان، 

ثم تظهر الشاشة التالية > 

برمجة "إنهاء الامتحان"

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

        TextBox11.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text)

        result.TextBox1.Text = Me.TextBox11.Text

        result.Show()

        Me.Hide()

    End Sub

معنى الكود:

يتم جمع القيم التي تم تخزينها في كل Textbox والتي تمثل العلامات التي حصل عليها الطالب بعد إجابة كل سؤال، 

ثم إرسال القيمة التي تم تخزينها في TextBox11.Text إلى الفورم التالي وهو result 

والانتقال إليه مع إخفاء الفورم الحالي.

النهاية.

وبهذا نكون انتهينا من شرح 

سلسلة عمل امتحان باستخدام لغة VB.net

برنامج الفيجوال ستديو 2010 

:)