बीएमआई कैलकुलेटर: 6 कदम

2024 लेखक: John Day | [email protected]. अंतिम बार संशोधित: 2024-01-30 09:21

मेरा नाम उमैर बिन आसिम है। मैं ग्लोबल पर्सपेक्टिव का छात्र हूं, अपना ओ लेवल कर रहा हूं। यह परियोजना एक जागरूकता अभियान का हिस्सा है जिसका संचालन मैं और मेरे सहपाठी वर्तमान में कर रहे हैं। हम मोटापे को पूरी दुनिया में एक बढ़ती हुई समस्या के रूप में पहचानते हैं और लोगों को मोटापे से लड़ने के लिए प्रोत्साहित कर रहे हैं इससे पहले कि यह एक बड़ी सामाजिक तबाही की ओर ले जाए। यह परियोजना हमारे कई जागरूकता अभियानों में से एक है।

बीएमआई कैलकुलेटर, लोगों को अपने बॉडी मास इंडेक्स की गणना करने और यह निर्धारित करने में अधिक आसानी देता है कि वे मोटे हैं या नहीं। हमने जो कैलकुलेटर बनाया है, वह अमेरिकन हेल्थ एसोसिएशन के मानकों के अनुरूप है। इसे पोस्ट करने का उद्देश्य लोगों को न केवल कैलकुलेटर बनाने की अनुमति देना है, बल्कि लोगों को अपने कैलकुलेटर को उनके राष्ट्रीय मानक के अनुसार संशोधित करने की अनुमति देना भी है।

चरण 1: एक नया विजुअल स्टूडियो प्रोजेक्ट बनाना

1. ओपन विजुअल स्टूडियो
2. नई परियोजना पर क्लिक करें
3. विधवाओं का चयन करें आवेदन पत्र
4. परियोजना का नाम बदलकर "बीएमआई कैलकुलेटर" कर दें
5. प्रोजेक्ट को सहेजें और स्थान याद रखें (मैंने इसे एक अलग ड्राइव में सहेजा है)

चरण 2: दो खंड

विजुअल स्टूडियो विंडोज़ फॉर्म एप्लीकेशन में दो सेक्शन हैं:

1) फॉर्म1.वीबी [डिजाइन]

यहां आप GUI बनाते हैं

2) फॉर्म1.वीबी

यहां आप अपनी प्रोग्रामिंग लिखते हैं

आप उन पर चयन करके टैब चुन सकते हैं

चरण 3: इंटरफ़ेस डिज़ाइन करें (लेबल और टेक्स्टबॉक्स)

इस चरण में आपको ग्राफिक्स यूजर इंटरफेस डिजाइन करने की जरूरत है।

1. उपलब्ध टूलबॉक्स से लेबल चुनें (यदि आपको टूल बॉक्स नहीं मिल रहा है तो Ctrl+Alt+x दबाएं)
2. लेबल को प्रपत्र पर खींचें और उन्हें दाईं ओर व्यवस्थित करें। हमें तीन लेबल चाहिए
3. बाईं ओर लेबल व्यवस्थित करें
4. लेबल पर क्लिक करें और गुणों में ऑटोसाइज़ को FALSE में बदलें, यह आपको लेबल का आकार बदलने की अनुमति देगा।

5. लेबल पर क्लिक करें और गुणों में टेक्स्ट को क्रमशः "ऊंचाई", "वजन", "आपका बीएमआई" में बदलें।

