Calculateur de poids idéal

Commenter

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

S'inscrire maintenant

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.

Du même auteur (XerBo)