Αριθμομηχανή ΔΜΣ: 6 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:36

Το όνομά μου είναι Umair Bin Asim. Είμαι μαθητής του Global Perspective, κάνοντας τα επίπεδα Ο μου. Αυτό το έργο είναι μέρος μιας εκστρατείας ευαισθητοποίησης που εγώ και οι συμμαθητές μου διεξάγουμε αυτήν τη στιγμή. Αναγνωρίζουμε την παχυσαρκία ως ένα αυξανόμενο πρόβλημα σε όλο τον κόσμο και ενθαρρύνουμε τους ανθρώπους να καταπολεμήσουν την παχυσαρκία προτού οδηγήσει σε μια μεγάλη κοινωνική καταστροφή. Αυτό το έργο είναι μία από τις πολλές εκστρατείες ευαισθητοποίησης.

Ο υπολογιστής ΔΜΣ, είναι να επιτρέψει στους ανθρώπους να υπολογίζουν ευκολότερα τον δείκτη μάζας σώματος τους και να καθορίζουν εάν είναι παχύσαρκοι ή όχι. Η αριθμομηχανή που φτιάξαμε ορίζεται στα πρότυπα της αμερικανικής ένωσης υγείας. Ο σκοπός της δημοσίευσης αυτής είναι να επιτρέψει στους ανθρώπους όχι μόνο να κατασκευάζουν αριθμομηχανή, αλλά και να επιτρέπουν στους ανθρώπους να τροποποιούν τις αριθμομηχανές τους σύμφωνα με το εθνικό τους πρότυπο.

Βήμα 1: Δημιουργία νέου έργου Visual Studio

1. ανοιχτό οπτικό στούντιο
2. κάντε κλικ στο νέο έργο
3. επιλέξτε εφαρμογή φόρμας χήρων
4. μετονομάστε το έργο σε "αριθμομηχανή ΔΜΣ"
5. αποθηκεύστε το έργο και θυμηθείτε την τοποθεσία (το έχω αποθηκεύσει σε ξεχωριστή μονάδα δίσκου)

Βήμα 2: Δύο ενότητες

υπάρχουν δύο ενότητες στα Visual Studio παράθυρα εφαρμογής

1) Form1.vb [Σχεδιασμός]

εδώ δημιουργείτε το GUI

2) Form1.vb

εδώ γράφεις τον προγραμματισμό σου

μπορείτε να επιλέξετε τις καρτέλες επιλέγοντάς τις

Βήμα 3: Σχεδιάστε τη διεπαφή (ετικέτες και πλαίσια κειμένου)

σε αυτό το βήμα πρέπει να σχεδιάσετε τη διεπαφή χρήστη γραφικών.

1. επιλέξτε ετικέτες από τη διαθέσιμη εργαλειοθήκη (αν δεν μπορείτε να βρείτε την εργαλειοθήκη πατήστε Ctrl+Alt+x)
2. σύρετε την ετικέτα στη φόρμα και τακτοποιήστε τα δεξιά. χρειαζόμαστε τρεις ετικέτες
3. τακτοποιήστε τις ετικέτες στα αριστερά
4. κάντε κλικ στις ετικέτες και στις ιδιότητες αλλάξτε Autosize σε FALSE, αυτό θα σας επιτρέψει να αλλάξετε το μέγεθος της ετικέτας.

5. κάντε κλικ στις ετικέτες και στις ιδιότητες αλλάξτε το κείμενο σε "ύψος", "βάρος", "ο ΔΜΣ σας", αντίστοιχα.

6. Μπορείτε επίσης να αλλάξετε άλλες ρυθμίσεις σε ιδιότητες όπως χρώμα και εφέ 3D.
7. σύρετε τρία πλαίσια κειμένου από την εργαλειοθήκη και ευθυγραμμίστε τα κατά μήκος της αριστεράς παράλληλα με τις ετικέτες
8. κάντε κλικ στο πλαίσιο κειμένου και στις ιδιότητες αλλάξτε τις ρυθμίσεις ονόματος σε "txtheight", "txtweight", "txtresults"
9. Μπορείτε επίσης να αλλάξετε άλλες ρυθμίσεις σε ιδιότητες όπως χρώμα και εφέ 3D.
10. δημιουργήστε ένα τελευταίο πλαίσιο κειμένου και ευθυγραμμίστε το στο κάτω μέρος, ονομάστε αυτό το πλαίσιο κειμένου "txtcomment", αυτό θα δώσει ένα αποτέλεσμα με βάση τον ΔΜΣ των ατόμων καθώς η κατανόηση μόνο από αριθμούς μπορεί να είναι δύσκολη.

