الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حل معادلة ورسمها على محاور الاحداثيات

مغلق
بدأه totti_angel في 5 أكتوبر 2005 · 3 رد · 2,161 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

على يمكن حل معادلة عادية( ايجاد الجدور لها ) مثل

ax^2+bx+c=0

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

#2

أعتقد أن جواب سؤالك في الملف المرفق

FunctionPlotting.zip

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

لا أعلم إن كان جواب الزميل samerselo يجيب على سؤالك أم لا، ولكنني أعددت جواباً وزيادة الخير خيرين كما يقولون.

المعادلة بسيطة جداً ولو كنت مطلع على أساسيات الفيجوال بيسك نت لوجدت بأن حلها لا يتطلب سوى سطور قليلة، هذا بالطبع إن كنت تعرف كيفية حل المسألة رياضيّاً.

قم بإنشاء TextBox بإسم txtA ليضع فيه المستخدم قيمة المعامل A

قم بإنشاء TextBox بإسم txtB ليضع فيه المستخدم قيمة المعامل B

قم بإنشاء TextBox بإسم txtC ليضع فيه المستخدم قيمة المعامل C

كما تعلم فإن هذه المعادلة تسمى Quadratic Equation، ويكون ل X دائماً قيمتين (حلّين، وقد يتساويا أحياناً وقد يكونا غير معرفين NaN أو INFINITY)، سنسميهما X1 وX2:

قم بإنشاءLabel بإسم lblX1 لوضع فيه القيمة X1

قم بإنشاءLabel بإسم lblX2 لوضع فيه القيمة X2

الآن قم بوضع الكود التالي في زر الحل:

        lblX1.Text = ""
        lblX2.Text = ""

        Dim A As Double = CType(txtA.Text, Double)
        Dim B As Double = CType(txtB.Text, Double)
        Dim C As Double = CType(txtC.Text, Double)

        Dim HMS As Double = Math.Sqrt((B ^ 2) - (4 * A * C))

        Dim X1 As Double = ((B * -1) + HMS) / (2 * A)
        Dim X2 As Double = ((B * -1) - HMS) / (2 * A)

        If X1 = X2 Then
            lblX1.Text = "X= " & X1
        Else
            lblX1.Text = "X1= " & X1
            lblX2.Text = "X2= " & X2
        End If

أما إذا أردت عدم ظهور NaN فيجب أن تعدل الكود لإظهار i (المسمى بالعدد التخيلي أو جذر السالب واحد)، هنا يجب ان تقوم فقط بالتعامل مع B ^ 2) - (4 * A * C وتغيير وجهة الكود لإظهار ذلك العدد.

بالنسبة للشق الثاني من سؤالك، أنا لا أعلم ماذا تقصد ب y، هل لديك معادلة فيها متغيرين؟؟ على كل حال، قمت قبل فترة بإنشاء برنامج صغير لأضعه في أحد برامجي، البرنامج عبارة عن لعبة (معرفة معاني الكلمات اليابانية)، في نهاية اللعبة يقوم البرنامج بتسجيل علامة الشخص (الحد الأقصى 100) وحفظها في داتابيز، والمقصود بذلك هو أن يتابع المستخدم بين الفترة والأخرى مدى تقدمه في حفظ الكلمات (يقوم البرنامج بعرض رقم اللعبة وعلامتها على شكل رسم بياني)... أظن ذلك ما تبحث عنه لذا أرفقت في هذه المشاركة ملفاً يحتوي على قسم من البرنامج (الذي يظهر ال CHART )، تستطيع الإطلاع عليه وتغييره بما يتناسب مع مطلبك، وكذلك أرفقت برنامج حل المعادلة.

بالتوفيق.

HMS.zip

تم تعديل هذه المشاركة بواسطة HMS في 5 أكتوبر 2005 في 19:08

Learn Japanese :>>> http://www.nouben.com/

#4

1--- هل يمكن رسم مجموعه نقاط عن طريق الاحداثيات القطبية ( r,o) ( الزاوية والوتر)؟؟

2--- استنتاج نقط تقاطع منحنيين او اكثر؟؟؟؟؟

3--- رسم نقاط اخرى منسوبة الى نقط التقاطع ؟؟

مثلا رسم منحنى دالة ورسم منحنى دالة اخرى ومن نقط التقاطع نرسم نقاط جديده

وجزاكم الله خيرا

هذا الموضوع مغلق.

مواضيع مشابهة