Imc : indice de masse corporelle

Télécharger le projet
Commenter

Description

Ce code vous permet de calculer l`IMC ou l`Indice de Masse Corporelle qui vous permet de savoir si vous etes maigres , obeses ...
Programme créé par Joseph El Khoury - JELK CORPORATION 2007
Pour plus d`infos allez sur http://www.jelkco.new.fr

Source / Exemple : 


Public Class Form1

    Private Sub ButtonCalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcul.Click
        Dim taillecm As Double = TbTaille.Text
        Dim taillem = taillecm * 10 ^ -2
        Dim poids As Double = TbPoids.Text

        TbImc.Text = (poids) / (taillem) ^ 2
        TbPi.Text = 22 * (taillem) ^ 2
        TbM.Text = 18.5 * (taillem) ^ 2
        TbS.Text = 25 * (taillem) ^ 2
        TbO.Text = 30 * (taillem) ^ 2

        If poids < TbM.Text Then
            MessageBox.Show("Maigre")
        ElseIf poids >= TbM.Text And poids <= TbS.Text Then
            MessageBox.Show("Normal")
        ElseIf poids > TbS.Text And poids <= TbO.Text Then
            MessageBox.Show("Surpoids")
        ElseIf poids > TbO.Text Then
            MessageBox.Show("Obese")
        End If

    End Sub

    Private Sub ButtonQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuitter.Click
        Me.Close()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        Application.Restart()
    End Sub
End Class
Télécharger le projet

Codes Sources

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (JelkCo)