التعامل مع الرياضيات , انشاء برنامج لايجاد قيمة محدد بواسطة فيجوال بيسك دوت نت VB.Net

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

هناك نوعان من المحددات التي سنتعامل معها :-

-محدد من درجة ثانية
- محدد من درجة ثالثة

لفك "ايجاد قيمة" المحددات من الدرجة الثانية تكون كالاتي



ad - cb = القيمة

عملية فك المحدد من الدرجة الثانية سهل في فيجوال بيسك فقط قم بتعريف المتغيرات

أضف 4 Textbox وسم المتغيرات كالاتي

اقتباس:
Dim a, b, c, d As Integer
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
d = TextBox4.Text
وهذا شكل الفورم

في زر ايجاد القيمة سنضع الحل في مسج بوكس

اقتباس:
MsgBox((a * d) - (c * b))

لكن في حال أردنا ايجاد قيمة محدد من درجة ثالثة المكونة من 3 اعمدة وصفوف , ماذا نفعل؟

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

يعني نحتاج الى 9 Textbox


اقتباس:
Dim S1 As Integer
Dim S2 As Integer
Dim S3 As Integer
Dim SumOfS As Integer
S1 = (Nm1.Text * Nm5.Text * Nm9.Text)
S2 = (Nm2.Text * Nm6.Text * Nm7.Text)
S3 = (Nm3.Text * Nm4.Text * Nm8.Text)
SumOfS = S1 + S2 + S3

'---------------------------------------

Dim X1 As Integer
Dim X2 As Integer
Dim X3 As Integer
Dim SumOfX As Integer
X1 = (Nm2.Text * Nm4.Text * Nm9.Text)
X2 = (Nm1.Text * Nm6.Text * Nm8.Text)
X3 = (Nm3.Text * Nm5.Text * Nm7.Text)
SumOfX = X1 + X2 + X3

Dim Ans As Integer
Ans = SumOfS - SumOfX
MsgBox(Ans)
الحل مقسم الى جزئين , جزء خاص بالأقطار الرئيسية وجزء اخر بالاقطار الثانوية , ثم يقوم البرنامج بالطرح وايجاد قيمة المحدد.