ĶMI kalkulators: 6 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:56

Mans vārds ir Umair Bin Asim. Es esmu globālās perspektīvas students, veicu savus O līmeņus. Šis projekts ir daļa no izpratnes veicināšanas kampaņas, kuru es un mani klasesbiedri šobrīd veicam. Mēs atzīstam aptaukošanos kā pieaugošu problēmu visā pasaulē un mudinām cilvēkus cīnīties pret aptaukošanos, pirms tā noved pie lielas sociālas katastrofas. Šis projekts ir viena no mūsu daudzajām izpratnes veicināšanas kampaņām.

ĶMI kalkulators ļauj cilvēkiem vieglāk aprēķināt ķermeņa masas indeksu un noteikt, vai viņiem ir aptaukošanās. Mūsu izveidotais kalkulators ir noteikts Amerikas veselības asociācijas standartos. Šīs publikācijas mērķis ir ļaut cilvēkiem ne tikai izveidot kalkulatoru, bet arī ļaut cilvēkiem pārveidot savus kalkulatorus atbilstoši viņu valsts standartiem.

1. darbība. Jauna Visual Studio projekta izveide

1. atvērta vizuālā studija
2. noklikšķiniet uz jauna projekta
3. atlasiet atraitņu veidlapas pieteikumu
4. pārdēvēt projektu par "ĶMI kalkulatoru"
5. saglabājiet projektu un atcerieties atrašanās vietu (esmu to saglabājis atsevišķā diskā)

2. darbība: divas sadaļas

Visual studio windows veidlapas veidlapā ir divas sadaļas

1) Form1.vb [dizains]

šeit jūs izveidojat GUI

2) Veidlapa 1.vb

šeit jūs rakstāt savu programmu

cilnes varat izvēlēties, atlasot tās

3. darbība: veidojiet saskarni (etiķetes un tekstlodziņus)

šajā solī jums ir jāizstrādā grafiskais lietotāja interfeiss.

1. atlasiet etiķetes no pieejamā rīkjoslas (ja nevarat atrast rīklodziņu, nospiediet Ctrl+Alt+x)
2. velciet etiķeti uz veidlapas un sakārtojiet tās labajā pusē. mums vajag trīs etiķetes
3. sakārtojiet etiķetes pa kreisi
4. noklikšķiniet uz etiķetēm un rekvizītos mainiet automātisko lielumu uz FALSE, tas ļaus mainīt etiķetes izmēru.

5. noklikšķiniet uz etiķetēm un rekvizītos mainiet tekstu attiecīgi uz "augums", "svars", "jūsu ĶMI".

6. varat arī mainīt citus iestatījumus tādās rekvizītos kā krāsa un 3D efekts.
7. velciet trīs tekstlodziņus no rīkjoslas un izlīdziniet tos pa kreisi paralēli etiķetēm
8. noklikšķiniet uz tekstlodziņa un rekvizītos mainiet nosaukuma iestatījumus uz "txtheight", "txtweight", "txtresults"
9. varat arī mainīt citus iestatījumus tādās rekvizītos kā krāsa un 3D efekts.
10. izveidojiet pēdējo tekstlodziņu un izlīdziniet to apakšā, nosauciet šo tekstlodziņu "txtcomment", tas dos rezultātu, pamatojoties uz personu ĶMI, jo tikai skaitļu izpratne var būt sarežģīta.
11. Nosaukuma maiņa ir būtiska, jo mums šīs programmas tekstlodziņi būs jāizsauc, ja vēlaties izmantot citu nosaukumu, programmā ir jāmaina arī minētās pogas nosaukums. (vārdi atbilst manai programmai)

4. darbība: saskarnes noformēšana (pogas)

novietojiet pogas, velkot tās no rīkjoslas un izlīdzinot tās, kā parādīts attēlā

kamēr poga ir atlasīta, mainiet pogas nosaukumu rekvizītos, un jūs varat mainīt arī teksta iestatījumu.

• izveidojiet pogas nosaukumu "btncalc" ar tekstu "aprēķināt ĶMI"
• izveidojiet pogas nosaukumu "btnclear" ar tekstu "skaidrs"
• izveidojiet pogas nosaukumu "btnexit" ar tekstu "exit"
• izveidojiet pogas nosaukumu "btnabout" ar tekstu "uzzināt par mums"
• izveidot pogas nosaukumu "btnhlp", ar tekstu "nepieciešama palīdzība?" (Es to neesmu izmantojis, un tas ir atstāts bez maksas, ja vēlaties pievienot palīdzības pogu)

izlīdziniet pogas GUI formā pēc saviem ieskatiem

