begin process at 2012 02 16 11:12:37
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > INDICE DE MASSE CORPOREL POUR SAVOIR SI VOUS ETES OBESE.

INDICE DE MASSE CORPOREL POUR SAVOIR SI VOUS ETES OBESE.


 Information sur la source

Note :
Aucune note
Catégorie :Divers Niveau :Débutant Date de création :18/12/2002 Date de mise à jour :18/12/2002 00:47:31 Vu :5 031
Auteur : icemanBruno

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

 Description

mon code source sert a determiner votre masse corporel
entrer votre taille votre poid et executer le progremme va vous donner votre taux de masse corporel.

Source

  • Private Sub cmdcalculer_Click()
  • txtimc.Text = Val(txtpoids.Text) / (Val(txttaille.Text) * Val(txttaille.Text))
  • End Sub
  • Private Sub cmdeffacer_Click()
  • txttaille.Text = ""
  • txtpoids.Text = ""
  • txtimc.Text = ""
  • txttaillepied = ""
  • txtpoidslivre = ""
  • End Sub
  • Private Sub cmdquitter_Click()
  • MsgBox "au revoir et faites attention à votre imc", vbInformation, "Bye"
  • End
  • End Sub
  • Private Sub txtpoidslivre_LostFocus()
  • txtpoids.Text = Val(txtpoidslivre.Text) * 0.453
  • End Sub
  • Private Sub txttaillepied_lostFocus()
  • txttaille.Text = Val(txttaillepied.Text) * 0.3048
  • End Sub
Private Sub cmdcalculer_Click()
txtimc.Text = Val(txtpoids.Text) / (Val(txttaille.Text) * Val(txttaille.Text))
End Sub

Private Sub cmdeffacer_Click()
txttaille.Text = ""
txtpoids.Text = ""
txtimc.Text = ""
txttaillepied = ""
txtpoidslivre = ""
End Sub

Private Sub cmdquitter_Click()
MsgBox "au revoir et faites attention à votre imc", vbInformation, "Bye"
End
End Sub






Private Sub txtpoidslivre_LostFocus()
txtpoids.Text = Val(txtpoidslivre.Text) * 0.453
End Sub

Private Sub txttaillepied_lostFocus()
txttaille.Text = Val(txttaillepied.Text) * 0.3048
End Sub



 Sources du même auteur

Source avec Zip DEUXIEME VERSION CALCULATRICE
OUTIL DE MESURE SURFACE
CALCULATRICE
Toutes les sources de icemanBruno

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de Vbsupernul le 18/12/2002 07:44:43

zzzzzzzzzzzzzzziiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiipppppppppppppppppppppppp
petit petit...

Le code me parraît bizarre: tu mets "txtimc.Text = Val(txtpoids.Text) / (Val(txttaille.Text) * Val" mais la valeur de val n'a pas été définie :|

Commentaire de SATANdemon le 18/12/2002 08:16:26

Vbsupernul : tu as oublier de retourné a la ligne, val() est une fonction que change une chaine de caractere en nombre.

si tu retourne a la ligne ca donne ca :
txtimc.Text = Val(txtpoids.Text) / (Val(txttaille.Text) * Val(txttaille.Text))

Commentaire de kent1 le 18/12/2002 09:53:38

Je crois qu'il faut faire attention quand tu écris ca :

txtimc.Text = Val(txtpoids.Text) / (Val(txttaille.Text) * Val(txttaille.Text))

A cause de la priorité sur les opérateurs, je me demande si vb n'evalue pas la division, puis remultipli le resultat de la division... si c le cas, tu te retrouve simplement avec la valeur du poids.
Enfin c qu'une idée, j'ai pas testé en réalité.

Commentaire de kent1 le 18/12/2002 09:55:54

oula je crois que j'ai louché... oubli le commentaire precedant

Commentaire de Antitrust le 18/12/2002 18:00:52

lol!!! sa sert pas a grand chose!!!!!!!!!!!

Commentaire de Antitrust le 18/12/2002 18:00:57

lol!!! sa sert pas a grand chose!!!!!!!!!!!

Commentaire de icemanBruno le 18/12/2002 21:31:04

salut les copain merci de vos commentaire,j,ai tester le programme et il fonctionne tres bien,et pour ceux qui dissent que sa sert a rien lolll
si votre santé ne sert a rien ne verifier pas si votre imc.
merci alp bye bye

Commentaire de icemanBruno le 20/12/2002 03:23:32

salut je suis nouveau sur se site j'ai débuter le vb sa fait une semaine j'ai 4 code sur le site je suis debutant mais j'ai seulement des commentaire negatif faut debuter par le niveau 1 non les proget vont devenir de plus en plus complexe avec le temps svp quand vous juger prener sa en compte il y a des debutant et des intermediaire mes code sont  de niv 1 mais il fonctionne tous tres bien

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
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,608 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)