Calculatrice en dialog

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 796 fois - Téléchargée 26 fois

Contenu du snippet

Il sert juste de calculatrice lol, c tout simple. Pour la calculatrice, tapez /calculatrice

Source / Exemple :


menu menubar { 
  -
  Calculatrice:dialog -m Calculatrice Calculatrice
}
alias Calculatrice {
dialog -m dialog -m Calculatrice Calculatrice
}
dialog Calculatrice {
  title "Calculatrice"
  size -1 -1 61 109
  option dbu
  edit "", 1, 0 13 61 10, read autohs
  edit "", 2, 0 23 61 10, read autohs
  text "Calculatrice par Tom_mlkj", 3, 0 2 61 8
  button "1", 4, 2 35 13 12
  button "2", 5, 16 35 13 12
  button "3", 6, 30 35 13 12
  button "4", 7, 2 48 13 12
  button "5", 8, 16 48 13 12
  button "6", 9, 30 48 13 12
  button "7", 10, 2 61 13 12
  button "8", 11, 16 61 13 12
  button "9", 12, 30 61 13 12
  button "0", 13, 2 74 13 12
  button ".", 14, 16 74 13 12
  button "C", 15, 30 74 13 12
  button "+", 16, 44 35 13 12
  button "-", 17, 44 48 13 12
  button "x", 18, 44 61 13 12
  button "÷", 19, 44 74 13 12
  button "Fermer", 20, 2 96 55 12, cancel
  button "=", 21, 2 87 55 8
}
On *:dialog:calculatrice:sclick:*:{
  if ( $did == 4 ) { did -r Calculatrice 2 | did -a Calculatrice 1 1 }
  if ( $did == 5 ) { did -r Calculatrice 2 | did -a Calculatrice 1 2 }
  if ( $did == 6 ) { did -r Calculatrice 2 | did -a Calculatrice 1 3 }
  if ( $did == 7 ) { did -r Calculatrice 2 | did -a Calculatrice 1 4 }
  if ( $did == 8 ) { did -r Calculatrice 2 | did -a Calculatrice 1 5 }
  if ( $did == 9 ) { did -r Calculatrice 2 | did -a Calculatrice 1 6 }
  if ( $did == 10 ) { did -r Calculatrice 2 | did -a Calculatrice 1 7 }
  if ( $did == 11 ) { did -r Calculatrice 2 | did -a Calculatrice 1 8 }
  if ( $did == 12 ) { did -r Calculatrice 2 | did -a Calculatrice 1 9 }
  if ( $did == 13 ) { did -r Calculatrice 2 | did -a Calculatrice 1 0 }
  if ( $did == 14 ) { did -r Calculatrice 2 | did -a Calculatrice 1 . }
  if ( $did == 15 ) { did -r Calculatrice 2 | did -r Calculatrice 1 }
  if ( $did == 16 ) { did -r Calculatrice 2 | did -a Calculatrice 1 + }
  if ( $did == 17 ) { did -r Calculatrice 2 | did -a Calculatrice 1 - }
  if ( $did == 18 ) { did -r Calculatrice 2 | did -a Calculatrice 1 * }
  if ( $did == 19 ) { did -r Calculatrice 2 | did -a Calculatrice 1 / }
  if ( $did == 20 ) { echo -s Par 5Tom_mlkj. }
  if ( $did == 21 ) { set %calcul.calculatrice  $calc($did(1)) | did -r Calculatrice 1 | did -a Calculatrice 2 %calcul.calculatrice | if ( %calcul.calculatrice == 0 ) { did -a Calculatrice 2 ou Erreur. } }
}

A voir également

Ajouter un commentaire Commentaires
Messages postés
29
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
4 août 2003

... c'est pareil !
Messages postés
83
Date d'inscription
samedi 9 novembre 2002
Statut
Membre
Dernière intervention
18 août 2004

tient même remarque, c bien de mettre

if ($did == 1) { }
if ($did == 2) { }
...

mais c encore mieux

if ($did == 1) { ... }
elseif ($did == 2) { ... }
elseif ($did == 3) { ... }
Messages postés
6
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
24 mars 2003

Sinon dans les calculette en général ya une touche -> pour enlever juste le dernier chiffre du calcul, et pour t'aider la commande c'est :
did -ra $remove($did(1).text,$did(1).selend)
enfin sa reste du superflue.
Bonne continuation :)
Messages postés
29
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
4 août 2003

Voila, c'est modifier ;)
Messages postés
6
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
24 mars 2003

Le codes aurait pu etre optimisé avec
on *:dialog:calculatrice:sclick:*:{
if ($did == 6) { ... }
if ($did == 8) { ... }
ect....

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.