Calculateur d'IMC : 6 étapes

2024 Auteur: John Day | [email protected]. Dernière modifié: 2024-01-30 09:08

Je m'appelle Umair Bin Asim. Je suis un étudiant de Global Perspective, faisant mes niveaux O. Ce projet fait partie d'une campagne de sensibilisation que moi et mes camarades de classe menons actuellement. Nous reconnaissons que l'obésité est un problème croissant dans le monde entier et encourageons les gens à lutter contre l'obésité avant qu'elle ne conduise à une catastrophe sociale majeure. Ce projet est l'une de nos nombreuses campagnes de sensibilisation.

Le calculateur d'IMC, a pour but de permettre aux personnes de calculer plus facilement leur indice de masse corporelle et de déterminer s'ils sont ou non obèses. Le calculateur que nous avons fabriqué est conforme aux normes de l'association américaine de la santé. Le but de cette publication est de permettre aux gens non seulement de fabriquer une calculatrice, mais aussi de leur permettre de modifier leurs calculatrices en fonction de leur norme nationale.

Étape 1: Création d'un nouveau projet Visual Studio

1. studio visuel ouvert
2. cliquez sur nouveau projet
3. sélectionner l'application du formulaire de veuves
4. renommer le projet en "calculateur IMC"
5. enregistrer le projet et mémoriser l'emplacement (je l'ai enregistré dans un lecteur séparé)

Étape 2: deux sections

il y a deux sections dans l'application de formulaire de fenêtres de studio visuel

1) Form1.vb [Conception]

ici, vous créez l'interface graphique

2) Form1.vb

ici tu écris ta programmation

vous pouvez choisir les onglets en les sélectionnant

Étape 3: Concevoir l'interface (étiquettes et zones de texte)

dans cette étape, vous devez concevoir l'interface utilisateur graphique.

1. sélectionnez les étiquettes dans la boîte à outils disponible (si vous ne trouvez pas la boîte à outils, appuyez sur Ctrl+Alt+x)
2. faites glisser l'étiquette sur le formulaire et disposez-les sur la droite. nous avons besoin de trois étiquettes
3. disposer les étiquettes le long de la gauche
4. cliquez sur les étiquettes et dans les propriétés changez Autosize en FALSE, cela vous permettra de redimensionner l'étiquette.

5. cliquez sur les étiquettes et dans les propriétés changez le texte en "taille", "poids", "votre IMC", respectivement.

6. vous pouvez également modifier d'autres paramètres dans les propriétés telles que la couleur et l'effet 3D.
7. faites glisser trois zones de texte de la boîte à outils et alignez-les le long de la gauche parallèlement aux étiquettes
8. cliquez sur la zone de texte et dans les propriétés modifiez les paramètres du nom en "txtheight", "txtweight", "txtresults"
9. vous pouvez également modifier d'autres paramètres dans les propriétés telles que la couleur et l'effet 3D.
10. créez une dernière zone de texte et alignez-la en bas, nommez cette zone de texte "txtcomment", cela donnera un résultat sur la base de l'IMC de la personne car la compréhension à partir des chiffres seuls peut être difficile.

11. changer le nom est essentiel car nous devrons appeler ces zones de texte dans notre programme, si vous préférez mettre un autre nom, vous devez également changer le nom du bouton référencé dans le programme. (les noms sont selon mon programme)

Étape 4: Concevoir l'interface (boutons)

placez des boutons en les faisant glisser depuis la boîte à outils et en les alignant comme indiqué sur l'image

pendant que le bouton est sélectionné, modifiez le nom du bouton dans les propriétés et vous pouvez également modifier le paramètre de texte.

• créer un bouton nommé "btncalc", avec le texte "calculer l'IMC"
• créer un nom de bouton "btnclear", avec le texte "clear"
• créer un nom de bouton "btnexit", avec le texte "exit"
• créer un nom de bouton "btnabout", avec le texte "en savoir plus sur nous"
• créez un nom de bouton "btnhlp", avec le texte "besoin d'aide ?" (je ne l'ai pas utilisé et il est laissé libre au cas où vous voudriez ajouter un bouton d'aide)

alignez les boutons dans le formulaire GUI comme bon vous semble

