द्विघात समीकरण एक द्वितीय-डिग्री बहुपद है जिसका रूप "ax^2 + bx + c = 0" होता है। "ए," "बी" और "सी" स्थिरांक हैं और "एक्स" चर है। जब आप एक द्विघात समीकरण को हल करते हैं, तो आपके पास स्थिरांक का मान होना चाहिए और x के लिए हल करना चाहिए, जो हमेशा दो मान देता है, जिसे "रूट" कहा जाता है। में विजुअल बेसिक, आप एक प्रोग्राम या फ़ंक्शन लिख सकते हैं जो उपयोगकर्ता को a, b और c मान दर्ज करने के लिए प्रेरित करता है, रूट ढूंढता है और फिर मान प्रदर्शित करता है प्रपत्र।
चरण 1
एक नया विजुअल बेसिक प्रोग्राम खोलें। प्रपत्र में Button1 जोड़ने के लिए "बटन" टूल पर डबल-क्लिक करें। लेबल1 और लेबल2 को प्रपत्र में जोड़ने के लिए "लेबल" टूल पर दो बार डबल-क्लिक करें।
दिन का वीडियो
चरण 2
कोड विंडो खोलने के लिए प्रपत्र पर "बटन1" पर डबल-क्लिक करें। निम्नलिखित कोड टाइप करें:
दशमलव के रूप में मंद करें = इनपुटबॉक्स ("ए दर्ज करें:") मंद बी दशमलव के रूप में = इनपुटबॉक्स ("बी दर्ज करें:") मंद सी दशमलव के रूप में = इनपुटबॉक्स ("सी दर्ज करें:") द्विघात (ए, बी, सी)
पहली तीन पंक्तियाँ उपयोगकर्ता को स्थिरांक के मूल्यों के लिए संकेत देती हैं। यह तब "द्विघात" नामक एक उप को कॉल करता है और स्थिरांक को तर्क के रूप में पास करता है।
चरण 3
Button1 उप के बाहर कर्सर डालें। निम्नलिखित कोड टाइप करें:
निजी उप द्विघात (ByVal a as Decimal, ByVal b as Decimal, ByVal c as Decimal) मंद जड़ें (1) स्ट्रिंग डिम x1, x2, डिस्क के रूप में दशमलव डिस्क = b ^ 2 - 4 * a * c
पहली पंक्ति द्विघात उप बनाती है और तीन तर्क स्वीकार करती है। यह तब दो जड़ों के लिए दो वस्तुओं के साथ एक सरणी को परिभाषित करता है। यह तब तीन दशमलव चर बनाता है और विवेचक का मान निर्दिष्ट करता है, जो द्विघात समीकरण की जड़ों की संख्या निर्धारित करता है।
चरण 4
निम्नलिखित कोड टाइप करें:
यदि डिस्क >= 0 तो x1 = (-b + Math. वर्ग (डिस्क)) / (2 * ए) x2 = (-बी - गणित। Sqrt (डिस्क)) / (2 * a) मूल (0) = x1। ToString जड़ें (1) = x2.ToString अन्य जड़ें (0) = "(-" और b। ToString और "+Sqrt(" और डिस्क. ToString & "))/(2_" & a. ToString & ")" जड़ें (1) = "(-" & b. ToString और "-Sqrt(" और डिस्क. ToString & "))/(2_" & a. ToString और ")" अंत अगर
"अगर" फ़ंक्शन यह देखने के लिए जाँच करता है कि क्या विवेचक का मान शून्य से अधिक या उसके बराबर है, जिसका अर्थ है कि समीकरण में एक या दो जड़ें हैं। यह तब x के लिए हल करता है। यदि विवेचक शून्य से कम है, तो समीकरण का कोई वास्तविक मूल नहीं है और "अन्य" भाग निष्पादित होता है, जो जटिल मूल समीकरणों को प्रदर्शित करता है।
चरण 5
निम्नलिखित कोड टाइप करें:
लेबल1.पाठ्य = मूल (0) लेबल2.पाठ्य = मूल (1) अंत उप
कोड की ये पंक्तियाँ केवल लेबल पर मूल प्रदर्शित करती हैं और फिर द्विघात उप के कोड ब्लॉक को बंद कर देती हैं।
चरण 6
विजुअल बेसिक प्रोग्राम को सेव करें। इसे चलाने के लिए "F5" दबाएं।
