Calculateur d'indice de masse corporelle

Soyez le premier à donner votre avis sur cette source.

Vue 2 999 fois - Téléchargée 199 fois

Description

C'est mon premier prog et j'ai penser que c'était mieux de faire ça que de faire un convertisseur.
Ce programme sert a savoir si une personne est obèse ou pas.
Dans la source je pose une question, merci d'y répondre dans les commentaires comme ça y aurat pas plusieurs personnes a y répondre et tout le monde pourrat en profiter.

Ayez pitier du petit débutant que je suis. Merci

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
29
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
27 janvier 2006

mouahahahahahah
5.30 mètres pour 1kg : votre poid est normal mouhahahah
Messages postés
137
Date d'inscription
lundi 14 octobre 2002
Statut
Membre
Dernière intervention
21 janvier 2009

voila le code vérifier ca fonstionne

Private Sub Text1_LostFocus()
p = Text1.Text

If p = "" Then
Text1.Text = "0.0 Kg"
Else
If InStr(1, Text1.Text, "Kg") = 0 Then
Text1.Text = p + " Kg"
End If
End If

End Sub

Private Sub Text2_LostFocus()
t = Text2.Text

If t = "" Then
Text2.Text = "0.0 mètres "
Else
If InStr(1, Text2.Text, "mètres") = 0 Then
Text2.Text = t + " mètres"
End If
End If
End Sub

ecoute les remarques des autres c'est intérressant

sinon tu devrais mettre un label pour le "Kg" et le "métres" comme ca tu n'aura plus de souci.

ciao @++
Messages postés
110
Date d'inscription
mercredi 24 avril 2002
Statut
Membre
Dernière intervention
12 août 2010
1
ton idée peut etre assez sympa mais ton programme est nul, il ne donne que 2 solutions soit tu es normal soit tu es obèse, j'ai simulé quelqu'un de 1m90 qui pèse 20kg trouves tu ceci normal. Un bon programmeur imagine tous les cas de figures et pas seulement 1.

Bon courage pour la suite car je pense que tu vas le faire évoluer.
Messages postés
37
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
13 mars 2003

Je suis tout mègre et on prog marque que je suis obese...ce nul
Messages postés
137
Date d'inscription
lundi 14 octobre 2002
Statut
Membre
Dernière intervention
21 janvier 2009

reponse:

'Comment faire pour ne pas, que si on se retire du texte 2
'sans avoir rien toucher ni suprimer, le"Kg" ne se rajoute pas au précédent
'mais qu'on ne perde pas ce qu'il y avait avant le "Kg"
Private Sub Text1_LostFocus()
p = Text1.Text
If p = "" Then
Text1.Text = "0.0 Kg"
Else
If instr(Text1.text,0)=0 then
Text1.Text = p + " Kg"
Else
End If
End Sub

voila j'éspére que ca marche j'ai pas vérifier

ciao@+++
Afficher les 6 commentaires

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.