BMI тооцоолуур: 6 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:03

Намайг Умайр Бин Асим гэдэг. Би бол Global Perspective -ийн оюутан бөгөөд O түвшингээ хийж байна. Энэхүү төсөл нь миний болон манай ангийн хүүхдүүдийн хийж буй сурталчилгааны ажлын нэг хэсэг юм. Бид таргалалтыг дэлхий даяар өсөн нэмэгдэж буй асуудал гэж хүлээн зөвшөөрч, нийгмийн томоохон гамшиг болохоос өмнө таргалалттай тэмцэхийг хүмүүст уриалж байна. Энэхүү төсөл нь бидний олон сурталчилгааны кампанит ажлын нэг юм.

BMI тооцоолуур нь хүмүүсийн биеийн жингийн индексийг тооцоолох, таргалсан эсэхээ тодорхойлоход илүү хялбар болгодог. Бидний хийсэн тооцоолуур нь Америкийн эрүүл мэндийн холбооны стандартад нийцсэн болно. Үүнийг нийтлэхийн зорилго нь хүмүүст зөвхөн тооны машин хийхээс гадна үндэсний стандартад нийцүүлэн тооцоолуураа өөрчлөх боломжийг хүмүүст олгох явдал юм.

Алхам 1: Шинэ Visual Studio төсөл үүсгэх

1. нээлттэй харааны студи
2. шинэ төсөл дээр дарна уу
3. бэлэвсэн эмэгтэйг өргөдөл хэлбэрээр сонгоно уу
4. төслийн нэрийг "BMI тооцоолуур" болгон өөрчлөх
5. төслийг хадгалаад байршлыг санаарай (би үүнийг тусдаа диск дээр хадгалсан)

Алхам 2: Хоёр хэсэг

Visual студийн цонхонд програм үүсгэх хоёр хэсэг байдаг

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

энд та GUI үүсгэж болно

2) Form1.vb

энд та програмаа бичээрэй

та тэдгээрийг сонгох замаар табуудыг сонгож болно

Алхам 3: Интерфэйсийг зохион бүтээх (шошго ба текстийн хайрцаг)

Энэ үе шатанд та график хэрэглэгчийн интерфэйсийг зохион бүтээх хэрэгтэй.

1. боломжтой багажны хайрцгаас шошго сонгох (хэрэв та хэрэгслийн хайрцгийг олж чадахгүй бол Ctrl+Alt+x дарна уу)
2. шошгыг маягт руу чирж, баруун талд нь байрлуулна уу. бидэнд гурван шошго хэрэгтэй
3. зүүн талын шошгыг байрлуул
4. шошгон дээр дарж шинж чанаруудын хувьд Autosize -ийг FALSE болгож өөрчилснөөр та шошгоны хэмжээг өөрчлөх боломжтой болно.

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 As System. EventArgs байдлаар илгээгч) btncalc. Click -ийг зохицуулдаг.

Бүсийн өндрийг Double = 0 'гэж нэрлэнэ.

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'txtheight текст хайрцгаас авсан тоонуудыг уншиж, харгалзах хувьсагч руу хадгална 0.0254 'өндрийг метр жин болгон хувиргадаг = жин * 0.4535924' жинг килограмм болгон хувиргадаг өндөр = өндөр * өндөр 'квадратыг helght болгож хувьсах өндөр болгон хадгална.

Хэрэв ((өндөр <= 0) Эсвэл (жин <= 0)) Дараа нь байгалийн бус өгөгдлийг оруулаагүй эсэхийг баталгаажуулахын тулд хүчин төгөлдөр байдлыг шалгах () MsgBox ("бодит утгуудыг оруулна уу") Дэд төгсгөлөөс гарах бол

BMI = жин / өндрийн BMI тооцоолол

BMI = Формат (BMI, "0.00") 'нь BMI -ийг хоёр аравтын бутархай орон руу бичдэг txttresults. Text = BMI' нь BMI -ийг текст хайрцагт бичдэг txtresults txtcomment.

BMI -ийн дагуу нөхцөлийг тооцоолно

Хэрэв биеийн жингийн индекс <18.5 бол таны орны нөхцөл өөр байж болно

txtcomment. Text = "та жингийн дор байна"

ElseIf ((BMI> = 18.5) ба (BMI 24.9) ба (BMI 29.9 Дараа нь txtcomment. Text = "та тарган байна, урьдчилан сэргийлэх арга хэмжээ авна уу" Төгсгөл

Дэд хэсгийг дуусгах

Хувийн дэд btnexit_Click (илгээгч байдлаар System. Object, e As System. EventArgs) btnexit зохицуулдаг. Click

End Sub -аас гарахын тулд Close () функцХувийн дэд btnclear_Click (илгээгч байдлаар System. Object, e As System. EventArgs) btnclear -ийг зохицуулдаг. Cleanup () 'дуудлага нь sub routine cleanup End Sub Sub cleanup ()' текст хайрцаг бүрийг цэвэрлэнэ txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () Төгсгөл дэд

Хувийн дэд btnabout_Click (илгээгч байдлаар System. Object, e As System. EventArgs) btnabout зохицуулдаг. Click

'Энэ бол тусдаа msgbox дээр харуулсан зурвас юм

'Та хүссэн зүйлээ доорх "=" тэмдгийн дараа нэмж болно, гэхдээ энэ нь давхар таслал ("") хооронд байх ёстой

String = "Энэхүү програм хангамжийг Умайр Бин Асим эрүүл мэндийн талаар нийгмийн ухамсарыг ухамсарлах зорилгоор бүтээсэн." & vbNewLine & "Дэлхий даяар таргалалттай хүмүүсийн тоо нэмэгдэж байгаа нь зүрхний өвчин, чихрийн шижин өвчний тохиолдлын тоо нэмэгдэж байгаа тул эрүүл мэндийн үймээнийг өдөөсөн." & vbNewLine & "Энэ бүхнийг үл харгалзан олон тооны хүмүүс таргалсан эсэхээ мэдэхгүй эсвэл үүнийг хэрхэн даван туулахаа мэдэхгүй байна." & vbNewLine & "Үүний хариуд бид таны биеийн жингийн индекс, таргалалттай эсэхээ тодорхойлохын тулд тооцоолуур хийсэн болно." & vbNewLine & "Эдгээр стандартууд нь Америкийн Зүрхний Ассоциацийн дагуу байна."

MsgBox (мессеж)

Дэд дэд хувийн дэд хэсгийг дуусгах btnhlp_Click (System. Object, e As System. EventArgs) btnhlp дарна 'дарна уу. "" "Хооронд бичихийг хүссэн зурвасаа оруулна уу, энэ нь хоосон байна.

MsgBox (яаралтай_мессеж)

Дэд хэсгийг дуусгахАнгийн төгсгөл

Алхам 6: Прогамминг хийгдэж байгаад баяр хүргэе

одоо та BMI -ээ тооцоолж, програм хангамжаа өөрийн үзэмжээр хэрхэн яаж засварлахаа мэддэг боллоо

Програмыг тоглуулахын тулд дээд баар дээрх ногоон сумыг дарна уу эсвэл F5 дарна уу!

Таны тав тухтай байдлыг хангах үүднээс бид өөрсдийн тооцоолуур (бэлэн), програмчлал (.txt файлд) байршуулсан болно.