Llogaritësi i BMI: 6 hapa

2024 Autor: John Day | [email protected]. E modifikuara e fundit: 2024-01-30 12:20

Emri im është Umair Bin Asim. Unë jam një student i Perspektivës Globale, duke bërë nivelet e mia O. Ky projekt është pjesë e një fushate ndërgjegjësimi që unë dhe shokët e mi të klasës po zhvillojmë aktualisht. Ne e njohim obezitetin si një problem në rritje në të gjithë botën dhe po i inkurajojmë njerëzit të luftojnë trashjen para se të çojë në një katastrofë të madhe shoqërore. Ky projekt është një nga fushatat tona të shumta ndërgjegjësuese.

Llogaritësi i BMI, do të lejojë njerëzit të kenë më shumë lehtësi në llogaritjen e indeksit të tyre të masës trupore dhe përcaktimin nëse janë apo jo obezë. Llogaritësi që kemi bërë është vendosur në standardet e shoqatës amerikane të shëndetit. Qëllimi i postimit të kësaj është që të lejojë njerëzit jo vetëm të bëjnë një makinë llogaritëse, por gjithashtu t'i lejojnë njerëzit të modifikojnë kalkulatorët e tyre në cilindo që të jetë standardi i tyre kombëtar.

Hapi 1: Krijimi i një Projekti të Ri Visual Studio

1. studio e hapur vizuale
2. klikoni mbi projektin e ri
3. zgjidhni aplikacionin e vejushave
4. riemëroni projektin në "Llogaritësi i BMI"
5. ruani projektin dhe mbani mend vendndodhjen (e kam ruajtur në një makinë të veçantë)

Hapi 2: Dy seksione

ka dy seksione në aplikacionet nga dritaret e Visual Studio

1) Form1.vb [Dizajni]

këtu krijoni GUI

2) Forma1.vb

këtu ju shkruani programimin tuaj

ju mund të zgjidhni skedat duke zgjedhur mbi to

Hapi 3: Hartoni ndërfaqen (etiketat dhe kutitë e tekstit)

në këtë hap ju duhet të krijoni ndërfaqen grafike të përdoruesit.

1. zgjidhni etiketat nga kutia e veglave në dispozicion (nëse nuk mund ta gjeni kutinë e veglave shtypni Ctrl+Alt+x)
2. tërhiqni etiketën në formë dhe rregulloni ato në të djathtë. na duhen tre etiketa
3. rregulloni etiketat përgjatë së majtës
4. klikoni në etiketat dhe në pronat ndryshoni Autosize në FALSE, kjo do t'ju lejojë të ndryshoni madhësinë e etiketës.

5. klikoni mbi etiketat dhe në vetitë ndryshoni tekstin në "lartësi", "peshë", "BMI tuaj", respektivisht.

6. gjithashtu mund të ndryshoni cilësime të tjera në veti të tilla si ngjyra dhe efekti 3D.
7. tërhiqni tre kuti teksti nga kutia e veglave dhe rreshtojini ato përgjatë paralelës së majtë me etiketat
8. klikoni në kutinë e tekstit dhe në vetitë ndryshoni cilësimet e emrit në "txtheight", "txtweight", "txtresults"
9. gjithashtu mund të ndryshoni cilësime të tjera në veti të tilla si ngjyra dhe efekti 3D.
10. krijoni një kuti teksti të fundit dhe rreshtojeni atë në fund, emërtojeni këtë kuti teksti "txtcomment", kjo do të japë një rezultat në bazë të BMI -së së personave pasi kuptimi vetëm nga numrat mund të jetë i vështirë.
11. ndryshimi i emrit është thelbësor pasi do të na duhet t'i thërrasim këto kuti teksti në programin tonë, nëse preferoni të vendosni ndonjë emër tjetër duhet të ndryshoni emrin e butonit të referuar edhe në program. (emrat janë sipas programit tim)

Hapi 4: Krijoni ndërfaqen (butonat)

vendosni butonat duke i tërhequr ato nga kutia e veglave dhe duke i rreshtuar ato si në figurë

ndërsa butoni është zgjedhur ndryshoni emrin në butonin në vetitë, dhe gjithashtu mund të ndryshoni cilësimin e tekstit.

• krijoni një emër butoni "btncalc", me tekstin "llogarisni BMI"
• krijoni një emër butoni "btnclear", me tekstin "qartë"
• krijoni një emër butoni "btnexit", me tekstin "exit"
• krijoni një emër butoni "btnabout", me tekstin "mësoni për ne"
• krijoni një emër butoni "btnhlp", me tekstin "keni nevojë për ndihmë?" (Unë nuk e kam përdorur këtë dhe është lënë falas në rast se dëshironi të shtoni një buton ndihme)

rreshtoni butonat në formën GUI ashtu siç e shihni të arsyeshme

