BMI հաշվիչ `6 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:48

Իմ անունն է Ումեր բին Ասիմ: Ես գլոբալ հեռանկարի ուսանող եմ, կատարում եմ իմ O մակարդակները: Այս նախագիծը իրազեկման արշավի մի մասն է, որը ես և իմ դասընկերները ներկայումս իրականացնում ենք: Մենք ընդունում ենք, որ ճարպակալումն ամբողջ աշխարհում աճող խնդիր է և խրախուսում ենք մարդկանց պայքարել ճարպակալման դեմ, մինչև դա հանգեցնի խոշոր սոցիալական աղետի: Այս նախագիծը մեր բազմաթիվ իրազեկման արշավներից մեկն է:

BMI հաշվիչը թույլ է տալիս մարդկանց ավելի հեշտությամբ հաշվարկել իրենց մարմնի զանգվածի ինդեքսը և որոշել ճարպակալած լինելը, թե ոչ: Մեր պատրաստած հաշվիչը սահմանվում է ամերիկյան առողջապահական ասոցիացիայի չափանիշներով: Սա տեղադրելու նպատակն է թույլ տալ մարդկանց ոչ միայն հաշվիչ սարքել, այլև թույլ տալ մարդկանց փոփոխել իրենց հաշվիչներն իրենց ազգային ստանդարտով:

Քայլ 1: Ստեղծեք նոր Visual Studio նախագիծ

1. բաց տեսողական ստուդիա
2. կտտացրեք նոր նախագծին
3. ընտրեք այրիների ձևի դիմում
4. նախագիծը վերանվանել «BMI հաշվիչ»
5. պահպանեք նախագիծը և հիշեք գտնվելու վայրը (ես այն պահել եմ առանձին դրայվում)

Քայլ 2: Երկու բաժին

Visual Studio- ի պատուհանների դիմումի երկու բաժին կա

1) Form1.vb [Դիզայն]

այստեղ դուք ստեղծում եք GUI

2) Form1.vb

այստեղ դուք գրում եք ձեր ծրագրավորումը

կարող եք ընտրել ներդիրները `ընտրելով դրանց վրա

Քայլ 3. Նախագծեք ինտերֆեյսը (պիտակներ և տեքստային տուփեր)

այս քայլում դուք պետք է նախագծեք գրաֆիկական ինտերֆեյսը:

1. Գործիքների տուփից ընտրեք պիտակներ (եթե չեք գտնում գործիքի տուփը, սեղմեք Ctrl+Alt+x)
2. պիտակը քաշեք ձևի վրա և դասավորեք դրանք աջ կողմում: մեզ պետք է երեք պիտակ
3. դասավորեք պիտակները ձախ կողմում
4. կտտացրեք պիտակների վրա և հատկությունների մեջ փոխեք Autosize to FALSE, դա թույլ կտա ձեզ փոխել պիտակի չափը:

5. կտտացրեք պիտակների վրա և հատկությունների մեջ համապատասխանաբար փոխեք տեքստը «բարձրություն», «քաշ», «ձեր BMI»:

6. կարող եք նաև այլ հատկություններ փոխել այնպիսի հատկությունների մեջ, ինչպիսիք են գույնը և 3D էֆեկտը:
7. Գործիքի տուփից քաշեք երեք տեքստային տուփ և դրանք հավասարեցրեք պիտակներին ձախ զուգահեռ
8. կտտացրեք տեքստային տուփին և հատկությունների մեջ անվանման կարգավորումները փոխեք «txtheight», «txtweight», «txtresults»
9. կարող եք նաև այլ հատկություններ փոխել այնպիսի հատկությունների մեջ, ինչպիսիք են գույնը և 3D էֆեկտը:
10. ստեղծեք վերջին տեքստային տուփը և հավասարեցրեք այն ներքևում, անվանեք այս տեքստային տուփը «txtcomment», սա արդյունք կտա BMI- ի անձանց հիման վրա, քանի որ միայն թվերից հասկանալը կարող է դժվար լինել:
11. Անունը փոխելը էական է, քանի որ մենք ստիպված կլինենք այս տուփերը կանչել մեր ծրագրում, եթե նախընտրում եք որևէ այլ անուն դնել, պետք է ծրագրում նույնպես փոխեք նշված կոճակի անունը: (անունները ըստ իմ ծրագրի)

Քայլ 4: Նախագծեք ինտերֆեյսը (կոճակներ)

տեղադրեք կոճակները ՝ դրանք քաշելով գործիքի տուփից և հավասարեցնելով դրանք, ինչպես ցույց է տրված նկարում

երբ կոճակը ընտրված է, փոխեք անունը հատկությունների կոճակի վրա, և կարող եք նաև փոխել տեքստի կարգավորումը:

• ստեղծել կոճակի անուն «btncalc», «հաշվարկել BMI» տեքստով
• ստեղծել կոճակի անուն «btnclear», «մաքուր» տեքստով
• ստեղծել կոճակի անուն «btnexit», «ելք» տեքստով
• ստեղծել կոճակի անուն «btnabout», «իմացեք մեր մասին» տեքստով
• ստեղծել կոճակի անուն «btnhlp», «օգնության կարիք ունե՞ք» տեքստով: (ես դա չեմ օգտագործել, և այն մնացել է անվճար, եթե ցանկանում եք ավելացնել օգնության կոճակը)

հավասարեցրեք կոճակները GUI ձևով ՝ ըստ ձեր հայեցողության

Անունը փոխելը էական է, քանի որ մենք ստիպված կլինենք այս կոճակները կանչել մեր ծրագրում, եթե նախընտրում եք որևէ այլ անուն դնել, ապա ծրագրում նույնպես պետք է փոխեք նշված կոճակի անունը: (անունները ըստ իմ ծրագրի)