changer le nom est essentiel car nous devrons appeler ces boutons dans notre programme, si vous préférez mettre un autre nom, vous devez également changer le nom du bouton référencé dans le programme. (les noms sont selon mon programme)

Étape 5: Programmation de votre calculatrice

Formulaire de classe publique1

Private Sub btncalc_Click(sender As System. Object, e As System. EventArgs) Gère btncalc. Click

Dim height As Double = 0 'crée une variable nommée hauteur Dim weight As Double = 0 'crée une variable nommée poids Dim BMI As Double = 0 'crée une variable nommée BMI

txtresults. Text = ""

height = Double. Parse(txtheight. Text) 'lit les chiffres de la zone de texte txtheight et les enregistre dans la variable respective weight = Double. Parse(txtweight. Text) 'lit les chiffres de la zone de texte txtweight et les enregistre dans la variable respective height = height * 0.0254 'convertit la hauteur en mètres poids = poids * 0.4535924 'convertit le poids en kilogrammes hauteur = hauteur * hauteur 'carre la hauteur et l'enregistre en hauteur variable

If ((hauteur <= 0) Ou (poids <= 0)) Then 'contrôle de validité pour s'assurer que des données non naturelles ne sont pas saisies cleanup() MsgBox("veuillez insérer des valeurs réalistes") Exit Sub End If

IMC = poids/taille 'calcul de l'IMC

BMI = Format(BMI, "0.00") 'écrit l'IMC sur deux décimales txtresults. Text = BMI 'écrit l'IMC dans la zone de texte txtresults txtcomment. Text = "" 'vide le commentaire de la zone de texte pour permettre la saisie de données

'calcule la condition selon l'IMC

Si IMC < 18,5 Alors « l'état peut varier dans votre pays

txtcomment. Text = "vous avez un poids insuffisant"

ElseIf ((IMC >= 18,5) And (IMC 24,9) And (IMC 29,9 Then txtcomment. Text = "vous êtes obèse, veuillez prendre des précautions" End If

Fin du sous-marin

Private Sub btnexit_Click(sender As System. Object, e As System. EventArgs) Gère btnexit. Click

Close () 'fonction pour quitter End SubPrivate Sub btnclear_Click(sender As System. Object, e As System. EventArgs) Gère btnclear. Click cleanup() 'appelle le nettoyage de sous-routine End Sub cleanup() 'efface chaque zone de texte txtcomment. Text = "" txtheight. Clear() txtweight. Clear() txtresults. Text = "" txtheight. Focus() End Sub

Private Sub btnabout_Click(sender As System. Object, e As System. EventArgs) Gère btnabout. Click

'c'est le message affiché dans une msgbox séparée

'vous pouvez ajouter tout ce que vous voulez après le signe "=" ci-dessous mais il doit être entre deux virgules ("")

Dim message As String = "Ce logiciel a été créé par Umair Bin Asim dans un souci de sensibilisation sociale à la santé." & vbNewLine & " Une augmentation mondiale du nombre de personnes obèses a provoqué une panique sanitaire alors que le nombre de cas de maladies cardiaques et de diabète est en augmentation." & vbNewLine & " Malgré tout cela, un grand nombre de personnes ne savent pas si elles sont obèses ou comment y remédier." & vbNewLine & "En réponse à cela, nous avons créé une calculatrice pour déterminer votre IMC et si vous êtes obèse ou non." & vbNewLine & "Ces normes sont conformes à l'American Heart Association."

MsgBox(message)

End Sub Private Sub btnhlp_Click(sender As System. Object, e As System. EventArgs) Gère btnhlp. Click 'ajoute tout message que vous souhaitez écrire entre les "" ' il est vide pour l'instant Dim urgent_message As String = ""

MsgBox(urgent_message)

Fin du sous-marinClasse de fin

Étape 6: Félicitations, votre programmation est terminée

maintenant vous pouvez calculer votre IMC et vous savez éditer votre logiciel à votre guise

pour jouer au logiciel, appuyez sur la flèche verte sur la barre supérieure ou appuyez simplement sur F5, profitez-en !

pour votre commodité, nous avons mis en ligne notre propre calculatrice (prête à l'emploi) ainsi que la programmation (dans un fichier.txt)