CALCULATEUR D'INDICE DE MASSE CORPORELLE
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
1 nov. 2002 à 20:15
Tr0m Messages postés 29 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 27 janvier 2006 - 4 nov. 2002 à 11:43
Tr0m Messages postés 29 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 27 janvier 2006 - 4 nov. 2002 à 11:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4934-calculateur-d-indice-de-masse-corporelle
https://codes-sources.commentcamarche.net/source/4934-calculateur-d-indice-de-masse-corporelle
4 nov. 2002 à 11:43
5.30 mètres pour 1kg : votre poid est normal mouhahahah
2 nov. 2002 à 12:40
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 @++
2 nov. 2002 à 12:13
Bon courage pour la suite car je pense que tu vas le faire évoluer.
2 nov. 2002 à 11:25
1 nov. 2002 à 20:55
'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@+++
1 nov. 2002 à 20:15