Քայլ 5: Հաշվիչի ծրագրավորում

Հանրային դասի ձև 1

Անձնական ենթակետ btncalc_Click (ուղարկող ՝ որպես System. Object, e As System. EventArgs) Handles btncalc. Սեղմեք

Dim height As Double = 0 'ստեղծում է փոփոխական անունով բարձրություն Dim weight as Double = 0' ստեղծում է փոփոխական անունով քաշ Dim BMI As Double = 0 'ստեղծում է BMI անունով փոփոխական

txtresults. Text = ""

բարձրություն = Կրկնակի. Վերլուծել (txtheight. Text) 'կարդում է txtheight տեքստային տուփի թվերը և պահում է համապատասխան փոփոխական քաշի մեջ = Double 0.0254 'բարձրությունը փոխակերպում է մետր քաշի = քաշը * 0.4535924' քաշը վերածում է կիլոգրամի հասակի = հասակը * հասակի 'քառակուսիները ողջ են և պահում այն փոփոխական բարձրության

Եթե ((բարձրություն = = 0) Կամ (քաշը = = 0)) Ապա 'վավերականության ստուգում `անբնական տվյալների չմաքրման համար մուտքագրելու համար () MsgBox (« խնդրում ենք տեղադրել իրատեսական արժեքներ ») Ելք ենթավարտից

BMI = BMI քաշի / հասակի 'հաշվարկ

BMI = Ձևաչափ (BMI, "0.00") 'BMI- ն գրում է երկու տասնորդական տեքստային արդյունքներ: Text = BMI' BMI- ն գրում է BMI տեքստային տեքստում txtresults txtcomment. Text = "" "դատարկում է տեքստային տուփի մեկնաբանությունը` տվյալների մուտքագրումը թույլատրելու համար

«Հաշվում է վիճակը ըստ BMI- ի

Եթե BMI <18.5 <Այն դեպքում 'վիճակը կարող է տարբեր լինել ձեր երկրում

txtcomment. Text = "դուք քաշի տակ եք"

Այլ Եթե ((BMI> = 18.5) Եվ (BMI 24.9) Եվ (BMI 29.9) Այնուհետև txtcomment. Text = "դուք գեր եք, խնդրում ենք նախազգուշական միջոցներ ձեռնարկել" Վերջ

Վերջ ենթ

Անձնական ենթակետ btnexit_Click (ուղարկողը որպես համակարգ. Օբյեկտ, և որպես համակարգ. EventVargs) կարգավորում է btnexit: Սեղմեք

Փակել () 'գործառույթը End Sub- ից դուրս գալու համարԱնձնական ենթակետ btnclear_Click (ուղարկողը ՝ որպես System. Object, e As System. EventArgs) կարգավորում է btnclear. Սեղմեք cleanup () - ի զանգերը ենթակարգային մաքրում End Sub Sub cleanup () - ը մաքրում է յուրաքանչյուր տեքստային տեքստային մեկնաբանություն: Text = "" txtheight. Clear () txtweight. Մաքրել () txtresults. Text = "" txtheight. Focus () End Sub

Անձնական ենթակետ btnabout_Click (ուղարկողը որպես System. Object, e As System. EventArgs) կարգավորում է btnabout. Click

'սա այն հաղորդագրությունն է, որը ցուցադրվում է առանձին msgbox- ում

'Դուք կարող եք ցանկացած բան ավելացնել ձեր ներքևի «=» նշանից հետո, բայց այն պետք է լինի կրկնակի ստորակետների միջև ("")

Dim message As String = "Այս ծրագրաշարը պատրաստել է Ումեր Բին Ասիմը` հանուն առողջության մասին սոցիալական իրազեկման: " & vbNewLine & "Obարպակալած մարդկանց թվի համաշխարհային աճը առողջական խուճապ է առաջացրել, քանի որ սրտի հիվանդությունների և շաքարախտի դեպքերի թիվն աճում է": & vbNewLine & «Չնայած այս ամենին, մեծ թվով մարդիկ չգիտեն, թե ճարպակալած են, թե ինչպես հակազդել դրան»: & vbNewLine & "Ի պատասխան դրան մենք հաշվիչ ենք պատրաստել` ձեր BMI- ն որոշելու և ճարպակալած լինել -չլինելու համար ": & vbNewLine & «Այս չափանիշներն ըստ ամերիկյան սրտի ասոցիացիայի են»:

MsgBox (հաղորդագրություն)

End Sub Private Sub btnhlp_Click (ուղարկող ՝ որպես System. Object, e As System. EventArgs) կարգավորում է btnhlp. Սեղմեք 'ավելացնել ցանկացած հաղորդագրություն, որը ցանկանում եք գրել "" - ի միջև, այն այժմ դատարկ է Dim urgent_message As String = ""

MsgBox (հրատապ_ հաղորդագրություն)

Վերջ ենթԱվարտի դաս

Քայլ 6: Շնորհավորում ենք, որ ձեր ծրագրավորումն ավարտված է

այժմ կարող եք հաշվարկել ձեր BMI- ն և գիտեք, թե ինչպես խմբագրել ձեր ծրագրակազմը ձեր սրտով

ծրագրակազմը խաղալու համար սեղմեք վերին սանդղակի կանաչ սլաքը կամ պարզապես սեղմեք F5 վայելեք:

Ձեր հարմարության համար մենք տեղադրել ենք մեր սեփական հաշվիչը (պատրաստ է), ինչպես նաև ծրագրավորումը (.txt ֆայլում)