BMI კალკულატორი: 6 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:18

მე მქვია უმაირ ბინ ასიმი. მე ვარ გლობალური პერსპექტივის სტუდენტი, ვაკეთებ ჩემს O დონეს. ეს პროექტი არის ცნობიერების ამაღლების კამპანიის ნაწილი, რომელსაც მე და ჩემი თანაკლასელები ვატარებთ. ჩვენ ვაღიარებთ სიმსუქნეს, როგორც მზარდ პრობლემას მთელს მსოფლიოში და ჩვენ მოვუწოდებთ ადამიანებს ებრძოლონ სიმსუქნეს მანამ, სანამ ის არ გამოიწვევს დიდ სოციალურ კატასტროფას. ეს პროექტი არის ერთ -ერთი ჩვენი მრავალრიცხოვანი ცნობიერების ამაღლების კამპანია.

BMI კალკულატორი საშუალებას აძლევს ადამიანებს უფრო ადვილად გამოთვალონ სხეულის მასის ინდექსი და დაადგინონ სიმსუქნე არიან თუ არა. ჩვენ მიერ დამზადებული კალკულატორი მითითებულია ამერიკის ჯანდაცვის ასოციაციის სტანდარტებში. ამის გამოქვეყნების მიზანია ადამიანებს არა მხოლოდ გამოთვალონ კალკულატორი, არამედ მისცენ საშუალება ადამიანებმა შეცვალონ კალკულატორები თავიანთი ეროვნული სტანდარტით.

ნაბიჯი 1: ახალი ვიზუალური სტუდიის პროექტის შექმნა

1. ღია ვიზუალური სტუდია
2. დააწკაპუნეთ ახალ პროექტზე
3. აირჩიეთ ქვრივთა განაცხადის ფორმა
4. გადაარქვით პროექტს "BMI კალკულატორი"
5. შეინახე პროექტი და დაიმახსოვრე ადგილმდებარეობა (მე შევინახე ცალკე დისკზე)

ნაბიჯი 2: ორი განყოფილება

ვიზუალური სტუდიის ფანჯრებში ორი განყოფილებაა განაცხადის ორი განყოფილება

1) Form1.vb [დიზაინი]

აქ თქვენ შექმნით GUI

2) ფორმა 1.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) სახელურები btncalc. დაწკაპეთ

Dim სიმაღლე როგორც ორმაგი = 0 'ქმნის ცვლადს სახელწოდებით სიმაღლე Dim წონა როგორც ორმაგი = 0' ქმნის ცვლადის სახელწოდებით წონა Dim BMI როგორც ორმაგი = 0 'ქმნის ცვლადს სახელწოდებით BMI

txtresults. Text = ""

სიმაღლე = ორმაგი. გაანალიზეთ (txtheight. Text) "კითხულობს ციფრებს ტექსტური ყუთიდან txtheight და ინახავს მას შესაბამის ცვლად წონაში = ორმაგი. გაანალიზება (txtweight. ტექსტი)" კითხულობს ციფრებს ტექსტური ყუთიდან txtweight და ინახავს შესაბამის ცვლად სიმაღლეზე = სიმაღლე * 0.0254 'სიმაღლე გარდაქმნის მეტრს წონა = წონა * 0.4535924' გადააქცევს წონას კილოგრამებად სიმაღლე = სიმაღლე * სიმაღლე 'კვადრატები helght და ინახავს მას ცვლადი სიმაღლეზე

თუ ((სიმაღლე <= 0) ან (წონა <= 0)) მაშინ 'ვალიდურობის შემოწმება არაბუნებრივი მონაცემების უზრუნველსაყოფად არ არის შეტანილი გასუფთავება () MsgBox ("გთხოვთ ჩაწეროთ რეალისტური მნიშვნელობები") გასვლა ქვესადგური თუ

BMI = წონა / სიმაღლე 'BMI გამოთვლა

BMI = ფორმატი (BMI, "0.00") "წერს BMI ორ ათწილადში. ტექსტი = BMI" წერს BMI ტექსტის ტექსტში

'ითვლის მდგომარეობას BMI- ის მიხედვით

თუ BMI <18.5 მაშინ მდგომარეობა შეიძლება განსხვავდებოდეს თქვენს ქვეყანაში

txtcomment. Text = "წონაში ხარ"

სხვა (თუ BMI> = 18.5) და (BMI 24.9) და (BMI 29.9 მაშინ txtcomment. Text = "თქვენ ხართ მსუქანი, გთხოვთ მიიღოთ ზომები" დასრულდება თუ

დასასრული ქვე

პირადი ქვე btnexit_Click (გამგზავნი როგორც სისტემა. ობიექტი, e როგორც სისტემა. EventArgs) ამუშავებს btnexit. დააწკაპუნეთ

დახურვა () 'ფუნქცია გასასვლელი End SubPrivate Sub btnclear_Click (გამგზავნი როგორც System. Object, e As System. EventArgs) ამუშავებს btnclear. დააწკაპუნეთ გასუფთავებაზე () 'მოუწოდებს ქვე -რუტინულ გასუფთავებას End Sub Sub cleanup ()' ასუფთავებს თითოეულ ტექსტურ ტექსტს txtcomment. Text = "" txtheight. Clear () txtweight. წმინდა () txtresults. Text = "" txtheight. Focus () End Sub

პირადი ქვე btnabout_Click (გამგზავნი როგორც System. Object, e As System. EventArgs) ამუშავებს btnabout. დაწკაპეთ

'ეს არის შეტყობინება, რომელიც ნაჩვენებია ცალკეულ ყუთში

თქვენ შეგიძლიათ დაამატოთ ნებისმიერი რამ რაც გსურთ ქვემოთ "=" ნიშნის შემდეგ, მაგრამ ის უნდა იყოს ორმაგ მძიმით ("") შორის

Dim message As String = "ეს პროგრამა დამზადებულია უმაირ ბინ ასიმის მიერ ჯანმრთელობის შესახებ სოციალური ცნობიერებისათვის." და vbNewLine & 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 ფაილში)