+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اكواد حل معادلتين مع متغيراتها عاجل (/showthread.php?tid=19292)
اكواد حل معادلتين مع متغيراتها عاجل - نجود - 17-02-17
السلام عليكم ورحمه الله
عندي سؤال مهم جدا ابغى اصمم برنامج في الفيجوال بيسك يحل لي هذه المعادلتين
ايش الاكواد الي احتاجها مع العلم انه يوجد 8 متغيرات
الي هم a b c d m n x y
ax+by=m
cx+dy=n
x = (b * n - d * m) / (b * c - a * d)
y = (a * n - c * m) / (a * d - b * c)
واجهه الفورم في المرفق الرجاء الرد سريعا للضرورة القسوى
RE: اكواد حل معادلتين مع متغيراتها عاجل - EnormousSoft - 17-02-17
ضع متغيرات تحمل الارقام ثم ضع المعادله بالكود
dim a as intger = 12
dim b as intger = 20
dim c as intger = 30
dim d as intger = 44
textbot1.text = (a+b)*c/d
ربما هو ليس الحل الامثل ولاكنه يمكن استخدامعه فى النهايه
ملحوظه الكود مكتوب بلغه vb.net لانى لا اعرف vb6
ولاكن سيكون الامر سهل فأكيد انت تعرف ازاى تضع متغيرات
RE: اكواد حل معادلتين مع متغيراتها عاجل - نجود - 18-02-17
كلها ابرمجها في زر الsolve ?
حتى المتغيرات ابغى الاكواد كلها كامله انا استخدم فيجوال بيسك 2010
وكيف احط خاصيه للاداة بوتون ال solve اطار ؟
معليش تسويلي كابتشر عالفورم وكابتشر عالاكواد عشان افهم كيف يتطبق
لانو ماظبط معي عندي واجب لازم اسلمه اليوم ...
RE: اكواد حل معادلتين مع متغيراتها عاجل - kosay - 06-04-17
أخي الكريم اسمح لي بالتصحيح , أولاً يجب أن يكون الادخال متحول و من النوع الحقيقي و ليس Integer و لا يساوي قيمة ثابتة
Dim a as double
Dim b as Double
Dim c as double
Dim d as double
Dim n as double
Dim m as double
الآن سنسحب القيم من القيم المدخلة
a = Val(textbox1.text)
b = Val(textbox2.text)
c = Val(textbox3.text)
d = Val(textbox4.text)
n = Val(textbox5.text)
m = Val(textbox6.text)
الآن نعرف ال Delta1 , Delta2 , Delta
Dim delta as double
Dim delta1 as double
Dim delta2 as double
Delta = a*d-b*c
انتبه لشرط أن تكون Delta = 0 و معناه المعادلة مستحيلة الحل
If Delta<>0 then
dleta1 = b * n - d * m
delta2 = a * n - c * m
Dim X as double
X = delta1/delta
Dim Y as double
Y = delta2/delta
TextBox7.text = X
TextBox8.text = Y
Else
MessageBox.show("Error, I can't solve this !")
End IF
End Sub
كله تضعه بالحدث الضغط
RE: اكواد حل معادلتين مع متغيراتها عاجل - سالم الصديق - 13-08-21
السلام عليكم ورحمة
عندي كمبوبوكس فيه خياران(عادي ومخفض)
عند اختيار (عادي) نقوم عملية ضرب تكس بوكس(1) في 5%
او عند اخيار (مخفض) نقوم بعملية ضرب تكس بوكس (1) في 2%
كيفية عمل المعادلة اخوتي الكرام
RE: اكواد حل معادلتين مع متغيراتها عاجل - ابراهيم ايبو - 17-08-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم
سنعبئ الكومبو بعنصرين (عادي - مخفض)
وفي حدث تغيير الاختيار
كود :
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
' اول عنصر في الكومبوبوكس يكون عادي والثاني يكون مخفض
If ComboBox2.SelectedIndex = 0 Then
TextBox2.Text = CDbl(Val(TextBox1.Text) * 0.05)
ElseIf ComboBox2.SelectedIndex = 1 Then
TextBox2.Text = CDbl(Val(TextBox1.Text) * 0.02)
End If
End SubRE: اكواد حل معادلتين مع متغيراتها عاجل - رمضان272 - 08-03-22
برنامج حل المعادلات بالسورس كود