برنامج equsolver v.1.0 من برمجتي وتصميمي قوم بحل المعادلات المتنوعة تابع الموضوع.....

#120 يونيو 2007 في 17:05 صاحب الموضوع

الحمد لله لقد قمت ببرمجة برنامج equsolver v.1.0 يقوم بحل المعادلات من النوعيات الاتية :

1- حل معادلتين من الدرجة الأولى .

2- حل ثلاث معادلات من الدرجة الأولى .

3- اٍيجاد جذور معادلة تربيعية مع امكانية استخراج الناتج كقيمة حقيقية وتخيلية اذا كان كذلك .

أولا حمل البرنامج من هنا :

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

انتظر رأيكم في البرنامج الذي أرهقني فعلا لانتاجه واخراجه ثم بعد ذلك نبدأ في وضع الأكواد ولكن الأكواد ستكون ليست هناك فائدة في وضعها حيث أن معظمها عبارة عن معادلات طويلة وفكرة البرنامج هو حل المعادلات ثم تصحيح الأخطاء في أحيان كثيرة وأيضا ايجاد الناتج بالقيمة الحقيقية والتخيلية في حالة ايجاد الجذور لمعادلة تربيعية أما حل ثلالث معادلات فهذه معادلاتها كبيرة جدا .

المهم ننتظر رأيكم الان

تم تعديل هذه المشاركة بواسطة hazzoom في 20 يونيو 2007 في 17:35

#221 يونيو 2007 في 12:06

يجب ارفاق سورس

(نسخة VB)

#321 يونيو 2007 في 16:46

السلام عليك اخي

طبعاً مشكور على جهدك ,, لكن تم حذف الرابط لانه مفروض تحط السورس كود اخي للفائدة

فما فائدة ان احنا نشوف البرنامج كده وخلاص ؟؟؟

تم تعديل هذه المشاركة بواسطة Ala2 VB في 21 يونيو 2007 في 16:47

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

Delphawi.wordpress.com

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#421 يونيو 2007 في 22:10

أولا الكود الخاص بحل معادلتين من الدرجة الأولى :

Private Sub Command1_Click()

		x = Val(Label6.Caption)
		y = Val(Label8.Caption)



	If IsNumeric(a) = False Or IsNumeric(b) = False Or IsNumeric(c) = False Or IsNumeric(d) = False Or IsNumeric(e) = False Or IsNumeric(f) = False Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÎØÃ Ýí ÇÏÎÇá ÇáãÚÇãáÇÊ ", vbExclamation, "ÎØÃ"
		Exit Sub

	End If

	If (a = d) And (b = e) Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox " ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If

	If (a = b) And (d = e) Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox " ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If

	If a = 0 And b = 0 Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If


	If d = 0 And e = 0 Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If

	If a = 0 And d = 0 Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If


	If b = 0 And e = 0 Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If

		Label5.Visible = True
		Label6.Visible = True
		Label7.Visible = True
		Label8.Visible = True

	If a = 0 Then

		Label6.Caption = (f - (e * c / b)) / (d - (e * a / b))
		Label8.Caption = (c - (a * x)) / b
		Exit Sub

	End If

	If b = 0 Then

		Label8.Caption = (f - (d * c / a)) / (e - (d * b / a))
		Label6.Caption = (c - (b * y)) / a
		Exit Sub

	End If

		Label6.Caption = (f - (e * c / b)) / (d - (e * a / b))
		Label8.Caption = (f - (d * c / a)) / (e - (d * b / a))

End Sub