11. η αλλαγή του ονόματος είναι απαραίτητη καθώς θα πρέπει να καλέσουμε αυτά τα πλαίσια κειμένου στο πρόγραμμά μας, αν προτιμάτε να βάλετε οποιοδήποτε άλλο όνομα πρέπει να αλλάξετε το όνομα του κουμπιού που αναφέρεται στο πρόγραμμα επίσης. (τα ονόματα είναι σύμφωνα με το πρόγραμμά μου)

Βήμα 4: Σχεδιάστε τη διεπαφή (κουμπιά)

τοποθετήστε τα κουμπιά σύροντάς τα από την εργαλειοθήκη και ευθυγραμμίζοντάς τα όπως φαίνεται στην εικόνα

ενώ το κουμπί είναι επιλεγμένο αλλάξτε το όνομα στο κουμπί στις ιδιότητες και μπορείτε επίσης να αλλάξετε τη ρύθμιση κειμένου.

• δημιουργήστε ένα όνομα κουμπιού "btncalc", με κείμενο "υπολογισμός ΔΜΣ"
• δημιουργήστε ένα όνομα κουμπιού "btnclear", με κείμενο "clear"
• δημιουργήστε ένα όνομα κουμπιού "btnexit", με κείμενο "έξοδος"
• δημιουργήστε ένα όνομα κουμπιού "btnabout", με κείμενο "μάθετε για εμάς"
• δημιουργήστε ένα όνομα κουμπιού "btnhlp", με κείμενο "χρειάζεστε βοήθεια;" (δεν το έχω χρησιμοποιήσει και έχει μείνει δωρεάν σε περίπτωση που θέλετε να προσθέσετε ένα κουμπί βοήθειας)

ευθυγραμμίστε τα κουμπιά στη φόρμα GUI όπως κρίνετε κατάλληλο

η αλλαγή του ονόματος είναι απαραίτητη καθώς θα πρέπει να καλέσουμε αυτά τα κουμπιά στο πρόγραμμά μας, εάν προτιμάτε να βάλετε οποιοδήποτε άλλο όνομα πρέπει να αλλάξετε το όνομα του κουμπιού που αναφέρεται στο πρόγραμμα. (τα ονόματα είναι σύμφωνα με το πρόγραμμά μου)

Βήμα 5: Προγραμματισμός της αριθμομηχανής σας

Δημόσιο έντυπο τάξης 1

Private Sub btncalc_Click (αποστολέας ως System. Object, e As System. EventArgs) Λαβές btncalc. Κάντε κλικ

Dim ύψος ως διπλό = 0 'δημιουργεί μεταβλητή με όνομα ύψος Dim βάρος ως διπλό = 0' δημιουργεί μεταβλητή με όνομα βάρος Dim BMI As Double = 0 'δημιουργεί μεταβλητή με όνομα BMI

txtresults. Text = ""

ύψος = Double. Parse (txtheight. Text) »διαβάζει αριθμούς από το πλαίσιο κειμένου txtheight και τον αποθηκεύει στο αντίστοιχο μεταβλητό βάρος = Double. Parse (txtweight. Text)» διαβάζει αριθμούς από το πλαίσιο κειμένου txtweight και τον αποθηκεύει στο αντίστοιχο μεταβλητό ύψος = ύψος * 0,0254 'μετατρέπει το ύψος σε μέτρα βάρος = βάρος * 0,4535924' μετατρέπει το βάρος σε κιλά ύψος = ύψος * ύψος 'τετράγωνα helght και το αποθηκεύει σε μεταβλητό ύψος