6. आप रंग और 3D प्रभाव जैसे गुणों में अन्य सेटिंग भी बदल सकते हैं।
7. टूलबॉक्स से तीन टेक्स्ट बॉक्स खींचें और उन्हें लेबल के समानांतर बाईं ओर संरेखित करें
8. टेक्स्टबॉक्स पर क्लिक करें और गुणों में नाम सेटिंग्स को "txtheight", "txtweight", "txtresults" में बदलें
9. आप रंग और 3D प्रभाव जैसे गुणों में अन्य सेटिंग भी बदल सकते हैं।
10. एक अंतिम टेक्स्टबॉक्स बनाएं और इसे नीचे संरेखित करें, इस टेक्स्ट बॉक्स को "txtcomment" नाम दें, यह बीएमआई व्यक्तियों के आधार पर परिणाम देगा क्योंकि अकेले संख्याओं से समझना मुश्किल हो सकता है।
11. नाम बदलना आवश्यक है क्योंकि हमें अपने प्रोग्राम में इन टेक्स्टबॉक्स को कॉल करना होगा, यदि आप कोई अन्य नाम रखना चाहते हैं तो आपको प्रोग्राम में संदर्भित बटन का नाम भी बदलना होगा। (नाम मेरे कार्यक्रम के अनुसार हैं)

चरण 4: इंटरफ़ेस डिज़ाइन करें (बटन)

बटनों को टूलबॉक्स से खींचकर और उन्हें चित्र में दिखाए अनुसार संरेखित करके रखें

बटन चयनित होने पर गुणों में बटन पर नाम बदलें, और आप टेक्स्ट सेटिंग भी बदल सकते हैं।

• एक बटन नाम "btncalc" बनाएं, टेक्स्ट के साथ "BMI की गणना करें"
• "स्पष्ट" पाठ के साथ एक बटन नाम "btnclear" बनाएं
• "बाहर निकलें" टेक्स्ट के साथ एक बटन नाम "btnexit" बनाएं
• एक बटन नाम "btnabout" बनाएं, टेक्स्ट के साथ "हमारे बारे में जानें"
• एक बटन नाम "btnhlp" बनाएं, टेक्स्ट के साथ "सहायता चाहिए?" (मैंने इसका उपयोग नहीं किया है और यदि आप सहायता बटन जोड़ना चाहते हैं तो इसे निःशुल्क छोड़ दिया गया है)

जीयूआई फॉर्म में बटनों को संरेखित करें जैसा कि आप फिट देखते हैं

नाम बदलना आवश्यक है क्योंकि हमें अपने प्रोग्राम में इन बटनों को कॉल करना होगा, यदि आप कोई अन्य नाम रखना चाहते हैं तो आपको प्रोग्राम में संदर्भित बटन का नाम भी बदलना होगा। (नाम मेरे कार्यक्रम के अनुसार हैं)

चरण 5: अपने कैलकुलेटर की प्रोग्रामिंग

पब्लिक क्लास फॉर्म1

निजी उप btncalc_Click(Sender As System. Object, e As System. EventArgs) btncalc. Click को हैंडल करता है

मंद ऊंचाई डबल = 0 के रूप में ऊंचाई नामित चर बनाता है मंद वजन डबल = 0 के रूप में वजन नामित चर बनाता है मंद बीएमआई डबल = 0 के रूप में बीएमआई नामक चर बनाता है

txtresults. Text = ""

ऊंचाई = Double. Parse(txtheight. Text) 'टेक्स्ट बॉक्स txtheight से अंकों को पढ़ता है और इसे संबंधित चर वजन में सहेजता है = Double. Parse(txtweight. Text) 'टेक्स्ट बॉक्स txtweight से अंकों को पढ़ता है और इसे संबंधित चर ऊंचाई = ऊंचाई में सहेजता है। 0.0254 'ऊंचाई को मीटर में बदलता है वजन = वजन * 0.4535924' वजन को किलोग्राम में बदलता है ऊंचाई = ऊंचाई * ऊंचाई 'वर्ग हेल्ग और इसे चर ऊंचाई में सहेजता है

यदि ((ऊंचाई <= 0) या (वजन <= 0)) तो 'अप्राकृतिक डेटा दर्ज नहीं किया गया है यह सुनिश्चित करने के लिए वैधता जांच क्लीनअप() MsgBox ("कृपया यथार्थवादी मान डालें") सब एंड से बाहर निकलें यदि