ndryshimi i emrit është thelbësor pasi do të na duhet t'i thërrasim këto butona në programin tonë, nëse preferoni të vendosni ndonjë emër tjetër duhet të ndryshoni emrin e butonit të referuar edhe në program. (emrat janë sipas programit tim)

Hapi 5: Programimi i kalkulatorit tuaj

Formulari i klasës publike1

Sub btncalc_Click (dërguesi Si System. Object, e As System. EventArgs) Trajton btncalc. Kliko

Lartësia Dim Si Dyfishtë = 0 'krijon variabla me lartësi Dim Pesha Si Dyfish = 0' krijon ndryshore me peshë Dim BMI Si Dyfish = 0 'krijon variabël të quajtur BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'lexon numrat nga kutia e tekstit txtheight dhe e ruan atë në peshën e ndryshueshme përkatëse = Dyfish. Analizuar (txtweight. Tekst)' lexon numrat nga kutia e tekstit txtweight dhe e ruan atë në ndryshoren përkatëse lartësi = lartësi * 0.0254 'konverton lartësinë në metra peshë = peshë * 0.4535924' shndërron peshën në kilogram lartësi = lartësi * lartësi 'katrorë lartësi dhe e ruan atë në lartësi të ndryshueshme

Nëse ((lartësia <= 0) Ose (pesha <= 0)) Atëherë 'kontrolli i vlefshmërisë për të siguruar që të dhënat e panatyrshme nuk futen në pastrim () MsgBox ("ju lutemi futni vlera realiste") Dilni nga Fundi Nëse

BMI = llogaritja e peshës / lartësisë 'e BMI

BMI = Format (BMI, "0.00") 'shkruan BMI në dy vendndodhje dhjetore txtresults. Text = BMI' shkruan BMI në textbox txtresults txtcomment. Text = "" "zbraz komentin e tekstit për të lejuar futjen e të dhënave

'llogarit gjendjen sipas BMI

Nëse BMI <18.5 Atëherë gjendja mund të ndryshojë në vendin tuaj

txtcomment. Text = "ju jeni nën peshë"

Tjetër Nëse ((BMI> = 18.5) Dhe (BMI 24.9) Dhe (BMI 29.9 Pastaj txtcomment. Text = "ju jeni obezë, ju lutemi merrni masa paraprake" Përfundoni Nëse

Fundi Nën

Nën -Privat btnexit_Click (dërguesi si sistem. Object, e As System. EventArgs) Trajton btnexit. Kliko

Mbyll funksionin () 'për daljen End SubPrivate Sub btnclear_Click (dërguesi Si System. Object, e As System. EventArgs) Trajton btnclear. Click cleanup () 'thirrjet nën pastrim rutinë End Sub Sub cleanup ()' pastron secilën kuti teksti txtcomment. Text = "" txtheight. Clear () txtweight. Qartë () txtresults. Text = "" txtheight. Fokus () Fundi Nën

Nën -nën private btnabout_Click (dërguesi Si System. Object, e As System. EventArgs) Trajton btnabout. Kliko

'Ky është mesazhi i treguar në një kuti mesazhi të veçantë

'mund të shtoni çdo gjë që dëshironi pas shenjës "=" më poshtë, por duhet të jetë midis presjeve të dyfishta ("")

Mesazh i zymtë si String = "Ky Softuer është bërë nga Umair Bin Asim për hir të ndërgjegjësimit shoqëror mbi shëndetin." & VbNewLine & "Një rritje në mbarë botën e numrit të njerëzve obezë ka nxitur një panik shëndetësor pasi numri i rasteve të sëmundjeve të zemrës dhe diabetit janë në rritje." & vbNewLine & "Pavarësisht nga të gjitha këto një numër i madh njerëzish nuk e dinë nëse janë apo jo obezë apo si ta luftojnë". & vbNewLine & "Në përgjigje të asaj që kemi bërë një kalkulator për të përcaktuar BMI -në tuaj dhe nëse jeni apo jo obezë". & vbNewLine & "Këto Standarde Janë Sipas Shoqatës Amerikane të Zemrës".

MsgBox (mesazh)

End Sub Private Sub btnhlp_Click (dërguesi Si System. Object, e As System. EventArgs) Trajton btnhlp. Klikoni 'shtoni çdo mesazh që dëshironi të shkruani midis "" është bosh tani për tani Dim urgent_message As String = ""

MsgBox (mesazh urgjent)

Fundi NënKlasa e Fundit

Hapi 6: Urime Programimi juaj është kryer

tani ju mund të llogaritni BMI -në tuaj dhe ju e dini se si ta redaktoni softuerin tuaj sipas dëshirës tuaj

për të luajtur softuerin shtypni shigjetën e gjelbër në shiritin e sipërm ose thjesht shtypni F5 gëzoni!

për lehtësinë tuaj, ne kemi postuar llogaritësin tonë (të gatshëm), si dhe programimin (në një skedar.txt)