مساعدة بسيطة في برنامج الرياضيات الخاص بي

السلام عليكم ,

OricalcosZy كتب:

سؤالي الثاني : ان يقوم البرنامج بكتابة المعادلة كاملة بعد ادخال قيم a و b و c فمثلا : a=9 ; b=7 ; c=1 فيكتب البرنامج 5x²+7y+1=0

المتغيرات A , b , C .. سيتم إدخالها من قبل المستخدم , و يعرض المعادلة في Label ,

جرب هالكود ..

  Label1.Text = txtA.Text + (" X² + ") + txtB.Text + ("Y + ") + txtC.Text + (" = 0")

هل هو المطلوب ؟

بالتوفيق :happy: ,

هناك احتمال أن تكون الأعداد سالبة وليست كلها موجبة

OricalcosZy كتب:

هناك احتمال أن تكون الأعداد سالبة وليست كلها موجبة

صحيح .. ما أخذت بالي :wacko: .. عذرًا ..

توصلت لحل :wink: ..

جرب هذا :

 Dim abc As String
        abc = txtA.Text + ("X² ")
        If Val(txtB.Text) < 0 And Val(txtC.Text) < 0 Then
            abc = abc + txtB.Text + ("Y") + txtC.Text
        ElseIf Val(txtB.Text) < 0 And Val(txtC.Text) > 0 Then
            abc = abc + txtB.Text + ("Y +") + txtC.Text
        Else
            abc = abc + ("+") + txtB.Text + ("Y +") + txtC.Text
        End If
        Label1.Text = abc + (" = 0")

لقد جربته ولم بعمل

وبالاعتمداد عليه وجدت حلا ممكنا

  Dim a, b, c As String
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        If b < 0 Then
            b = b & "x"
        Else
            b = "+" & b & "x"
        End If
        If c < 0 Then
            c = c
        Else
            c = "+" & c
        End If
        Label1.Text = a & "x²" & b & c & "=0"

----->لكن يبقى مشكل آخر وهو أن البرنامج لا يستطيع اجراء العمليات الحسابية على المتغيرات من نوع string

OricalcosZy كتب:

لقد جربته ولم بعمل

الكود يعمل عندي .. مالمشكلة التي تواجهك ؟

بالمناسبة , عدلت ع الكود السابق .. يبدو أنك لم تنتبه له ..

OricalcosZy كتب:

----->لكن يبقى مشكل آخر وهو أن البرنامج لا يستطيع اجراء العمليات الحسابية على المتغيرات من نوع string

أخي الفاضل , بالتأكيد لن يعمل مع العمليات الحسابية ..

كتبت الكود السابق لغرض طباعة المعادلة بالشكل المطلوب .. , و لم أراعي إمكانية حساب المعادلة :) ,

ما الذي تريده من الكود أيضًا .. ؟ ربما أستطيع التعديل عليه ..

بالتوفيق ,

اقتباس

الكود يعمل عندي .. مالمشكلة التي تواجهك ؟

بالمناسبة , عدلت ع الكود السابق .. يبدو أنك لم تنتبه له ..

الكود المعدل يعمل جيدا الآن ...

اقتباس

أخي الفاضل , بالتأكيد لن يعمل مع العمليات الحسابية ..

كتبت الكود السابق لغرض طباعة المعادلة بالشكل المطلوب .. , و لم أراعي إمكانية حساب المعادلة :) ,

ما الذي تريده من الكود أيضًا .. ؟ ربما أستطيع التعديل عليه ..

بالتوفيق ,

لقد أصلحت الكود وهو يعمل مع العمليات الحسابية

يبقى الان المشكل الأول فقط

OricalcosZy كتب:

السلام عليكم

أنا أعمل على برنامج رياضيات بسيط (الصور في الاعلى) وقد أصدرت الاصدار الأول منه وفي اطار برمجة تحديث له واجهتني مشكلة أتمنى أن أجد لها حلا

البرنامج عبارة عن مجموعة من أدوات الرياضيات البسيطة ومنها أداة تقوم بحل المعادلات من نوع ax²+bx+c=0

سؤالي الأول : أريد أن تصبح الأداة قادرة على حل هذا النوع من المعادلات مباشرة عن طريق كتابة المعادلة في texttbox واحد وليس عن طريق ادخال قيمة كل عدد وحده في الخانة الخاصة به

سؤالي الثاني : ان يقوم البرنامج بكتابة المعادلة كاملة بعد ادخال قيم a و b و c فمثلا :

a=9 ; b=7 ; c=1 فيكتب البرنامج 5x²+7y+1=0

وشكرا لكم

اخي طلبك جداً سهل إليك المثل :

معادلة من الدرجة الثانية.rar

اقتباس

اخي طلبك جداً سهل إليك المثل :

أخي لقد حملت البرنامج لكن فيه مشاكل فمثلا عندما يكون الدلتا اصغر من 0 يقترض ان لا يكون للمعادلة حل لكن البرنامج يعطي حلولا لا أعرف من أين يأتي بها

كما أنني لم أفهم الجزء الأول من السورس كود وسأكون شاكرا ان أفهمتني عبر msn

راسلني ان كنت موافقا

OricalcosZy كتب:

أخي لقد حملت البرنامج لكن فيه مشاكل فمثلا عندما يكون الدلتا اصغر من 0 يقترض ان لا يكون للمعادلة حل لكن البرنامج يعطي حلولا لا أعرف من أين يأتي بها

كما أنني لم أفهم الجزء الأول من السورس كود وسأكون شاكرا ان أفهمتني عبر msn

راسلني ان كنت موافقا

أخي هذه الحل صحيح ولكن هذا الحل يسمى حل عقدياً أو تخيلي

أبوعمارSyria كتب:

أخي هذه الحل صحيح ولكن هذا الحل يسمى حل عقدياً أو تخيلي

حسنا

هل يمكن أن أجصل على عنوان بريدك الالكترزني ؟

خاصتي هو : InfiniteLightning.Zy@live.com