BMI Kalkulyatoru: 6 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:46

Mənim adım Umair Bin Asimdir. Mən Global Perspektiv tələbəsiyəm, O səviyyələrimi edirəm. Bu layihə mənim və sinif yoldaşlarımın hazırda apardığı maarifləndirmə kampaniyasının bir hissəsidir. Obeziteyi bütün dünyada artan bir problem olaraq tanıyırıq və insanları böyük bir sosial fəlakətə yol açmadan əvvəl piylənmə ilə mübarizə aparmağa təşviq edirik. Bu layihə bir çox maarifləndirmə kampaniyalarımızdan biridir.

BMI kalkulyatoru, insanlara bədən kütləsi indekslərini hesablamaqda və obez olub olmadıqlarını təyin etməkdə daha asanlıq təmin etməkdir. Hazırladığımız kalkulyator Amerika Sağlamlıq Birliyinin standartlarına uyğun olaraq qurulmuşdur. Bunu yerləşdirməyin məqsədi insanlara yalnız bir kalkulyator hazırlamağa deyil, həm də insanların milli standartlarına uyğun olaraq kalkulyatorlarını dəyişdirməsinə icazə verməkdir.

Addım 1: Yeni Visual Studio Layihəsi Yaratmaq

1. açıq vizual studiya
2. yeni layihəyə klikləyin
3. ərizə formasında dul qadınları seçin
4. Layihəni "BMI kalkulyatoru" adlandırın
5. layihəni qeyd edin və yeri xatırlayın (ayrı bir diskdə saxladım)

Addım 2: İki Bölmə

Visual Studio pəncərələrində iki hissə tətbiq forması

1) Form1.vb [Dizayn]

burada GUI yaradırsınız

2) Form1.vb

burada proqramınızı yazın

nişanları seçərək onları seçə bilərsiniz

Addım 3: İnterfeysin dizaynı (etiketlər və mətn qutuları)

Bu addımda qrafik istifadəçi interfeysi dizayn etməlisiniz.

1. mövcud alət qutusundan etiketləri seçin (alət qutusunu tapa bilmirsinizsə, Ctrl+Alt+x düymələrinə basın)
2. etiketi forma sürükləyin və sağa düzün. üç etiketə ehtiyacımız var
3. etiketləri sol tərəfə düzün
4. etiketləri vurun və xüsusiyyətlərdə Autosize'i FALSE olaraq dəyişdirin, bu etiketin ölçüsünü dəyişməyə imkan verəcəkdir.

5. etiketləri vurun və xüsusiyyətlərdə mətni sırasıyla "boy", "çəki" və "BMI" olaraq dəyişdirin.

6. rəng və 3D effekti kimi xüsusiyyətlərdə digər parametrləri də dəyişə bilərsiniz.
7. alət qutusundan üç mətn qutusunu sürükləyin və etiketlərə sola paralel olaraq hizalayın
8. mətn qutusuna vurun və xüsusiyyətlərdə ad parametrlərini "txtheight", "txtweight", "txtresults" olaraq dəyişdirin
9. rəng və 3D effekti kimi xüsusiyyətlərdə digər parametrləri də dəyişə bilərsiniz.
10. son bir mətn qutusu yaradın və aşağıya hizalayın, bu mətn qutusuna "txtcomment" adı verin, bu, şəxslərin BMI -nə əsaslanaraq bir nəticə verər, çünki yalnız rəqəmləri anlamaq çətin ola bilər.
11. Proqramımızda bu mətn qutularını çağırmaq məcburiyyətində qalacağımız üçün adın dəyişdirilməsi vacibdir, əgər başqa bir ad qoymaq istəsəniz, proqramdakı istinad edilən düymənin adını da dəyişdirməlisiniz. (adlar proqrama görədir)

Addım 4: İnterfeys dizaynı (düymələr)

düymələri alət qutusundan sürükləyib şəkildəki kimi hizalayaraq yerləşdirin

düymə seçilərkən xüsusiyyətlərdəki düymənin adını dəyişdirin və mətn parametrini də dəyişə bilərsiniz.

• "BMI hesabla" yazısı olan "btncalc" düyməsini yaradın
• "sil" mətni olan "btnclear" düyməsini yaradın
• "Çıx" yazısı olan "btnexit" düyməsini yaradın
• "btnabout" adında bir düymə yaradın, mətni ilə "bizim haqqımızda məlumat əldə et"
• "btnhlp" adı olan bir düymə yaradın, "kömək lazımdır?" (bunu istifadə etməmişəm və kömək düyməsini əlavə etmək istəsəniz pulsuz qaldı)

GUI formasındakı düymələri uyğun gördüyünüz kimi hizalayın

