BMI ካልኩሌተር 6 ደረጃዎች

2024 ደራሲ ደራሲ: John Day | [email protected]. ለመጨረሻ ጊዜ የተሻሻለው: 2024-01-30 07:32

ስሜ ዑመር ቢን አሲም እባላለሁ። እኔ የዓለም ደረጃ ተማሪ ነኝ ፣ የእኔን ደረጃዎች እሠራለሁ። ይህ ፕሮጀክት እኔ እና የክፍል ጓደኞቼ አሁን እያደረግነው ባለው የግንዛቤ ማስጨበጫ ዘመቻ አካል ነው። ከመጠን በላይ ውፍረት በዓለም ዙሪያ እየጨመረ የመጣ ችግር እንደሆነ እንገነዘባለን እናም ሰዎች ወደ ትልቅ ማህበራዊ አደጋ ከመምጣታቸው በፊት ውፍረትን እንዲታገሉ እያበረታታን ነው። ይህ ፕሮጀክት ከብዙ የግንዛቤ ዘመቻዎቻችን አንዱ ነው።

ቢኤምአይ ካልኩሌተር ፣ ሰዎች የሰውነታቸውን የጅምላ መረጃ ጠቋሚ በማስላት እና ከመጠን በላይ ወፍራም መሆናቸውን ወይም አለመሆኑን ለመወሰን የበለጠ ቀላል እንዲሆንላቸው ነው። እኛ የሠራነው ካልኩሌተር በአሜሪካ የጤና ማህበር ደረጃዎች ውስጥ ተቀምጧል። ይህንን የመለጠፍ ዓላማ ሰዎች ካልኩሌተር እንዲሠሩ ብቻ ሳይሆን ሰዎች ብሄራዊ መመዘኛቸው ወደሆነበት ሁሉ የሂሳብ ስሌቶቻቸውን እንዲያስተካክሉ ለማስቻል ነው።

ደረጃ 1 አዲስ የእይታ ስቱዲዮ ፕሮጀክት መፍጠር

1. ክፍት የእይታ ስቱዲዮ
2. በአዲሱ ፕሮጀክት ላይ ጠቅ ያድርጉ
3. የመበለቶችን ቅጽ ማመልከቻ ይምረጡ
4. ፕሮጀክቱን ወደ “ቢኤምአይ ካልኩሌተር” እንደገና ይሰይሙት
5. ፕሮጀክቱን ያስቀምጡ እና ቦታውን ያስታውሱ (በተለየ ድራይቭ ውስጥ አስቀምጫለሁ)

ደረጃ 2 - ሁለት ክፍሎች

በእይታ ስቱዲዮ መስኮቶች ውስጥ ሁለት ክፍሎች አሉ ማመልከቻ

1) ቅጽ1.vb [ንድፍ]

እዚህ GUI ን ይፈጥራሉ

2) ቅፅ 1. ቁ

እዚህ ውስጥ የእርስዎን ፕሮግራም ይጽፋሉ

በእነሱ ላይ በመምረጥ ትሮችን መምረጥ ይችላሉ

ደረጃ 3 - በይነገጽን ይሳሉ (መለያዎች እና የጽሑፍ ሳጥኖች)

በዚህ ደረጃ የግራፊክስ የተጠቃሚ በይነገጽን ዲዛይን ማድረግ ያስፈልግዎታል።

1. ከመሣሪያ ሳጥኑ ውስጥ ስያሜዎችን ይምረጡ (የመሳሪያ ሳጥኑን ማግኘት ካልቻሉ Ctrl+Alt+x ን ይጫኑ)
2. መለያውን ወደ ቅጹ ይጎትቱ እና በቀኝ በኩል ያስተካክሏቸው። ሶስት መለያዎች ያስፈልጉናል
3. በግራ በኩል መሰየሚያዎቹን ያዘጋጁ
4. በመለያዎቹ ላይ ጠቅ ያድርጉ እና በባህሪያቱ ውስጥ ራስ -ሰር መጠንን ወደ ሐሰት ይለውጡ ፣ ይህ የመለያውን መጠን እንዲቀይሩ ያስችልዎታል።
5. በመለያዎቹ ላይ ጠቅ ያድርጉ እና በንብረቶቹ ውስጥ ጽሑፉን በቅደም ተከተል ወደ “ቁመት” ፣ “ክብደት” ፣ “የእርስዎ BMI” ይለውጡ።
6. እንዲሁም እንደ ቀለም እና 3 -ልኬት ባሉ ንብረቶች ውስጥ ሌላ ቅንብርን መለወጥ ይችላሉ።
7. ከመሳሪያ ሳጥኑ ሶስት የጽሑፍ ሳጥኖችን ጎትተው በግራ ትይዩ ከመለያዎቹ ጋር ያስተካክሏቸው
8. በጽሑፍ ሳጥኑ ላይ ጠቅ ያድርጉ እና በባህሪያቱ ውስጥ የስም ቅንብሮችን ወደ “txtheight” ፣ “txtweight” ፣ “txtresults” ይለውጡ
9. እንዲሁም እንደ ቀለም እና 3 -ልኬት ባሉ ንብረቶች ውስጥ ሌላ ቅንብርን መለወጥ ይችላሉ።
10. የመጨረሻ የጽሑፍ ሳጥን ይፍጠሩ እና ከታች ያስተካክሉት ፣ ይህንን የጽሑፍ ሳጥን “txtcomment” ብለው ይሰይሙ ፣ ከቁጥሮች ብቻ መረዳት አስቸጋሪ ሊሆን ስለሚችል ይህ በሰዎች BMI መሠረት ውጤትን ይሰጣል።
11. በፕሮግራማችን ውስጥ እነዚህን የጽሑፍ ሳጥኖች መጥራት ስለሚኖርብን ስሙን መለወጥ አስፈላጊ ነው ፣ ሌላ ማንኛውንም ስም ማስቀመጥ ከፈለጉ በፕሮግራሙ ውስጥ የተጠቀሰውን ቁልፍ ስም መቀየር አለብዎት። (ስሞቹ በፕሮግራሜ መሠረት ናቸው)