Nosaukuma maiņa ir būtiska, jo šīs pogas būs jāizsauc mūsu programmā, ja vēlaties ievietot citu nosaukumu, programmā ir jāmaina arī minētās pogas nosaukums. (vārdi atbilst manai programmai)

5. darbība: kalkulatora programmēšana

Publiskās klases veidlapa1

Privāts apakšbtncalc_Click (sūtītājs kā System. Object, e Kā System. EventArgs) Rokturis btncalc. Click

Dim augstums Kā dubultā = 0 'izveido mainīgo ar nosaukumu augstums Dim svars Kā Double = 0' izveido mainīgo ar nosaukumu svars Dim BMI As Double = 0 'izveido mainīgo ar nosaukumu ĶMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) "nolasa ciparus no tekstlodziņa txtheight un saglabā to attiecīgajā mainīgajā svarā = Double. Parse (txtweight. Text)" nolasa ciparus no tekstlodziņa txtweight un saglabā to attiecīgajā mainīgajā augstumā = augstums * 0,0254 'pārvērš augstumu metros svars = svars * 0,4535924' pārvērš svaru kilogramos augums = augstums * augstums 'kvadrāti un saglabā to mainīgā augstumā

Ja ((augstums <= 0) vai (svars <= 0)), tad derīguma pārbaude, lai pārliecinātos, ka netiek ievadīti nedabiski dati, tīrīšana () MsgBox ("lūdzu, ievietojiet reālistiskas vērtības") Iziet no apakšgala Ja

ĶMI = svars / augstums 'ĶMI aprēķins

ĶMI = Formāts (ĶMI, "0,00") 'raksta ĶMI ar diviem cipariem aiz komata txtresults. Text = ĶMI' raksta ĶMI tekstlodziņā txtresults txtcomment. Text = "" "iztukšo tekstlodziņa komentāru, lai varētu ievadīt datus

aprēķina stāvokli saskaņā ar ĶMI

Ja ĶMI <18,5, tad jūsu valstī stāvoklis var atšķirties

txtcomment. Text = "jums ir zem svara"

CitādiJa ((ĶMI> = 18,5) Un (ĶMI 24,9) Un (ĶMI 29,9 Tad txtcomment. Text = "ja Jums ir aptaukošanās, lūdzu, ievērojiet piesardzības pasākumus" Beigt

Beigu apakš

Privāta apakšbtnexit_Click (sūtītājs kā System. Object, e kā System. EventArgs) Rīko btnexit. Click

Aizvērt () 'funkciju, lai izietu no beigām SubPrivāts apakšbtnclear_Click (sūtītājs kā System. Object, e kā System. EventArgs) Rīkojas ar btnclear. Click cleanup () 'izsaukumiem, kas ir parastā tīrīšana Beigu apakšapstrādes tīrīšana ()' notīra katru tekstlodziņa txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Privāts apakšbtnabout_Click (sūtītājs kā System. Object, e Kā System. EventArgs) Rīko btnabout. Click

'šī ziņa tiek parādīta atsevišķā ziņojumapmaiņā

'Jūs varat pievienot visu, ko vēlaties, aiz zemāk esošās zīmes "=", bet tai jābūt starp dubultkomatiem ("")

Dim ziņojums As String = "Šo programmatūru izveidoja Umair Bin Asim, lai veicinātu sociālo izpratni par veselību." & vbNewLine & "Aptaukošanās gadījumu skaita pieaugums visā pasaulē ir izraisījis veselības paniku, jo pieaug sirds slimību un diabēta gadījumu skaits." & vbNewLine & "Neskatoties uz to, liels skaits cilvēku nezina, vai viņiem ir aptaukošanās, vai kā to novērst." & vbNewLine & "Atbildot uz to, ka esam izveidojuši kalkulatoru, lai noteiktu jūsu ĶMI un to, vai jums ir aptaukošanās." & vbNewLine & "Šie standarti ir saskaņā ar Amerikas Sirds asociāciju."

MsgBox (ziņojums)

Beigt apakšprivāto privāto apakšpunktu btnhlp_Click (sūtītājs kā System. Object, e Kā System. EventArgs) Rokturi btnhlp. Noklikšķiniet uz 'pievienot jebkuru ziņojumu, kuru vēlaties rakstīt, starp' '' 'tas pagaidām ir tukšs.

MsgBox (steidzams_ziņojums)

Beigu apakšBeigt klasi

6. solis: Apsveicam! Progamming ir pabeigts

tagad jūs varat aprēķināt savu ĶMI un zināt, kā rediģēt programmatūru pēc savas patikas

lai atskaņotu programmatūru, nospiediet zaļo bultiņu augšējā joslā vai vienkārši nospiediet F5 baudīt!

Jūsu ērtībai esam ievietojuši savu kalkulatoru (gatavu), kā arī programmēšanu (.txt failā)