ثانيا الكود الخاص بحل ثلاث معادلات من الدرجة الاولى

	If IsNumeric(a) = False Or IsNumeric(b) = False Or IsNumeric(c) = False Or IsNumeric(d) = False Or IsNumeric(e) = False Or IsNumeric(f) = False Or IsNumeric(g) = False Or IsNumeric(h) = False Or IsNumeric(i) = False Or IsNumeric(j) = False Or IsNumeric(k) = False Or IsNumeric(l) = False Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		Label9.Visible = False
		Label11.Visible = False
		MsgBox "ÎØÃ Ýí ÇÏÎÇá ÇáãÚÇãáÇÊ ", vbExclamation, "ÎØÃ"
		Exit Sub

	End If

	If ((a = e) And (b = f) And (c = g)) Or ((a = i) And (b = j) And (c = k)) Or ((e = i) And (f = j) And (g = k)) Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		Label9.Visible = False
		Label11.Visible = False
		MsgBox " ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If

	If ((a = e = i) And (b = f = j)) Or ((a = e = i) And (c = g = k)) Or ((b = f = j) And (c = g = k)) Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		Label9.Visible = False
		Label11.Visible = False
		MsgBox " ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If


	If ((a = b) And (e = f) And (i = j)) Or ((a = c) And (e = g) And (i = k)) Or ((b = c) And (f = g) And (j = k)) Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		Label9.Visible = False
		Label11.Visible = False
		MsgBox " ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If


	If ((a = b = c) And (e = f = g)) Or ((a = b = c) And (i = j = k)) Or ((e = f = g) And (i = j = k)) Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		Label9.Visible = False
		Label11.Visible = False
		MsgBox " ÃÚÏ ÇÏÎÇá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If



		Label5.Visible = True
		Label6.Visible = True
		Label7.Visible = True
		Label8.Visible = True
		Label9.Visible = True
		Label11.Visible = True


		If a = 0 Then

			Label6.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (j - (k * b / c))) / (f - (g * b / c)))) / ((i - (k * a / c)) - (((e - (g * a / c)) * (j - (k * b / c))) / (f - (g * b / c))))
			Label8.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (i - (k * a / c))) / (e - (g * a / c)))) / ((j - (k * b / c)) - (((f - (g * b / c)) * (i - (k * b / c))) / (e - (g * a / c))))
			Label9.Caption = (d - a * (Label6.Caption) - b * (Label8.Caption)) / c
			Exit Sub

		End If

		If b = 0 Then

			Label6.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (j - (k * b / c))) / (f - (g * b / c)))) / ((i - (k * a / c)) - (((e - (g * a / c)) * (j - (k * b / c))) / (f - (g * b / c))))
			Label8.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (i - (k * a / c))) / (e - (g * a / c)))) / ((j - (k * b / c)) - (((f - (g * b / c)) * (i - (k * b / c))) / (e - (g * a / c))))
			Label9.Caption = (d - a * (Label6.Caption) - b * (Label8.Caption)) / c
			Exit Sub

		End If


		If c = 0 Then

			Label6.Caption = ((l - (j * d / b)) - (((h - (f * d / b)) * (k - (j * c / b))) / (g - (f * c / b)))) / ((i - (j * a / b)) - (((e - (f * a / b)) * (k - (j * c / b))) / (j - (f * c / b))))
			Label9.Caption = ((h - (f * d / b)) / (g - (f * c / b))) - (((e - (f * a / b)) * (Label6.Caption)) / (g - (f * c / b)))
			Label8.Caption = (d - a * (Label6.Caption) - c * (Label9.Caption)) / b
			Exit Sub

		End If


		If a = 0 And b = 0 Then

			Label6.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (j - (k * b / c))) / (f - (g * b / c)))) / ((i - (k * a / c)) - (((e - (g * a / c)) * (j - (k * b / c))) / (f - (g * b / c))))
			Label8.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (i - (k * a / c))) / (e - (g * a / c)))) / ((j - (k * b / c)) - (((f - (g * b / c)) * (i - (k * b / c))) / (e - (g * a / c))))
			Label9.Caption = (d - a * (Label6.Caption) - b * (Label8.Caption)) / c
			Exit Sub

		End If


		If a = 0 And c = 0 Then

			Label6.Caption = ((l - (j * d / b)) - (((h - (f * d / b)) * (k - (j * c / b))) / (g - (f * c / b)))) / ((i - (j * a / b)) - (((e - (f * a / b)) * (k - (j * c / b))) / (j - (f * c / b))))
			Label9.Caption = ((h - (f * d / b)) / (g - (f * c / b))) - (((e - (f * a / b)) * (Label6.Caption)) / (g - (f * c / b)))
			Label8.Caption = (d - a * (Label6.Caption) - c * (Label9.Caption)) / b
			Exit Sub

		End If


		If b = 0 And c = 0 Then

			Label8.Caption = ((l - (i * d / a)) - (((h - (e * d / a)) * (k - (j * c / b))) / (g - (f * c / b)))) / ((i - (j * a / b)) - (((e - (f * a / b)) * (k - (j * c / b))) / (j - (f * c / b))))
			Label9.Caption = ((h - (f * d / b)) / (g - (f * c / b))) - (((e - (f * a / b)) * (Label6.Caption)) / (g - (f * c / b)))
			Label6.Caption = (d - a * (Label6.Caption) - c * (Label9.Caption)) / b
			Exit Sub

		End If


		Label6.Caption = ((l - (k * d / c)) - (((h - (g * d / c)) * (j - (k * b / c))) / (f - (g * b / c)))) / ((i - (k * a / c)) - (((e - (g * a / c)) * (j - (k * b / c))) / (f - (g * b / c))))
		Label9.Caption = ((h - (f * d / b)) / (g - (f * c / b))) - (((e - (f * a / b)) * (Label6.Caption)) / (g - (f * c / b)))
		Label8.Caption = (d - a * (Label6.Caption) - c * (Label9.Caption)) / b


