تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اكواد حل معادلتين مع متغيراتها عاجل
#1
   السلام عليكم ورحمه الله

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

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



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



 


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
ضع متغيرات تحمل الارقام ثم ضع المعادله بالكود
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
ولاكن سيكون الامر سهل فأكيد انت تعرف ازاى تضع متغيرات
الرد }}}}
تم الشكر بواسطة:
#3
كلها ابرمجها في زر الsolve ?
حتى المتغيرات ابغى الاكواد كلها كامله انا استخدم فيجوال بيسك 2010
وكيف احط خاصيه للاداة بوتون ال solve اطار ؟

معليش تسويلي كابتشر عالفورم وكابتشر عالاكواد عشان افهم كيف يتطبق
لانو ماظبط معي عندي واجب لازم اسلمه اليوم ...
الرد }}}}
تم الشكر بواسطة:
#4
أخي الكريم اسمح لي بالتصحيح , أولاً يجب أن يكون الادخال متحول و من النوع الحقيقي و ليس 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

كله تضعه بالحدث الضغط
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اكواد انشاء متصفح محبه البرمجه 4 168 30-11-17, 09:36 PM
آخر رد: محبه البرمجه
Thumbs Up [كود] اكواد جديدة Mina Botros 2 360 05-07-17, 02:03 AM
آخر رد: Mina Botros
  مجموعة اكواد جديدة asdsoft 4 1,459 01-11-16, 01:46 AM
آخر رد: kanolov

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم