المعادلة التربيعية هي كثيرة حدود من الدرجة الثانية لها الشكل "ax ^ 2 + bx + c = 0." "أ" و "ب" و "ج" هي الثوابت و "س" هي المتغير. عندما تحل معادلة تربيعية ، يجب أن يكون لديك قيم الثوابت وأن تحل قيمة x ، والتي ينتج عنها دائمًا قيمتان ، تدعى "الجذور". في Visual Basic ، يمكنك كتابة برنامج أو وظيفة تطالب المستخدم بإدخال قيم a و b و c والعثور على الجذور ثم عرض القيم على شكل.
الخطوة 1
افتح برنامج Visual Basic جديد. انقر نقرًا مزدوجًا فوق أداة "الزر" لإضافة Button1 إلى النموذج. انقر نقرًا مزدوجًا فوق أداة "Label" مرتين لإضافة Label1 و Label2 إلى النموذج.
فيديو اليوم
الخطوة 2
انقر نقرًا مزدوجًا فوق "Button1" في النموذج لفتح نافذة التعليمات البرمجية. اكتب الكود التالي:
خافت a كـ عشري = InputBox ("أدخل A:") خافت ب كـ عشري = InputBox ("أدخل B:") خافت ج كـ عشري = InputBox ("أدخل C:") تربيعي (أ ، ب ، ج)
تحث الأسطر الثلاثة الأولى المستخدم على قيم الثوابت. ثم يطلق على فرع يسمى "تربيعي" ويمرر الثوابت كوسيطات له.
الخطوه 3
أدخل المؤشر خارج الزر الفرعي Button1. اكتب الكود التالي:
تربيعي فرعي خاص (ByVal a As Decimal، ByVal b as Decimal، ByVal c as Decimal) Dim root (1) as String Dim x1، x2، disc as Decimal disc = b ^ 2 - 4 * a * c
ينشئ السطر الأول الفرعي التربيعي ويقبل ثلاث وسيطات. ثم تقوم بتعريف مصفوفة مكونة من عنصرين للجذرين. ثم ينشئ ثلاثة متغيرات عشرية ويعين قيمة المميز ، الذي يحدد عدد الجذور التي تحتوي عليها المعادلة التربيعية.
الخطوة 4
اكتب الكود التالي:
إذا كان القرص> = 0 ثم x1 = (-b + Math. Sqrt (قرص)) / (2 * a) x2 = (-b - Math. Sqrt (قرص)) / (2 * a) جذور (0) = x1.ToString root (1) = x2.ToString Else root (0) = "(-" & b. ToString & "+ Sqrt (" & disc. ToString & ")) / (2_" & a. ToString & ")" root (1) = "(-" & b. ToString & "-Sqrt (" & disc. ToString & ")) / (2_" & a. ToString & ")" End If
تتحقق وظيفة "if" لمعرفة ما إذا كانت قيمة المميز أكبر من أو تساوي الصفر ، مما يعني أن المعادلة لها جذر واحد أو جذران. ثم يحل ل x. إذا كان المميز أقل من صفر ، فإن المعادلة ليس لها جذور حقيقية ويتم تنفيذ جزء "else" ، الذي يعرض معادلات الجذور المعقدة.
الخطوة الخامسة
اكتب الكود التالي:
Label1.Text = جذور (0) Label2.Text = جذور (1) نهاية فرعية
تعرض سطور التعليمات البرمجية هذه ببساطة الجذور على الملصقات ثم تغلق كتلة كود الفرز التربيعي.
الخطوة 6
احفظ برنامج Visual Basic. اضغط على "F5" لتشغيله.
