AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 20:54:29
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

INDICE DE MASSE CORPOREL POUR SAVOIR SI VOUS ETES OBESE.


Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 18/12/2002 Date de mise à jour : 18/12/2002 00:47:31 Vu : 4 370
Auteur : icemanBruno Ecrire un message privé
Note :
Aucune note
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

Commentaires et avis

signaler à un administrateur
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 :|

signaler à un administrateur
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))

signaler à un administrateur
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é.

signaler à un administrateur
Commentaire de kent1 le 18/12/2002 09:55:54

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

signaler à un administrateur
Commentaire de Antitrust le 18/12/2002 18:00:52

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

signaler à un administrateur
Commentaire de Antitrust le 18/12/2002 18:00:57

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

signaler à un administrateur
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

signaler à un administrateur
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

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


LG KP501
Entre 9€ et 159€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto Cockpit Airbus A320
Photo femme plage beauté 

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
Temps d'éxécution de la page : 0,515 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.