BMI калькуляторы: 6 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:25

Менің атым Умайр бин Асим. Мен Global Perspective студентімін, O деңгейімді орындаймын. Бұл жоба мен және менің сыныптастарым жүргізіп жатқан ақпараттық науқанның бір бөлігі. Біз семіруді бүкіл әлемде көтеріліп келе жатқан проблема деп білеміз және адамдарды үлкен әлеуметтік апатқа әкелмес бұрын семіздікпен күресуге шақырамыз. Бұл жоба біздің көптеген ақпараттық науқанның бірі.

BMI калькуляторы адамдарға дене салмағының индексін есептеуге және олардың семіздікке шалдыққанын анықтауға мүмкіндік береді. Біз жасаған калькулятор американдық денсаулық қауымдастығының стандарттарына сәйкес келеді. Бұл хабарламаны жариялаудағы мақсат - адамдарға тек калькулятор жасап қана қоймай, сонымен қатар адамдарға ұлттық стандартқа сәйкес калькуляторларды өзгертуге мүмкіндік беру.

1 -қадам: Жаңа Visual Studio жобасын құру

1. ашық визуалды студия
2. жаңа жобаны нұқыңыз
3. өтініш бойынша жесірлерді таңдаңыз
4. жобаның атын BMI калькуляторы деп өзгертіңіз
5. жобаны сақтаңыз және орналасқан жерді есте сақтаңыз (мен оны бөлек дискіде сақтадым)

2 -қадам: екі бөлім

қосымшада Visual Studio терезелерінде екі бөлім бар

1) Form1.vb [Дизайн]

мұнда сіз GUI жасайсыз

2) Form1.vb

мұнда сіз өз бағдарламаңызды жазасыз

қойындыларды таңдау арқылы оларды таңдауға болады

3 -қадам: интерфейсті жобалау (жапсырмалар мен мәтіндік жәшіктер)

Бұл қадамда графикалық пайдаланушы интерфейсін жобалау қажет.

1. қол жетімді құралдар тақтасынан белгілерді таңдаңыз (егер құралдар тақтасын таба алмасаңыз, Ctrl+Alt+x пернелерін басыңыз)
2. жапсырманы формаға апарып, оларды оң жаққа орналастырыңыз. бізге үш белгі қажет
3. жапсырмаларды сол жаққа орналастырыңыз
4. жапсырмаларды нұқыңыз және сипаттарда Автоматизацияны ЖАЛҒАН етіп өзгертіңіз, бұл сізге белгінің өлшемін өзгертуге мүмкіндік береді.

5. жапсырмаларды нұқыңыз және сипаттарда мәтінді тиісінше «биіктікке», «салмаққа», «сіздің BMI -ге» өзгертіңіз.

6. түс пен 3D әсері сияқты қасиеттердегі басқа параметрді өзгертуге болады.
7. құралдар тақтасынан үш мәтін ұясын сүйреп апарып, оларды сол жақ параллельге жапсырмаларға туралаңыз
8. мәтін ұясын нұқыңыз және сипаттарда атау параметрлерін «txtheight», «txtweight», «txtresults» етіп өзгертіңіз
9. түс пен 3D әсері сияқты қасиеттердегі басқа параметрді өзгертуге болады.
10. соңғы мәтіндік жәшікті жасаңыз және оны төменгі жағына туралаңыз, бұл мәтін ұяшығына «txtcomment» деп ат қойыңыз, бұл нәтижені BMI -дің негізінде береді, өйткені тек сандарды түсіну қиын болуы мүмкін.
11. атауды өзгерту өте маңызды, өйткені біз бұл мәтіндік жәшіктерді біздің бағдарламада шақыруға мәжбүр боламыз, егер сіз басқа атауды қоюды қаласаңыз, бағдарламада көрсетілген батырманың атын өзгертуіңіз керек. (есімдер менің бағдарламама сәйкес)

4 -қадам: интерфейсті жобалау (түймелер)

түймелерді құралдар тақтасынан сүйреп апарып, суретте көрсетілгендей туралау арқылы орналастырыңыз

түйме таңдалған кезде қасиеттердегі түйменің атауын өзгертіңіз, сіз мәтін параметрін де өзгерте аласыз.

• «BMI есептеңіз» мәтіні бар «btncalc» атауын жасаңыз
• «btnclear» батырмасының атауын жасаңыз, мәтіні «тазалау»
• «btnexit» батырмасының атауын жасаңыз, «шығу» мәтінімен
• «btnabout» атауын жасаңыз, мәтінмен «біз туралы біліңіз»
• «btnhlp» батырмасының атын жасаңыз, мәтінмен «көмек керек пе?» (мен мұны пайдаланған жоқпын және анықтама түймесін қосқыңыз келсе, ол бос қалды)

GUI пішініндегі түймелерді өзіңіз қалағандай туралаңыз