End Sub

ثالثا الكود الخاص بايجا جذور معادلة تربيعية

X

1 = Val(Label6.Caption)
		X2 = Val(Label8.Caption)
		z = b ^ 2 - 4 * a * c

	If IsNumeric(a) = False Or IsNumeric(b) = False Or IsNumeric(c) = False Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÎØÃ Ýí ÇÏÎÇá ÇáãÚÇãáÇÊ ", vbExclamation, "ÎØÃ"
		Exit Sub

	End If

	If a = 0 Then

		Label5.Visible = False
		Label6.Visible = False
		Label7.Visible = False
		Label8.Visible = False
		MsgBox "ÇÏÎá ÇáãÚÇãáÇÊ ÈØÑíÞÉ ÕÍíÍÉ ", vbExclamation, "ÎØÃ ÑíÇÖí"
		Exit Sub

	End If

		Label5.Visible = True
		Label6.Visible = True
		Label7.Visible = True
		Label8.Visible = True

		If b ^ 2 < (4 * a * c) Then
			z = -z
			Label6.Caption = (-b / (2 * a)) & " + " & (Sqr(z) / (2 * a)) & " i"
			Label8.Caption = (-b / (2 * a)) & " - " & (Sqr(z) / (2 * a)) & " i"
			Exit Sub
		End If



		Label6.Caption = (-b + Sqr(z)) / (2 * a)
		Label8.Caption = (-b - Sqr(z)) / (2 * a)

End Sub

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

المهم اني جبتلكم الكود زي ماطلبتم بس ياريت تدعوا لاخوكوا واي استفسار انا موجود

#521 يونيو 2007 في 22:20

ده مش قصدنا اخي ...

بس على كل شكراً على الكود لكن ينقصه بعض الشرح

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

فهمتني اخي

بعدين انت كان ممكن تحط ده كله في دالة وتحطهم في مكتبة DLL وتحفظها باسمك

شكراً

تم تعديل هذه المشاركة بواسطة Ala2 VB في 21 يونيو 2007 في 22:24

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

Delphawi.wordpress.com

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#621 يونيو 2007 في 22:37

أولا أهلا بك أخي الكريم في هذا المنتدى وأخي الكريم هذا المنتدى تعليمي فإذا تكرمت أخي الكريم بإرفاق السورس كود لأن هذا المنتدى كما ذكر سابقا منتدى تعليمي وشكرا لتفهمك.

Email : sao_-5000@hotmail.com

#721 يونيو 2007 في 23:24

شكرا اخى الكريم و ربنا يزيدك من علمه

برنامج equsolver v.1.0 من برمجتي وتصميمي قوم بحل المعادلات المتنوعة تابع الموضوع.....

مواضيع مشابهة

عدد الزوار حالياً