Εάν ((ύψος <= 0) ((βάρος <= 0)) Τότε 'έλεγχος εγκυρότητας για να διασφαλιστεί ότι δεν έχουν εισαχθεί μη φυσικά δεδομένα εκκαθάριση () MsgBox ("παρακαλώ εισάγετε ρεαλιστικές τιμές") Έξοδος από τον τερματισμό

ΔΜΣ = υπολογισμός βάρους / ύψους του ΔΜΣ

ΔΜΣ = Μορφή (ΔΜΣ, "0,00") 'γράφει ΔΜΣ σε δύο δεκαδικά ψηφία txtresults. Text = BMI' γράφει ΔΜΣ σε textbox txtresults txtcomment. Text = "" "αδειάζει το σχόλιο του textbox για να επιτρέπεται η εισαγωγή δεδομένων

«υπολογίζει την κατάσταση σύμφωνα με τον ΔΜΣ

Εάν ο ΔΜΣ <18,5 Τότε "η κατάσταση μπορεί να διαφέρει στη χώρα σας

txtcomment. Text = "είστε κάτω από το βάρος"

ElseIf ((ΔΜΣ> = 18,5) Και (ΔΜΣ 24,9) Και (ΔΜΣ 29,9 Στη συνέχεια txtcomment. Text = "είστε παχύσαρκοι, λάβετε προφυλάξεις" Λήξη Αν

Τέλος υπο

Private Sub btnexit_Click (αποστολέας ως System. Object, e As System. EventArgs) Χειρίζεται btnexit. Κάντε κλικ

Λειτουργία Κλείσιμο () για έξοδο End SubPrivate Sub btnclear_Click (αποστολέας ως System. Object, e As System. EventArgs) Αντιμετωπίζει btnclear. Click cleanup () 'call sub routine cleanup End Sub Sub Cleanup ()' καθαρίζει κάθε textbox txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

Private Sub btnabout_Click (αποστολέας ως System. Object, e As System. EventArgs) Λαβές btnabout. Click

'αυτό είναι το μήνυμα που εμφανίζεται σε ξεχωριστό κιβώτιο msg

"μπορείτε να προσθέσετε ό, τι θέλετε μετά το παρακάτω σύμβολο" = ", αλλά πρέπει να βρίσκεται μεταξύ διπλών κόμματος (" ")

Dim message As String = "Αυτό το λογισμικό δημιουργήθηκε από τον Umair Bin Asim για χάρη της κοινωνικής ευαισθητοποίησης για την υγεία." & vbNewLine & "Μια παγκόσμια αύξηση του αριθμού των παχύσαρκων ανθρώπων έχει προκαλέσει πανικό στην υγεία καθώς ο αριθμός των περιπτώσεων καρδιακών παθήσεων και διαβήτη αυξάνεται." & vbNewLine & "Παρ 'όλα αυτά ένας μεγάλος αριθμός ανθρώπων δεν γνωρίζει αν είναι παχύσαρκοι ή όχι ή πώς να το αντιμετωπίσει." & vbNewLine & "Σε απάντηση σε αυτό που φτιάξαμε μια αριθμομηχανή για τον προσδιορισμό του ΔΜΣ σας και αν είστε παχύσαρκοι ή όχι". & vbNewLine & "Αυτά τα πρότυπα είναι σύμφωνα με την American Heart Association."

MsgBox (μήνυμα)

End Sub Private Sub btnhlp_Click (αποστολέας ως System. Object, e As System. EventArgs) Χειρίζεται btnhlp. Κάντε κλικ στο "προσθήκη οποιουδήποτε μηνύματος που θέλετε να γράψετε μεταξύ" "είναι κενό προς το παρόν Dim urgent_message As String =""

MsgBox (urgent_message)

Τέλος υποΤέλος Τάξης

Βήμα 6: Συγχαρητήρια Ο προγραμματισμός σας ολοκληρώθηκε

τώρα μπορείτε να υπολογίσετε τον ΔΜΣ σας και ξέρετε πώς να επεξεργαστείτε το λογισμικό σας σύμφωνα με τις προτιμήσεις σας

για να παίξετε το λογισμικό πατήστε το πράσινο βέλος στην επάνω γραμμή ή απλά πατήστε το F5 απολαύστε!

για τη διευκόλυνσή σας, δημοσιεύσαμε τη δική μας αριθμομηχανή (έτοιμη) καθώς και τον προγραμματισμό (σε αρχείο.txt)