ደረጃ 4 በይነገጽን (አዝራሮች) ይንደፉ

አዝራሮችን ከመሳሪያ ሳጥኑ በመጎተት እና በስዕሉ ላይ እንደሚታየው በማስተካከል

አዝራሩ ሲመረጥ በባህሪያቱ ውስጥ ባለው አዝራር ላይ ስሙን ይለውጡ ፣ እና እርስዎም የጽሑፍ ቅንብሩን መለወጥ ይችላሉ።

• “ቢኤምአይ አስሉ” ከሚለው ጽሑፍ ጋር “btncalc” የሚለውን የአዝራር ስም ይፍጠሩ።
• “ግልጽ” በሚለው ጽሑፍ የአዝራር ስም ይፍጠሩ
• “btnexit” የሚለውን የአዝራር ስም ይፍጠሩ ፣ ከጽሑፍ “መውጫ” ጋር
• “ስለ እኛ ተማር” በሚለው ጽሑፍ “የአባት” የሚለውን የአዝራር ስም ይፍጠሩ።
• በጽሑፍ «እገዛ ይፈልጋሉ?» የሚል የአዝራር ስም «btnhlp» ይፍጠሩ። (ይህንን አልተጠቀምኩም እና የእገዛ አዝራርን ማከል ከፈለጉ ነፃ ሆኖ ቀርቷል)

እርስዎ በሚፈልጉት መሠረት በ GUI ቅጽ ውስጥ ያሉትን አዝራሮች ያስተካክሉ

በፕሮግራማችን ውስጥ እነዚህን አዝራሮች መጥራት ስላለብን ስሙን መለወጥ አስፈላጊ ነው ፣ ሌላ ማንኛውንም ስም ማስቀመጥ ከፈለጉ በፕሮግራሙ ውስጥ የተጠቀሰውን ቁልፍ ስም መቀየር አለብዎት። (ስሞቹ በፕሮግራሜ መሠረት ናቸው)

ደረጃ 5 - የሂሳብ ማሽንዎን ፕሮግራም ማድረግ

የህዝብ መደብ ቅጽ 1

የግል ንዑስ btncalc_Click (ላኪ እንደ ስርዓት.ኦብጀክት ፣ ሠ እንደ ስርዓት ።EventArgs) መያዣዎች btncalc. Click

የደበዘዘ ቁመት እንደ ድርብ = 0 'ተለዋዋጭ የሚባል ቁመት ቁመት ይፈጥራል

txtresults. Text = ""

ቁመት = Double. Parse (txtheight. Text) '' ቁጥሮችን ከጽሑፍ ሳጥን txtheight አንብቦ ወደሚለወጠው ተለዋዋጭ ክብደት = Double. Parse (txtweight. Text) '' ቁጥሮችን ከጽሑፍ ሳጥን txtweight አንብቦ ወደሚለዋወጥ ቁመት = ቁመት * ያስቀምጠዋል 0.0254 'ቁመትን ወደ ሜትሮች ክብደት = ክብደት * 0.4535924' ክብደትን ወደ ኪሎግራም ቁመት = ቁመት * ቁመት 'ካሬዎች ሄልት ቀይሮ ወደ ተለዋዋጭ ቁመት ያስቀምጠዋል

