CALCULATRICE EN DIALOG , Source N°14594

Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 23/03/2003 Date de mise à jour : 02/05/2003 16:41:25 Vu : 2 869

Auteur : Tommlkj

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

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

Source

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. } }
}

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. } }
}

Sources du même auteur

Toutes les sources de Tommlkj

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de Parasite le 23/03/2003 15:21:48

Le codes aurait pu etre optimisé avec
on *:dialog:calculatrice:sclick:*:{
if ($did == 6) { ... }
if ($did == 8) { ... }
ect....
Commentaire de Tommlkj le 24/03/2003 19:03:10

Voila, c'est modifier ;)
Commentaire de Parasite le 24/03/2003 20:01:39

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 :)
Commentaire de tiot le 29/03/2003 18:01:17

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) { ... }
Commentaire de Tommlkj le 02/05/2003 20:40:58

... c'est pareil !