Πώς να δημιουργήσετε μια αριθμομηχανή ΔΜΣ

Δημιουργία αριθμομηχανή ΔΜΣ που θα εμφανίσει τον Δείκτη Μάζας Σώματος στον υπολογιστή σας, αντί να χρειάζεται να χρησιμοποιήσετε ένα online έκδοση ή να κάνει τα μαθηματικά με το χέρι απαιτεί ελάχιστη γνώση προγραμματισμού και πρόσβαση στο λογισμικό προγραμματισμού , όπως η Visual Basic , Visual Basic.Net ή μια πιο πολύπλοκη γλώσσα . Για τον επαγγελματία χρήστη , η ελεύθερη Microsoft Visual Basic Express είναι ένας τρόπος για να δημιουργήσετε αυτόν τον υπολογιστή . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Visual Basic Express , κάντε κλικ στο " Νέο έργο ", επιλέξτε " εφαρμογή των Windows ", όπως η τύπο , το όνομα " BMI Calculator " και κάντε κλικ στο "OK". Αλλάξτε την ιδιότητα Κείμενο της φόρμας στον πίνακα Properties στο κάτω δεξί μέρος της οθόνης για να " BMI υπολογιστής . " 2

Δημιουργήστε δύο ετικέτες της φόρμας που εμφανίζεται κάνοντας διπλό κλικ στο εργαλείο ετικέτα στην εργαλειοθήκη στα αριστερά , που προσδιορίζονται με ένα μεγάλο "Α" και στη συνέχεια επαναλαμβάνοντας τη διαδικασία αυτή. Κάντε κλικ και σύρετε κάθε ετικέτα τώρα στη φόρμα έτσι ώστε η μία εμφανίζεται κάτω από την άλλη .
Εικόνων 3

Δημιουργία δύο πλαίσια κειμένου με τον ίδιο τρόπο , αυτή τη φορά διπλό κλικ στο " Πλαίσιο κειμένου " εργαλείο . Τοποθετήστε ένα πλαίσιο δίπλα σε κάθε ετικέτα . Δημιουργήστε ένα κουμπί εντολής κάνοντας διπλό κλικ στο " κουμπί" εργαλείο και τοποθετήστε το κάτω από τις ετικέτες .
Η 4

Δημιουργήστε μια τρίτη ετικέτα , όπως στο βήμα 2 και να εντοπίσετε το δίπλα στο κουμπί εντολής . Ρυθμίστε το μέγεθος των δύο πρώτες ετικέτες στον πίνακα Properties στα δεξιά της οθόνης χρησιμοποιώντας ένα πλάτος 180 και ύψος 25 . Κρατήστε την τρίτη ετικέτα το ίδιο ύψος , αλλά το πλάτος 150 .
5

Αλλάξτε την ιδιότητα κειμένου από την κορυφή ετικέτα για να διαβάσει " Εισάγετε το βάρος σας σε κιλά " και την ιδιότητα κείμενο της δεύτερης ετικέτας σε διάβαζε " Εισάγετε το ύψος σας σε ίντσες . " Διαγράψτε το κείμενο για την τρίτη ετικέτα και να κάνει το όνομα " BMIResult . " Αλλάξτε την ιδιότητα κείμενο του κουμπιού εντολής για να διαβάσετε "Υπολογισμός ".
Η

6 Κάντε διπλό κλικ στο κουμπί "Υπολογισμός " για να ανοίξετε το παράθυρο κώδικα και πληκτρολογήστε τον ακόλουθο κώδικα μεταξύ "Ιδιωτικό sub" και " End sub" γραμμές : Dim ΔΜΣ Όπως SingleDim Ύψος Όπως ShortDim βάρους Όπως ShortHeight = CShort ( Text2.Text ) Βάρος = CShort ( Text1.Text ) ΔΜΣ = ( βάρος /( Height_Renamed * Height_Renamed ) ) * 703BMI = CSng ( ΔΜΣ ) BMIResult . Text = " ΔΜΣ σας είναι " & BMI.ToString ( " F1" )
Η

7 Ελέγξτε το πρόγραμμα πατώντας το πλήκτρο " F5 " για τα πλήκτρα λειτουργίας . Το αποτέλεσμα πρέπει να σκάσει επάνω στον κενό χώρο δίπλα στο " Υπολογισμός ". Αν συμβεί αυτό, πατήστε το πλήκτρο " CTRL + S" για να σώσει . Αν όχι , πηγαίνετε πίσω και ελέγξτε την κωδικοποίηση και τα ονόματα των ετικετών . Στη συνέχεια, κάντε κλικ στο κουμπί " Build ". Καρφώστε το προκύπτον αρχείο EXE στο μενού Έναρξη ή να το αντιγράψετε στην επιφάνεια εργασίας .
Η
εικόνων