28‏/07‏/2015

Dros4U

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


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

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


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


دروس4يو Dros4U

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

دروس4يو Dros4U


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

دروس4يو Dros4U

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


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

بداية تم تحديد لكل سؤال نقطتين..
إذا كانت الإجابة صحيحة يتم إضافة 2 ل Textbox المقابل للسؤال 
دروس4يو Dros4U

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

تم وضع كل سؤال وخياراته داخل 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 
:) 

التعليقآت

سجل بريدك الإلكتروني هنا لتصلك أحدث المواضيع