((ቁመት <= 0) ወይም (ክብደት <= 0)) ከዚያ ከተፈጥሮ ውጭ የሆነ ውሂብ ወደ ማጽዳቱ አለመግባቱን ለማረጋገጥ ‹ትክክለኛነት ማረጋገጫ› (MsgBox (“እባክዎን ተጨባጭ እሴቶችን ያስገቡ”) ንዑስ መጨረሻ ከሆነ ይውጡ

ቢኤምአይ = ክብደት / ቁመት 'የ BMI ስሌት

ቢኤምአይ = ቅርጸት (ቢኤምአይ ፣ “0.00”) ‘ቢኤምአይ ወደ ሁለት የአስርዮሽ ቦታ txtresults. ጽሁፍ = ቢኤምአይ BMI ን በጽሑፍ ሳጥን txtresults txtcomment ውስጥ ይጽፋል።

በቢሚአይ መሠረት ሁኔታውን ያሰላል

ቢኤምአይ <18.5 ከሆነ ‹ሁኔታ በአገርዎ ሊለያይ ይችላል

txtcomment. Text = "ከክብደት በታች ነዎት"

ElseIf ((BMI> = 18.5) እና (ቢኤምአይ 24.9) እና (ቢኤምአይ 29.9 ከዚያም txtcomment. Text = "ወፍራም ነዎት ፣ እባክዎን ጥንቃቄዎችን ያድርጉ" ካለ

ንዑስ መጨረሻ

የግል ንዑስ btnexit_Click (ላኪ እንደ ስርዓት.ኦብጀክት ፣ ሠ እንደ ስርዓት።

ለመዝጋት () 'ተግባር ለመውጣት መጨረሻ ንዑስየግል ንዑስ btnclear_Click (ላኪ እንደ ሲስተም. ዓላማ ፣ ሠ እንደ ስርዓት ።EventArgs) እጀታ btnclear. Click cleanup () 'ጥሪ ንዑስ መደበኛ ጽዳት End Sub Sub cleanup ()' እያንዳንዱ የጽሑፍ ሳጥን txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

የግል ንዑስ btnabout_Click (ላኪ እንደ ስርዓት.ኦብጀክት ፣ ሠ እንደ ስርዓት።

'ይህ በተለየ የመልዕክት ማውጫ ውስጥ የሚታየው መልእክት ነው

ከዚህ በታች ከ "=" ምልክት በኋላ የሚፈልጉትን ማንኛውንም ነገር ማከል ይችላሉ ፣ ግን በሁለት ኮማዎች (””) መካከል መሆን አለበት

Dim message As String = "ይህ ሶፍትዌር በጤና ላይ ለማህበራዊ ግንዛቤ ሲባል በኡመር ቢን አሲም የተሰራ ነው።" & vbNewLine & "የልብ ሕመሞች እና የስኳር በሽታዎች ቁጥር እየጨመረ በመምጣቱ በወፍራም ሰዎች ቁጥር ላይ አንድ ዓለም አቀፍ ጭማሪ የጤና ሽብርን አስነስቷል።" & vbNewLine & “ይህ ሁሉ ቢሆንም ብዙ ሰዎች ከመጠን በላይ ወፍራም መሆናቸውን ወይም እንዴት መቋቋም እንደሚችሉ አያውቁም።” & vbNewLine & "እኛ የእርስዎን BMI ለመወሰን እና እርስዎ ከመጠን በላይ ወፍራም መሆንዎን ወይም አለመሆኑን ለመወሰን እኛ ካልኩሌተር አድርገናል።" & vbNewLine & "እነዚህ መመዘኛዎች በአሜሪካ የልብ ማህበር መሠረት ናቸው።"

MsgBox (መልእክት)

ጨርስ ንዑስ ንዑስ ንዑስ btnhlp_Click (ላኪ እንደ ሲስተም ኦብጀክት ፣ ኢ እንደ ሲስተም. EventArgs) መያዣዎች btnhlp. Click ‹በ‹ ‹›› መካከል ለመጻፍ የሚፈልጉትን ማንኛውንም መልእክት ያክሉ አሁን ባዶ ነው ዲም አስቸኳይ_መልእክት እንደ ሕብረቁምፊ =””

MsgBox (አስቸኳይ_መልዕክት)

ንዑስ መጨረሻየመጨረሻ ክፍል

ደረጃ 6 - እንኳን ደስ አለዎት የእርስዎ ፕሮግራም ተከናውኗል

አሁን የእርስዎን ቢኤምአይ ማስላት ይችላሉ እና የእርስዎን ሶፍትዌር እንዴት እንደሚወዱት ያውቃሉ

ሶፍትዌሩን ለማጫወት በላይኛው አሞሌ ላይ አረንጓዴውን ቀስት ይጫኑ ወይም በቀላሉ F5 ን ይደሰቱ!

ለእርስዎ ምቾት የራሳችንን ካልኩሌተር (ዝግጁ የተሰራ) እንዲሁም ፕሮግራሙን (በ.txt ፋይል ውስጥ) ለጥፈናል።