بوادر الخير

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

بعد دراسة البرمجة بلغة الدوت نت و لمدة أربعة أعوام تقريبا

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

كما يقال صدقت نفسي

و جربت أصمم برنامج لحساب دراجات الطلاب

و البرنامج أسميته معادل الدرجات

المطلوب من أعضاء المنتدى أبداء أرائهم و القتراحاتهم

فأنا جديد عن هذا العالم

طبعا البرنامج يعمل بشكل جيد بدون انهيارت

وخالي من الأخطاء في النتائج

و تم تجريبه طوال هذا الفصل الدراسي الثاني

( أنا من ناحيتي أعتبر هذا إنجاز كبير و أسعى إلى التقدم للأمام )

 Public Class Form1
	Inherits System.Windows.Forms.Form

	Dim Questions3, CHeafz, CTajwed, Questions2, Ques As Integer

	Private Sub btnAccount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccount.Click

		Dim errors As Integer
		Select Case errors
			Case errors
				Try
					CHeafz = txtCHeafz.Text
					CTajwed = txtCTajwed.Text
				Catch
				End Try
		End Select
		'============================================================================
======================================
		Ques = ComboBox1.SelectedIndex = 0
		Select Case ComboBox1.SelectedIndex
			Case 0 To 2
				If Ques = 6 = False Then
					lblQuetions.Text = "6"
				End If
			Case 3 To 5
				If Ques = 8 = False Then
					lblQuetions.Text = "8"
				End If
			Case 6 To 8
				If Ques = 10 = False Then
					lblQuetions.Text = "10"
				End If
			Case 9 To 11
				If Ques = 12 = False Then
					lblQuetions.Text = "12"
				End If
			Case 12 To 13
				If Ques = 14 = False Then
					lblQuetions.Text = "14"
				End If
			Case 14
				If Ques = 15 = False Then
					lblQuetions.Text = "15"
				End If
		End Select
		Select Case ComboBox1.SelectedIndex
			Case 0
				Ques = 6
			Case 1
				Ques = 6
			Case 2
				Ques = 6
			Case 3
				Ques = 8
			Case 4
				Ques = 8
			Case 5
				Ques = 8
			Case 6
				Ques = 10
			Case 7
				Ques = 10
			Case 8
				Ques = 10
			Case 9
				Ques = 12
			Case 10
				Ques = 12
			Case 11
				Ques = 12
			Case 12
				Ques = 14
			Case 13
				Ques = 14
			Case 14
				Ques = 15
		End Select
		'============================================================================
======================================
		Dim ACon1 As Integer
		Dim ACon2 As Integer
		Dim ACon3 As Integer
		ACon2 = 30
		Questions2 = Ques * 10
		ACon3 = ACon2 - CTajwed
		'============================================================================
======================================
		Try

			ACon1 = (((Questions2 - CHeafz) / Questions2) * 70)
			lblScore.Text = ACon1 + ACon3

			Try
				If ACon1 <= 54 <> 0 Then
					MessageBox.Show("درجة الحسم للحفظ أقل من 55 ")
				End If

				If txtCHeafz.Text <> "0" Then
				End If

			Catch
				txtCHeafz.Text = "0"
			End Try

			Try
				If txtCTajwed.Text >= 16 Then
					MessageBox.Show("درجة الحسم للتجويد أكثر من 15 ")
				End If
			Catch
			End Try

		Catch
			MsgBox("اختر عدد الأجزاء أولا")
		End Try
		'============================================================================
======================================
		If txtCHeafz.Text = "" Then
			txtCHeafz.Text = "0"
		End If
		'============================================================================
======================================
		If txtCTajwed.Text = "" Then
			txtCTajwed.Text = "0"
		End If
		'============================================================================
======================================
		If ACon1 <= 54 Or txtCTajwed.Text >= 16 Then
			lblValue.Text = "حظاً أوفر للطالب"
			If lblScore.Text = 0 Then
				lblValue.Text = ""
			End If
		End If
		'============================================================================
======================================
		lblScoerHeafz.Text = ACon1
		lblScoerTajwed.Text = ACon3
		'============================================================================
======================================
		If lblScore.Text >= 70 Or lblScore.Text = 79 Then
			lblValue.Text = "جيد"
			If lblScore.Text <= 69 Or ACon1 <= 54 Or txtCTajwed.Text >= 16 Then
				lblValue.Text = "حظاً أوفر للطالب"
				If lblScore.Text = 0 Then
					lblValue.Text = ""
				End If

			End If
		End If
		'============================================================================
======================================
		If lblScore.Text >= 80 Or lblScore.Text = 89 Then
			lblValue.Text = "جيد جدا"
			If lblScore.Text <= 69 Or ACon1 <= 54 Or txtCTajwed.Text >= 16 Then
				lblValue.Text = "حظاً أوفر للطالب"
				If lblScore.Text = 0 Then
					lblValue.Text = ""
				End If
			End If
		End If
		'============================================================================
======================================
		If lblScore.Text >= 90 Or lblScore.Text = 100 Then
			lblValue.Text = "ممتاز"
			If lblScore.Text <= 69 Or ACon1 <= 54 Or txtCTajwed.Text >= 16 Then
				lblValue.Text = "حظاً أوفر للطالب"
				If lblScore.Text = 0 Then
					lblValue.Text = ""
				End If
			End If
		End If
		'============================================================================
======================================
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		End
	End Sub

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

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		ComboBox1.Items.Add("جزأين")			  '1
		ComboBox1.Items.Add("أربعة أجزاء")		'2
		ComboBox1.Items.Add("ستة أجزاء")		  '3
		ComboBox1.Items.Add("ثمانية أجزاء")		'4
		ComboBox1.Items.Add("عشرة أجزاء")		 '5
		ComboBox1.Items.Add("اثنا عشر جزءا")	  '6
		ComboBox1.Items.Add("أربعة عشر جزءا")	 '7
		ComboBox1.Items.Add("ستة عشر جزءا")	   '8
		ComboBox1.Items.Add("ثمانية عشر جزءا")	 '9
		ComboBox1.Items.Add("عشرون جزءا")		 '10
		ComboBox1.Items.Add("اثنان و عشرون جزءا") '11
		ComboBox1.Items.Add("أربعة و عشرون جزءا") '12
		ComboBox1.Items.Add("ستة و عشرون جزءا")   '13
		ComboBox1.Items.Add("ثمانية و عشرون جزءا") '14
		ComboBox1.Items.Add("ثلاثون جزءا")
	End Sub
End Class