Calculateur de poids idéal

0/5 (3 avis)

Snippet vu 12 491 fois - Téléchargée 27 fois

Contenu du snippet

Allez les fifilles qui arretent pas de nous casser les pieds: " Chéri comment tu me trouve? tu trouve que j'ai pris du poids?" jetez vous dessus :p je rigole bien sur :)

Source / Exemple :


Alias poidcalc { /dialog -m poidcalc poidcalc }
Dialog poidcalc {
  title "¤ Poid Calculator /poidcalc ¤"
  size -1 -1 125 87
  Option dbu
  Icon images\poidcalc.ico
  Text "Quel est votre poid en KG (ex: 60.5) ?",1,2 2 100 10
  Edit "",2,97 2 25 10,center
  Text "Quel est votre taille en M (ex: 1.70) ?",3,2 17 100 10
  Edit "",4,97 16 25 10,center
  Box "Résultat",5,2 30 120 40
  Edit "Classe",6,10 40 105 10,read,center
  Edit "Poid idéal",7,10 55 105 10,read,center
  Button "Calculer",8,20 75 40 10
  Button "Fermer",9,62 75 40 10,ok
}
On *:dialog:poidcalc:sclick:8: {
  /set %pc.p $did(2)
  /set %pc.t $did(4)
  if ($calc(%pc.p / $calc(%pc.t * %pc.t)) >= 35) { /did -ra poidcalc 6 Votre classe est obésité majeur }
  if ($calc(%pc.p / $calc(%pc.t * %pc.t)) <= 20) { /did -ra poidcalc 6 Votre classe est sous-poid }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 20) { /did -ra poidcalc 6 Votre classe est normal }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 21) { /did -ra poidcalc 6 Votre classe est normal }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 22) { /did -ra poidcalc 6 Votre classe est normal }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 23) { /did -ra poidcalc 6 Votre classe est normal }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 24) { /did -ra poidcalc 6 Votre classe est normal }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 25) { /did -ra poidcalc 6 Votre classe est sur-poid }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 26) { /did -ra poidcalc 6 Votre classe est sur-poid }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 27) { /did -ra poidcalc 6 Votre classe est sur-poid }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 28) { /did -ra poidcalc 6 Votre classe est sur-poid }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 29) { /did -ra poidcalc 6 Votre classe est sur-poid }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 30) { /did -ra poidcalc 6 Votre classe est obésité }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 31) { /did -ra poidcalc 6 Votre classe est obésité }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 32) { /did -ra poidcalc 6 Votre classe est obésité }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 33) { /did -ra poidcalc 6 Votre classe est obésité }
  if ($gettok($calc(%pc.p / $calc(%pc.t * %pc.t)),1,46) == 34) { /did -ra poidcalc 6 Votre classe est obésité }
  /did -ra poidcalc 7 Le poid idéal pour vous serait: $calc(22.5 * $calc(%pc.t * %pc.t)) $+ Kg
  /unset %pc.p
  /unset %pc.t
}
menu channel,status,menubar,chat {
.ø Poids Calculator ø:/poidcalc
}

Conclusion :


bon tapez /poidscalc pis vala c'est tres simple :)

A voir également

Ajouter un commentaire Commentaires
Messages postés
25
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
18 mai 2004

hihi chui normale !! :)) tu devrai dotre chose kome sa pour les filles :) sa les inisialiseré o script kome sa :) c ki yen a pa bcp :/
Messages postés
13
Date d'inscription
dimanche 25 mai 2003
Statut
Membre
Dernière intervention
26 août 2003

LoL c marant continu bien ;) +++
Messages postés
6
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
18 avril 2005

lol l'ai tester, mais suis un mec, et bon c vrai que je dois grossir mais je c po, c de famille, tant mieux... Mais c cool continue. ++

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.