बीएमआई = वजन / ऊंचाई 'बीएमआई की गणना'

बीएमआई = प्रारूप (बीएमआई, "0.00") 'बीएमआई को दो दशमलव स्थान पर लिखता है txtresults. Text = बीएमआई' टेक्स्टबॉक्स में बीएमआई लिखता है

'बीएमआई के अनुसार स्थिति की गणना करता है'

यदि बीएमआई <18.5 तो 'आपके देश में स्थिति भिन्न हो सकती है'

txtcomment. Text = "आपका वजन कम है"

ElseIf ((BMI>= 18.5) और (BMI 24.9) और (BMI 29.9 फिर txtcomment. Text = "आप मोटे हैं, कृपया सावधानी बरतें" समाप्त हो तो

अंत उप

निजी उप btnexit_Click(Sender As System. Object, e As System. EventArgs) btnexit. Click को हैंडल करता है

बंद करें () 'बाहर निकलने के लिए फ़ंक्शन एंड सबनिजी उप btnclear_Click (प्रेषक के रूप में System. Object, e As System. EventArgs) btnclear को संभालता है। सफाई पर क्लिक करें () 'सब रूटीन क्लीनअप को कॉल करता है एंड सब सब क्लीनअप ()' प्रत्येक टेक्स्टबॉक्स txtcomment को साफ़ करता है। टेक्स्ट = "" txtheight. Clear() txtweight. Clear() txtresults. Text = "" txtheight. Focus() एंड सब

निजी उप btnabout_Click(Sender As System. Object, e As System. EventArgs) btnabout. Click को हैंडल करता है

'यह एक अलग संदेश बॉक्स में दिखाया गया संदेश है'

'आप नीचे "=" चिह्न के बाद अपनी इच्छानुसार कोई भी चीज़ जोड़ सकते हैं लेकिन यह दोहरे अल्पविराम ("") के बीच होना चाहिए

स्ट्रिंग के रूप में मंद संदेश = "यह सॉफ़्टवेयर स्वास्थ्य पर सामाजिक जागरूकता के लिए उमैर बिन आसिम द्वारा बनाया गया था।" & vbNewLine & "मोटे लोगों की संख्या में विश्वव्यापी वृद्धि ने एक स्वास्थ्य दहशत को जन्म दिया है क्योंकि हृदय रोगों और मधुमेह के मामलों की संख्या बढ़ रही है।" & vbNewLine & "इन सबके बावजूद बड़ी संख्या में लोग यह नहीं जानते कि वे मोटे हैं या नहीं या इससे कैसे निपटें।" & vbNewLine & "उसके जवाब में हमने आपका बीएमआई निर्धारित करने के लिए एक कैलकुलेटर बनाया है और आप मोटे हैं या नहीं।" & vbNewLine & "ये मानक अमेरिकन हार्ट एसोसिएशन के अनुसार हैं।"

संदेश बॉक्स (संदेश)

एंड सब प्राइवेट सब btnhlp_Click(sender As System. Object, e As System. EventArgs) हैंडल btnhlp। क्लिक करें 'कोई भी संदेश जो आप "" के बीच में लिखना चाहते हैं, वह अभी के लिए खाली है डिम तत्काल_मैसेज स्ट्रिंग = "" के रूप में

संदेश बॉक्स (तत्काल_संदेश)

अंत उपअंत वर्ग

चरण 6: बधाई हो आपकी प्रोग्रामिंग पूरी हो गई है

अब आप अपने बीएमआई की गणना कर सकते हैं और आप अपने सॉफ़्टवेयर को अपनी पसंद के अनुसार संपादित करना जानते हैं

सॉफ्टवेयर चलाने के लिए ऊपरी पट्टी पर हरे तीर को दबाएं या F5 का आनंद लें!

आपकी सुविधा के लिए हमने अपना कैलकुलेटर (रेडी मेड) के साथ-साथ प्रोग्रामिंग (एक.txt फ़ाइल में) पोस्ट किया है।