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

[eshrag.net]

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

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

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

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

http://latex.codecogs.com/gif.latex?%5C150dpi%20%5Cbegin%7Bvmatrix%7D%20%5C% 20a%20%5C%20b&%20%5C%5C%20%5C%20c%20%5C%20d%20&%20%5Cend%7Bvmatrix%7D

ad - cb = القيمة

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

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

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

http://img191.imageshack.us/img191/45/47426082.png


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

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

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

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

http://img4.imageshack.us/img4/8454/70992970.png


يعني نحتاج الى 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)
الحل مقسم الى جزئين , جزء خاص بالأقطار الرئيسية وجزء اخر بالاقطار الثانوية , ثم يقوم البرنامج بالطرح وايجاد قيمة المحدد.