منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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


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



 

ضع متغيرات تحمل الارقام ثم ضع المعادله بالكود
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 اطار ؟

---

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

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

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