Proqramımızda bu düymələri çağırmaq məcburiyyətində qalacağımız üçün adın dəyişdirilməsi vacibdir, əgər başqa bir ad qoymaq istəsəniz, proqramdakı istinad edilən düymənin adını da dəyişməlisiniz. (adlar proqrama görədir)

Addım 5: Kalkulyatorunuzu proqramlaşdırın

İctimai sinif forması1

Şəxsi Alt btncalc_Click (göndərən System. Object olaraq, e System. EventArgs olaraq) btncalc. Click idarə edir

Qaranlıq hündürlüyü Double = 0 'olaraq adlandırılan hündürlüyü yaradır Dim çəkisi Double = 0' olaraq adlandırılan çəkisi Dim BMI Double = 0 'olaraq BMI adlı dəyişən yaradır

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'txtheight mətn qutusundakı rəqəmləri oxuyur və onu müvafiq dəyişən çəkiyə saxlayır = Double. Parse (txtweight. Text)' mətn qutusundakı rəqəmləri oxuyur və müvafiq dəyişkənliyə saxlayır hündürlük = boy * 0.0254 'hündürlüyü metr çəkiyə çevirir = çəki * 0.4535924' çəkini kiloqrama çevirir boy = boy * boy 'kvadratları helght və dəyişən hündürlüyə saxlayır

Əgər ((hündürlük <= 0) Və ya (çəki <= 0)) O zaman 'qeyri -təbii məlumatların daxil edilmədiyini yoxlamaq üçün' etibarlılıq yoxlanışı () MsgBox ("zəhmət olmasa real dəyərlər daxil edin") Sub Enddən çıxın

BMI = çəki / boyun BMI hesablanması

BMI = Format (BMI, "0.00") 'BMI -ni iki onluq yerə txtresults yazır. Text = BMI', BMX -ni mətn qutusuna yazır txtresults txtcomment. Text = "" ', məlumat girişinə icazə vermək üçün mətn qutusu şərhini boşaldır.

BMI -yə görə vəziyyəti hesablayır

Əgər BMI <18.5 O zaman 'vəziyyəti ölkənizdə fərqli ola bilər

txtcomment. Text = "ağırlığınız var"

ElseIf ((BMI> = 18.5) Və (BMI 24.9) Və (BMI 29.9 Sonra txtcomment. Text = "piylənmisinizsə, ehtiyatlı olun")

Alt Alt

Şəxsi Alt btnexit_Click (göndərən kimi System. Object, e olaraq System. EventArgs) btnexit. Click idarə edir.

End Sub -dan çıxmaq üçün Close () funksiyasıŞəxsi Sub btnclear_Click (System. Object olaraq göndərən, e System. EventArgs olaraq) btnclear. Click təmizləməni idarə edir () 'alt rutin təmizləməni çağırır Sub Sub Sub cleanup ()' hər bir mətn qutusunu təmizləyir txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Şəxsi Alt btnabout_Click (göndərən kimi System. Object, e olaraq System. EventArgs) btnabout. Click -i idarə edir.

'Bu ayrı bir msgboxda göstərilən mesajdır

Aşağıdakı "=" işarəsindən sonra istədiyiniz hər şeyi əlavə edə bilərsiniz, ancaq ikiqat vergül ("") arasında olmalıdır

String As Dim mesajı = "Bu Proqram Umair Bin Asim tərəfindən Sağlamlıq mövzusunda Sosial Şüur Naminə Hazırlandı." & vbNewLine & "Dünya miqyasında obez insanların sayında artım ürək xəstəlikləri və şəkərli diabet hallarının sayının artdığı üçün sağlamlıq çaxnaşması yaratdı." & vbNewLine & "Bütün bunlara baxmayaraq, çoxlu sayda insan obez olub -olmamasını və ya buna necə qarşı duracağını bilmir." & vbNewLine & "BMI -nizi təyin etmək və piylənməyiniz üçün bir kalkulyator hazırladığımıza cavab olaraq." & vbNewLine & "Bu Standartlar Amerika Ürək Dərnəyinə görədir."

MsgBox (mesaj)

Alt Alt Şəxsi Alt Btnhlp_Click (System. Object olaraq Göndərən, e System. EventArgs olaraq Göndərən) btnhlp. Click 'düyməsinə yazmaq istədiyiniz hər hansı bir mesajı əlavə edin ""' arasında boşdur indiyə qədər Dim təcili_message String = ""

MsgBox (təcili_message)

Alt AltSinif Sonu

Addım 6: Proqramlaşdırmanız tamamlandı

İndi BMI hesablaya bilərsiniz və proqramınızı zövqünüzə görə necə düzəltməyi bilirsiniz

Proqramı oynamaq üçün yuxarı çubuğdakı yaşıl oku basın və ya sadəcə F5 düyməsini basın!

Sizin rahatlığınız üçün öz kalkulyatorumuzu (hazır) və proqramlaşdırmanı (.txt faylında) yerləşdirdik.