BMI Calculator: 6 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:41

Менин атым Умайр бин Асим. Мен 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 -кадам: Интерфейсти долбоорлоо (баскычтар)

баскычтарды инструменттер кутусунан сүйрөп барып, сүрөттө көрсөтүлгөндөй тегиздеп коюңуз

баскычы тандалганда, касиеттердеги баскычтын атын өзгөртүңүз, жана сиз тексттин жөндөөсүн да өзгөртө аласыз.

• "btncalc" аталышын түзүү, "BMI эсептөө" тексти менен
• "btnclear" аталышын түзүү, "тазалоо" тексти менен
• "btnexit" баскычын түзүп, "чыгуу" тексти менен
• "btnabout" аталышын түзүү, "биз жөнүндө билүү" тексти менен
• "btnhlp" баскычын түзүп, "жардам керекпи?" тексти менен (мен муну колдонгон жокмун жана жардам баскычын кошкуңуз келсе бекер калды)

GUI формасындагы баскычтарды өзүңүз каалагандай тегиздеңиз

атын өзгөртүү өтө маанилүү, анткени биз бул баскычтарды биздин программада чакырышыбыз керек болот, эгер сиз башка ысымды коюуну кааласаңыз, анда программада айтылган баскычтын атын да өзгөртүшүңүз керек. (аттары менин программама ылайык)

5 -кадам: Сиздин эсептегичти программалоо

Коомдук класстын формасы1

Жеке Sub btncalc_Click (System. Object катары жөнөтүүчү, e As System. EventArgs) btncalc. Click туткалары

Dim бийиктиги Double = 0 'деп аталган бийиктиктин өзгөрмөсүн түзөт Dim салмагы Double = 0' деп аталган өзгөрмөнү жаратат Dim BMI Double = 0 'BMI деп аталган өзгөрмөнү жаратат

txtresults. Text = ""

бийиктик = Double. Parse (txtheight. Text) 'txtheight текст кутучасынан сандарды окуйт жана аны тиешелүү өзгөрмөлүү салмакка сактайт = Double. Parse (txtweight. Text)' текст кутусунан сандарды окуйт txtweight жана аны тиешелүү өзгөрмөгө сактайт бийиктик = бийиктик * 0.0254 'бийиктигин метрге салмакка айлантат = салмагы * 0.4535924' салмагын килограммга айландырат = бийиктиги * бийиктиги 'квадрат болуп саналат жана аны өзгөрүлмө бийиктикке сактайт

Эгерде ((бийиктиги <= 0) Же (салмагы <= 0)) Анда "табигый эмес маалыматтардын тазалыгы киргизилбешин текшерүү үчүн" жарактуулукту текшерүү () MsgBox ("реалдуу баалуулуктарды киргизиңиз") Sub End Endтен чыгуу

BMI = салмагы / бою 'BMI эсептөө

BMI = Формат (BMI, "0.00") 'BMIди эки ондук чекитке жазат txtresults. Text = BMI' BMI текст кутусуна жазат txtresults txtcomment. Text = "" ', маалымат киргизүүгө уруксат берүү үчүн текст кутусунун комментарийин бошотот.

BMIге ылайык абалды эсептейт

Эгерде BMI <18.5 Анда 'абалы сиздин өлкөдө ар кандай болушу мүмкүн

txtcomment. Text = "сиз салмак астындасыз"

ElseIf ((BMI> = 18.5) Жана (BMI 24.9) Жана (BMI 29.9 Андан кийин txtcomment. Text = "сиз семирип кеттиңиз, сактык чараларын көрүңүз" Соңунда

Sub Sub

Жеке Sub btnexit_Click (System. Object катары жөнөтүүчү, e As System. EventArgs) btnexit. Clickти иштетет

End Subтан чыгуу үчүн Close () функциясыЖеке Sub btnclear_Click (System. Object катары, e As System. EventArgs) btnclear. Click тазалоо () 'чакырып, күнүмдүк тазалоо End Sub Sub cleanup ()' ар бир текст кутусун тазалайт txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Жеке Sub btnabout_Click (System. Object катары жөнөтүүчү, e As System. EventArgs) btnabout. Clickти иштетет.

Бул өзүнчө msgboxто көрсөтүлгөн билдирүү

'сиз каалаган нерсени төмөндөгү "=" белгисинен кийин кошо аласыз, бирок ал эки үтүрдүн ортосунда болушу керек ("")

String = "Бул программалык камсыздоону Умайр Бин Асим ден -соолукка социалдык маалымдуулук үчүн жасады." & vbNewLine & "Дүйнөлүк семирүүчүлөрдүн санынын көбөйүшү ден соолуктун дүрбөлөңүн пайда кылды, анткени жүрөк жана кант диабети менен ооругандардын саны өсүүдө." & vbNewLine & "Ушунун баарына карабай, көп сандаган адамдар семирип кетишкенин же ага каршы кантип күрөшүүнү билишпейт." & vbNewLine & "Буга биз сиздин BMIди аныктоо үчүн жана сиз семирип кеткениңизди аныктоо үчүн калкулятор жасадык." & vbNewLine & "Бул стандарттар Америка Жүрөк Ассоциациясына ылайык."

MsgBox (билдирүү)

End Sub Private Sub btnhlp_Click (System. Object катары, e System. EventArgs катары жөнөтүүчү) btnhlp. Click'ке жазгыңыз келсе, "" 'арасына жазгыңыз келген билдирүүнү кошуңуз, ал азырынча Dim Emergency_message катары String = ""

MsgBox (шашылыш_кабар)

Sub SubКласс бүтүрүү

6 -кадам: Куттуктайбыз, сиздин прогаммаңыз бүттү

Эми сиз BMIди эсептей аласыз жана программаңызды каалаганыңыздай кантип түзөтүүнү билесиз

программалык камсыздоону ойноо үчүн үстүнкү тилкедеги жашыл жебени басыңыз же F5 баскычын басыңыз!

Сиздин ыңгайлуулугуңуз үчүн биз өзүбүздүн эсептегичти (даяр), ошондой эле программалоону (.txt файлында) жайгаштырдык