[نجود]

   السلام عليكم ورحمه الله

   عندي سؤال مهم جدا ابغى اصمم برنامج في الفيجوال بيسك يحل لي هذه المعادلتين

    ايش الاكواد الي احتاجها مع العلم انه يوجد 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)


  واجهه الفورم في المرفق الرجاء الرد سريعا للضرورة القسوى



 

[EnormousSoft]

ضع متغيرات تحمل الارقام ثم ضع المعادله بالكود
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
ولاكن سيكون الامر سهل فأكيد انت تعرف ازاى تضع متغيرات

[نجود]

كلها ابرمجها في زر الsolve ?
حتى المتغيرات ابغى الاكواد كلها كامله انا استخدم فيجوال بيسك 2010
وكيف احط خاصيه للاداة بوتون ال solve اطار ؟

---

معليش تسويلي كابتشر عالفورم وكابتشر عالاكواد عشان افهم كيف يتطبق
لانو ماظبط معي عندي واجب لازم اسلمه اليوم ...

[kosay]

أخي الكريم اسمح لي بالتصحيح , أولاً يجب أن يكون الادخال متحول و من النوع الحقيقي و ليس 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

كله تضعه بالحدث الضغط

[سالم الصديق]

السلام عليكم ورحمة 
عندي كمبوبوكس فيه خياران(عادي ومخفض)
عند اختيار (عادي) نقوم عملية ضرب تكس بوكس(1) في 5%
او عند اخيار (مخفض) نقوم بعملية ضرب تكس بوكس (1) في 2%
كيفية عمل المعادلة اخوتي الكرام

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
سنعبئ الكومبو بعنصرين (عادي - مخفض)
وفي حدث تغيير الاختيار

كود :

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 Sub

[رمضان272]

برنامج حل المعادلات بالسورس كود