ضع متغيرات تحمل الارقام ثم ضع المعادله بالكود
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
ولاكن سيكون الامر سهل فأكيد انت تعرف ازاى تضع متغيرات
18-02-17, 02:10 PM (آخر تعديل لهذه المشاركة : 18-02-17, 02:23 PM {2} بواسطة نجود.)
كلها ابرمجها في زر ال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%
كيفية عمل المعادلة اخوتي الكرام
السلام عليكم ورحمة الله وبركاته
اخي الكريم
سنعبئ الكومبو بعنصرين (عادي - مخفض)
وفي حدث تغيير الاختيار
كود :
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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات