BMI kalkulyatori: 6 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:26

Mening ismim Umir ibn Osim. Men Global Perspektiv talabasiman, O darajalarimni bajaraman. Bu loyiha men va mening sinfdoshlarim olib borayotgan targ'ibot kampaniyasining bir qismi. Biz semirishni butun dunyoda o'sib borayotgan muammo sifatida tan olamiz va odamlarni katta ijtimoiy falokatga olib kelmasdan oldin semizlikka qarshi kurashishga undaymiz. Bu loyiha bizning ko'p tushuntirish kampaniyalarimizdan biridir.

BMI kalkulyatori odamlarga tana massasi indeksini hisoblashda va semirish yoki yo'qligini aniqlashda qulaylik yaratadi. Biz yaratgan kalkulyator Amerika sog'liqni saqlash assotsiatsiyasi standartlariga mos keladi. Bu xabarni joylashtirishdan maqsad, odamlarga nafaqat kalkulyator yasashga, balki o'z kalkulyatorlarini milliy standartlariga mos ravishda o'zgartirishga ruxsat berishdir.

1 -qadam: Yangi Visual Studio loyihasini yaratish

1. ochiq vizual studiya
2. yangi loyihani bosing
3. ariza uchun beva ayollarni tanlang
4. loyihani "BMI kalkulyatori" ga o'zgartiring.
5. loyihani saqlang va joyni eslang (men uni alohida diskda saqladim)

2 -qadam: ikkita bo'lim

Visual studio oynalarida ikkita bo'lim mavjud

1) Form1.vb [Dizayn]

bu erda siz GUI yaratasiz

2) Form1.vb

bu erda siz o'z dasturingizni yozasiz

yorliqlarni tanlash orqali ularni tanlashingiz mumkin

3 -qadam: interfeysni loyihalash (yorliqlar va matn qutilari)

Ushbu bosqichda siz grafik foydalanuvchi interfeysini loyihalashingiz kerak.

1. mavjud asboblar qutisidan yorliqlarni tanlang (agar asboblar qutisini topa olmasangiz, Ctrl+Alt+x tugmalarini bosing)
2. belgini shaklga torting va ularni o'ng tomonga joylashtiring. bizga uchta belgi kerak
3. teglarni chap tomonga joylashtiring
4. yorliqlarni bosing va xususiyatlarda Avtomatik o'lchashni FALSE ga o'zgartiring, bu sizga belgining o'lchamini o'zgartirish imkonini beradi.

5. teglarni bosing va xususiyatlarni mos ravishda "balandlik", "vazn", "sizning BMI" ga o'zgartiring.

6. rang va 3D effekti kabi boshqa parametrlarni o'zgartirishingiz mumkin.
7. asboblar qutisidan uchta matn qutisini sudrab olib, ularni chapga teglar bilan parallel ravishda tekislang
8. matn qutisini bosing va xususiyatlarda ism sozlamalarini "txtheight", "txtweight", "txtresults" ga o'zgartiring.
9. rang va 3D effekti kabi boshqa parametrlarni o'zgartirishingiz mumkin.
10. Oxirgi matn qutisini yarating va uni pastda tekislang, bu matn qutisiga "txtcomment" deb nom bering, bu odamlarning BMI ko'rsatkichlari asosida natija beradi, chunki faqat raqamlardan tushunish qiyin bo'lishi mumkin.
11. Ismni o'zgartirish juda muhim, chunki biz ushbu matn qutilarini dasturimizda chaqirishga majbur bo'lamiz, agar siz boshqa ism qo'yishni xohlasangiz, dasturda ko'rsatilgan tugma nomini ham o'zgartirishingiz kerak. (ismlar mening dasturimga muvofiq)

4 -qadam: interfeysni loyihalash (tugmalar)

tugmachalarni asboblar panelidan sudrab olib, rasmda ko'rsatilgandek joylashtiring

tugma tanlangan vaqtda, xususiyatlar tugmachasining nomini o'zgartiring va siz matn sozlamasini ham o'zgartirishingiz mumkin.

• "BMIni hisoblash" yozuvi bilan "btncalc" tugmachasini yarating.
• "btnclear" tugmachasini yarating va "tozalash" yozuvi bilan
• "btnexit" tugmachasini yarating va "chiqish" yozuvi bilan
• "btnabout" tugmachasini yarating va "biz haqimizda bilib oling" yozuvi bilan.
• "btnhlp" tugmachasini yarating va "yordam kerakmi?" yozuvi bilan. (men buni ishlatmaganman va yordam tugmachasini qo'shmoqchi bo'lsangiz, u bepul qoldirilgan)

GUI shaklidagi tugmachalarni o'zingiz xohlagan tarzda tekislang

Ismni o'zgartirish juda muhim, chunki biz dasturda bu tugmalarni chaqirishimiz kerak bo'ladi, agar siz boshqa ism qo'yishni xohlasangiz, dasturda ko'rsatilgan tugma nomini ham o'zgartirishingiz kerak. (ismlar mening dasturimga muvofiq)

5 -qadam: Kalkulyatorni dasturlash

Ochiq dars shakli 1

Btncalc_Click shaxsiy sub (yuboruvchi System. Object sifatida, e System. EventArgs sifatida) btncalc. Click -ni boshqaradi.

Dim balandligi Double = 0 'sifatida balandlik deb nomlangan o'zgaruvchini yaratadi Dim og'irligi Double = 0' deb nomlangan o'zgaruvchi hosil qiladi Dim BMI Double = 0 'sifatida BMI nomli o'zgaruvchi yaratiladi

txtresults. Text = ""

balandlik = Double. Parse (txtheight. Text) 'txtheight matn qutisidan raqamlarni o'qiydi va uni tegishli o'zgaruvchiga saqlaydi = Double. Parse (txtweight. Text)' matn qutisidan raqamlarni o'qiydi va balandlik = balandlik * 0,0254 'balandlikni metrga aylantiradi = og'irlik * 0,4535924' vazni kilogrammga aylantiradi balandlik = balandlik * balandlik 'kvadratlar helght va uni o'zgaruvchan balandlikka saqlaydi.

Agar ((balandlik <= 0) Yoki (og'irlik <= 0)) "Tabiiy bo'lmagan ma'lumotlar kiritilmaganligini tekshirish uchun" haqiqiyligini tekshirish () MsgBox ("iltimos, real qiymatlarni kiriting") Sub Enddan Chiqish

BMI = vazn / balandlik ko'rsatkichi

BMI = Format (BMI, "0.00") 'BMIni ikkita kasrli txtresults -ga yozadi. Matn = BMI' BMI -ni matn qutisiga yozadi txtresults txtcomment. Text = "" "ma'lumotlarni kiritish uchun matn qutisiga sharhni bo'shatadi.

BMI bo'yicha holatni hisoblab chiqadi

Agar BMI <18.5 bo'lsa, bu holat sizning mamlakatingizda farq qilishi mumkin

txtcomment. Text = "siz og'irlikdasiz"

ElseIf ((BMI> = 18.5) Va (BMI 24.9) Va (BMI 29.9 Keyin txtcomment. Text = "siz semizsiz, ehtiyot choralarini ko'ring" Oxirida)

Sub tugatish

Btnexit_Click shaxsiy sub (yuboruvchi System. Object sifatida, e System. EventArgs sifatida) btnexit. Click -ni boshqaradi.

End Sub -dan chiqish uchun Close () funksiyasiShaxsiy sub btnclear_Click (yuboruvchi sifatida System. Object, e As System. EventArgs) btnclear. Click tozalashni () 'chaqiradi sub muntazam tozalash End Sub Sub cleanup ()' har bir matn qutisini tozalaydi txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Btnabout_Click shaxsiy sub (yuboruvchi sifatida System. Object, e sifatida System. EventArgs) btnabout. Click -ni boshqaradi.

'bu alohida msgbox -da ko'rsatilgan xabar

"Siz xohlagan narsani quyida" = "belgisidan keyin qo'shishingiz mumkin, lekin u ikki vergul (" ") orasida bo'lishi kerak.

String = "Bu dasturiy ta'minot Umair Bin Osim tomonidan sog'liqni saqlash to'g'risida ijtimoiy xabardorlik uchun qilingan." & vbNewLine & "Butun dunyoda semirib ketgan odamlar sonining ko'payishi sog'liqni saqlash vahimasini qo'zg'atdi, chunki yurak kasalliklari va diabetga chalinganlar soni ko'paymoqda." & vbNewLine & "Bularning barchasiga qaramay, ko'pchilik odamlar semirib ketganmi yoki yo'qmi yoki bunga qanday qarshi turish kerakligini bilishmaydi." & vbNewLine & "Bunga javoban, biz sizning BMIingizni aniqlash uchun kalkulyator yaratdik va siz semirib ketdingizmi yoki yo'qmi". & vbNewLine & "Bu standartlar Amerika yurak assotsiatsiyasiga ko'ra."

MsgBox (xabar)

End Sub Private Sub btnhlp_Click (yuboruvchi sifatida System. Object, e As System. EventArgs) btnhlp. Click ni bosing "" ga yozmoqchi bo'lgan har qanday xabarni qo'shing, hozircha bo'shdir Dim Emergency_message sifatida String = ""

MsgBox (favqulodda_xabar)

Sub tugatishSinfni tugatish

6 -qadam: Dasturingiz bajarilgani bilan tabriklaymiz

Endi siz BMI ni hisoblashingiz mumkin va siz o'zingiz xohlagan dasturiy ta'minotni qanday tahrir qilishni bilasiz

dasturiy ta'minotni o'ynash uchun yuqori paneldagi yashil o'qni bosing yoki F5 tugmasini bosing!

Sizga qulay bo'lishi uchun biz o'z kalkulyatorimizni (tayyor) va dasturlashni (.txt faylida) joylashtirdik.