تقييم الموضوع :
  • 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 229 30-11-17, 09:36 PM
آخر رد: محبه البرمجه
Thumbs Up [كود] اكواد جديدة Mina Botros 2 428 05-07-17, 02:03 AM
آخر رد: Mina Botros
  مجموعة اكواد جديدة asdsoft 4 1,566 01-11-16, 01:46 AM
آخر رد: kanolov

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


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