атауды өзгерту өте маңызды, өйткені біз бұл батырмаларды біздің бағдарламада шақыруға мәжбүр боламыз, егер сіз басқа атауды қоюды қаласаңыз, бағдарламада көрсетілген батырманың атын өзгертуіңіз керек. (есімдер менің бағдарламама сәйкес)

5 -қадам: Калькуляторды бағдарламалау

Ашық сынып формасы1

Жеке ішкі btncalc_Click (System. Object ретінде жіберуші, e System. EventArgs ретінде) btncalc. Click өңдейді

Dim биіктігі Double = 0 'деп аталады биіктік деп аталатын айнымалы мәнді қосарланған салмақ Double = 0' деп аталатын салмақты Dim BMI Double = 0 'ретінде BMI деп аталатын айнымалы жасайды

txtresults. Text = «»

height = Double. Parse (txtheight. Text) 'txtheight мәтін жолағынан сандарды оқиды және оны сәйкес салмаққа сақтайды = Double. Parse (txtweight. Text)' мәтіндік терезеден цифрларды оқиды және оны тиісті биіктік = биіктікте сақтайды * 0.0254 'биіктігі метрге салмақ түрлендіреді = салмақ * 0.4535924' салмағы килограмм биіктігі = биіктігі * биіктігі 'квадратқа айналады және оны айнымалы биіктікке сақтайды

Егер ((биіктік <= 0) Немесе (салмақ <= 0)) Содан кейін табиғи емес деректердің енгізілмеуін тексеру үшін жарамдылықты тексеру () MsgBox («нақты мәндерді енгізіңіз») Қосымша соңынан шығу

BMI = салмақ / биіктік бойынша BMI есебі

BMI = Пішім (BMI, «0.00») 'BMI екі ондық таңбалы нүктеге жазады txtresults

BMI бойынша жағдайды есептейді

Егер BMI <18.5 болса, онда жағдай сіздің елде әр түрлі болуы мүмкін

txtcomment. Text = «сіз салмақсыз»

ElseIf ((BMI> = 18.5) және (BMI 24.9) және (BMI 29.9) Содан кейін txtcomment. Text = «сіз семізсіз, сақтық шараларын қолданыңыз» Соңы

Аяқтау

Жеке қосалқы btnexit_Click (жіберуші ретінде System. Object, e ретінде System. EventArgs) btnexit. Click өңдейді.

End Sub бөлімінен шығу үшін Close () функциясыЖеке қосалқы btnclear_Click (System. Object ретінде жіберуші, e As System. EventArgs) btnclear. Click cleanup () 'шақырады қосалқы тазалауды шақырады Sub Sub Sub cleanup ()' әрбір мәтіндік жәшікті тазалайды txtcomment. Text = «» txtheight. Clear () txtweight. Clear () txtresults. Text = «» txtheight. Focus () End Sub

Жеке қосалқы btnabout_Click (System. Object ретінде жіберуші, e As System. EventArgs ретінде) btnabout өңдейді. Click

'бұл бөлек msgbox -те көрсетілген хабар

'сіз қалаған нәрсені төмендегі «=» белгісінен кейін қоса аласыз, бірақ ол қос үтірдің арасында болуы керек («»)

String = Diming хабарламасы «Бұл бағдарламалық қамтамасыз етуді Умайр Бин Асим денсаулыққа әлеуметтік ақпараттандыру үшін жасаған.» & vbNewLine & «Дүниежүзілік семіздікке шалдыққандардың санының артуы денсаулыққа дүрбелең туғызды, себебі жүрек аурулары мен қант диабетімен ауыратындардың саны өсуде.» & vbNewLine & «Осының бәріне қарамастан, көптеген адамдар семіздікке шалдыққанын немесе емделмейтінін білмейді. & vbNewLine & «Біз сіздің BMI -ді анықтау үшін калькулятор құрғанымызға жауап ретінде және сіз семіздікке шалдықпадыңыз ба.» & vbNewLine & «Бұл стандарттар американдық жүрек қауымдастығына сәйкес.»

MsgBox (хабар)

Бөлімшенің жеке қосалқы бөлімін аяқтау btnhlp_Click (System. Object ретінде жіберуші, e System. EventArgs ретінде) btnhlp.шығарыңыз '«арасында жазғыңыз келетін кез келген хабарды қосыңыз, ол бос» Dim_message ретінде String = «»

MsgBox (жедел_ хабар)

АяқтауСыныпты аяқтау

6 -қадам: Сіздің бағдарламаңыз аяқталғанын құттықтаймыз

енді сіз BMI есептей аласыз және сіз өзіңіздің қалауыңыз бойынша бағдарламалық жасақтаманы өңдеуді білесіз

Бағдарламалық қамтамасыз етуді ойнау үшін жоғарғы жолақтағы жасыл көрсеткіні басыңыз немесе F5 түймесін басыңыз!

Сізге ыңғайлы болу үшін біз жеке калькуляторды (дайын), сонымен қатар бағдарламалауды (.txt файлында) орналастырдық.