begin process at 2010 03 22 15:12:54
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > CALCULATEUR D'INDICE DE MASSE CORPORELLE

CALCULATEUR D'INDICE DE MASSE CORPORELLE


 Information sur la source

Note :
Aucune note
Catégorie :Divers Niveau :Débutant Date de création :01/11/2002 Date de mise à jour :01/11/2002 16:13:24 Vu / téléchargé :1 451 / 78
Auteur : misterbux

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 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



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip LECTURE DXF, par pinatl
Source avec Zip Source .NET (Dotnet) GESTION DE RECETTES par DVDou
Source avec Zip Source avec une capture Source .NET (Dotnet) SYSTEMBACKUP.VB par DVDou
Source avec Zip Source avec une capture DESKTOP WALLPAPER V 5.0 par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) SPACE - UN SPACE MAC POUR WINDOWS par vbnino
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de Nox le 01/11/2002 20:15:38

mangez bien, vivez gros :p

Commentaire de krevette le 01/11/2002 20:55:05

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@+++

Commentaire de LaMoUcHe2002 le 02/11/2002 11:25:05

Je suis tout mègre et on prog marque que je suis obese...ce nul

Commentaire de Spylover le 02/11/2002 12:13:18

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.

Commentaire de krevette le 02/11/2002 12:40:09

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 @++

Commentaire de Tr0m le 04/11/2002 11:43:19

mouahahahahahah
5.30 mètres pour 1kg : votre poid est normal mouhahahah

 Ajouter un commentaire

Nos sponsors


Appels d'offres

Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)