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 !

PETITE CALCULETTE POUR TOUS LES MIRC


Information sur la source

Catégorie :Scripts Niveau : Débutant Date de création : 14/01/2004 Date de mise à jour : 17/01/2004 21:33:45 Vu : 3 638

Note :
5,67 / 10 - par 3 personnes
5,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

Description

calculette je m'étais trompé pour tous ceux a qui le code ne marche pas voici le nouveau
 

Source

  • menu * {
  • -
  • calculatrice:/dialog -m calculatrice calculatrice
  • }
  • ;##############
  • ;### dialog ###
  • ;##############
  • dialog calculatrice {
  • size 1 1 150 200
  • option dbu
  • button "ok",600, 600 600 60 60, ok
  • title "calculator"
  • edit "",1, 10 5 130 10, read autohs
  • button "0",2, 10 45 35 20
  • button "1",3, 50 45 35 20
  • button "2",4, 90 45 35 20
  • button "3",5, 10 70 35 20
  • button "4",6, 50 70 35 20
  • button "5",7, 90 70 35 20
  • button "6",8, 10 95 35 20
  • button "7",9, 50 95 35 20
  • button "8",10, 90 95 35 20
  • button "9",11, 10 120 35 20
  • box "",12, 5 35 140 115
  • button "+",13, 10 155 30 20
  • button "-",14, 45 155 30 20
  • button "x",15, 80 155 30 20
  • button "=",16, 45 180 30 20
  • button "Clear", 17,90 120 35 20
  • edit "",18, 10 25 130 10, read autohs
  • button ".",19, 50 120 35 20
  • button "/",20, 10 180 30 20
  • button "fermer",21, 80 180 30 20, ok
  • text "Calculette",22, 115 160 50 10
  • text "Par",23, 120 175 50 10
  • text "Tebonb",24, 115 190 50 10
  • }
  • ;#############
  • ;### event ###
  • ;#############
  • ON *:DIALOG:calculatrice:sclick:2: {
  • if ($did(18) == $null) { /set %bouton 0 $did(2).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 0 }
  • }
  • ON *:DIALOG:calculatrice:sclick:3: {
  • if ($did(18) == $null) { /set %bouton 1 $did(3).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 1 }
  • }
  • ON *:DIALOG:calculatrice:sclick:4: {
  • if ($did(18) == $null) { /set %bouton 2 $did(4).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 2 }
  • }
  • ON *:DIALOG:calculatrice:sclick:5: {
  • if ($did(18) == $null) { /set %bouton 3 $did(5).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 3 }
  • }
  • ON *:DIALOG:calculatrice:sclick:6: {
  • if ($did(18) == $null) { /set %bouton 4 $did(6).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 4 }
  • }
  • ON *:DIALOG:calculatrice:sclick:7: {
  • if ($did(18) == $null) { /set %bouton 5 $did(7).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 5 }
  • }
  • ON *:DIALOG:calculatrice:sclick:8: {
  • if ($did(18) == $null) { /set %bouton 6 $did(8).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 6 }
  • }
  • ON *:DIALOG:calculatrice:sclick:9: {
  • if ($did(18) == $null) { /set %bouton 7 $did(9).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 7 }
  • }
  • ON *:DIALOG:calculatrice:sclick:10: {
  • if ($did(18) == $null) { /set %bouton 8 $did(10).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 8 }
  • }
  • ON *:DIALOG:calculatrice:sclick:11: {
  • if ($did(18) == $null) { /set %bouton 9 $did(11).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  • elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 9 }
  • }
  • ON *:DIALOG:calculatrice:sclick:13: { .did -a calculatrice 1 + }
  • ON *:DIALOG:calculatrice:sclick:14: { .did -a calculatrice 1 - }
  • ON *:DIALOG:calculatrice:sclick:15: { .did -a calculatrice 1 * }
  • ON *:DIALOG:calculatrice:sclick:16: { .did -a calculatrice 18 $calc($did(1)) }
  • ON *:DIALOG:calculatrice:sclick:19: { .did -a calculatrice 1 . }
  • ON *:DIALOG:calculatrice:sclick:17: { var %clear = $did(1,calculatrice) | .did -r calculatrice 1 | .did -a calculatrice 1 $left(%clear,$calc($len(%clear) - 1 )) }
  • ON *:DIALOG:calculatrice:sclick:20: { .did -a calculatrice 1 / }
menu * {
  -
  calculatrice:/dialog -m calculatrice calculatrice
}
;##############
;### dialog ###
;##############

dialog calculatrice {
  size 1 1 150 200
  option dbu
  button "ok",600, 600 600 60 60, ok
  title "calculator"
  edit "",1, 10 5 130 10, read autohs
  button "0",2, 10 45 35 20
  button "1",3, 50 45 35 20
  button "2",4, 90 45 35 20
  button "3",5, 10 70 35 20
  button "4",6, 50 70 35 20
  button "5",7, 90 70 35 20
  button "6",8, 10 95 35 20
  button "7",9, 50 95 35 20
  button "8",10, 90 95 35 20
  button "9",11, 10 120 35 20
  box "",12, 5 35 140 115
  button "+",13, 10 155 30 20
  button "-",14, 45 155 30 20
  button "x",15, 80 155 30 20
  button "=",16, 45 180 30 20
  button "Clear", 17,90 120 35 20
  edit "",18, 10 25 130 10, read autohs
  button ".",19, 50 120 35 20
  button "/",20, 10 180 30 20
  button "fermer",21, 80 180 30 20, ok
  text "Calculette",22, 115 160 50 10
  text "Par",23, 120 175 50 10
  text "Tebonb",24, 115 190 50 10
}
;#############
;### event ###
;#############

ON *:DIALOG:calculatrice:sclick:2: { 
  if ($did(18) == $null) { /set %bouton 0 $did(2).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 0 }
}
ON *:DIALOG:calculatrice:sclick:3: { 
  if ($did(18) == $null) { /set %bouton 1 $did(3).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 1 }
}

ON *:DIALOG:calculatrice:sclick:4: { 
  if ($did(18) == $null) { /set %bouton 2 $did(4).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 2 }
}
ON *:DIALOG:calculatrice:sclick:5: { 
  if ($did(18) == $null) { /set %bouton 3 $did(5).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 3 }
}
ON *:DIALOG:calculatrice:sclick:6: { 
  if ($did(18) == $null) { /set %bouton 4 $did(6).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 4 }
}
ON *:DIALOG:calculatrice:sclick:7: { 
  if ($did(18) == $null) { /set %bouton 5 $did(7).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 5 }
}
ON *:DIALOG:calculatrice:sclick:8: { 
  if ($did(18) == $null) { /set %bouton 6 $did(8).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 6 }
}
ON *:DIALOG:calculatrice:sclick:9: { 
  if ($did(18) == $null) { /set %bouton 7 $did(9).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 7 }
}
ON *:DIALOG:calculatrice:sclick:10: { 
  if ($did(18) == $null) { /set %bouton 8 $did(10).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 8 }
}
ON *:DIALOG:calculatrice:sclick:11: { 
  if ($did(18) == $null) { /set %bouton 9 $did(11).text | /did -a calculatrice 1 $calc(%bouton * 10 + 1) }
  elseif ($did(18) != $null) { .did -r calculatrice 1 | .did -r calculatrice 18 | .did -a calculatrice 1 9 }
}
ON *:DIALOG:calculatrice:sclick:13: {  .did -a calculatrice 1 + }
ON *:DIALOG:calculatrice:sclick:14: { .did -a calculatrice 1 - }
ON *:DIALOG:calculatrice:sclick:15: { .did -a calculatrice 1 * }
ON *:DIALOG:calculatrice:sclick:16: { .did -a calculatrice 18 $calc($did(1)) }
ON *:DIALOG:calculatrice:sclick:19: { .did -a calculatrice 1 . }
ON *:DIALOG:calculatrice:sclick:17: { var %clear = $did(1,calculatrice) | .did -r calculatrice 1 | .did -a calculatrice 1 $left(%clear,$calc($len(%clear) - 1 )) }
ON *:DIALOG:calculatrice:sclick:20: { .did -a calculatrice 1 / }

Commentaires et avis

signaler à un administrateur
Commentaire de itello le 14/01/2004 21:50:58

Bouton BIG BIG. Et tu pourrais mettre plus de fonctions.... (pi par exemple)... Très simple....

Simplifiable aussi!!! Regarde ton dialog et reflechis. Puis un seul on suffirait pas?

Refait ton dialog mais reflechis, tu verras que tu peux simplifer ta calculette si tu modifies les ids.

Aide: ID1 = Button1
        ID2 = Button 2
.............................
Celui qui aide...

signaler à un administrateur
Commentaire de itello le 14/01/2004 22:09:54

Oùla, pire que je pensais... les resultats s'affichent les 1 sur les autres...
Des /did -a suivient de /did -r au lieu de faire /did -ra... Niveau scripting... mais au moins celà marche!

signaler à un administrateur
Commentaire de itello le 14/01/2004 22:32:15

Bon, j'ai craqué, j'ai simplifié:

menu * {
  -
  calculatrice:/dialog -m calculatrice calculatrice
}
dialog calculatrice {
  size 1 1 150 200
  option dbu
  button "ok",600, 600 600 60 60, ok
  title "calculator"
  button "1",1, 50 45 35 20
  button "2",2, 90 45 35 20
  button "3",3, 10 70 35 20
  button "4",4, 50 70 35 20
  button "5",5, 90 70 35 20
  button "6",6, 10 95 35 20
  button "7",7, 50 95 35 20
  button "8",8, 90 95 35 20
  button "9",9, 10 120 35 20
  button ".",10, 50 120 35 20
  button "/",11, 10 180 30 20
  button "+",12, 10 155 30 20
  button "-",13, 45 155 30 20
  button "x",14, 80 155 30 20
  button "0",15, 10 45 35 20
  edit "",16, 1 5 130 10, read autohs
  box "",17, 5 35 140 115
  button "=",18, 45 180 30 20
  button "Clear", 19,90 120 35 20
  edit "",20, 10 25 130 10, read autohs
  button "fermer",21, 80 180 30 20, ok
  text "Calculette",22, 115 160 50 10
  text "Par",23, 120 175 50 10
  text "Tebonb",24, 115 190 50 10
}

Avec ce dialog, voici le on DIALOG que je fait:


on *:dialog:calculatrice:sclick:*: {
  if (( $did > 0 ) && ( $did < 16 )) { did -a calculatrice 16 $did($did).text }
  if ( $did == 18 ) { did -ar calculatrice 20 $calc($did(16)) }
  if ( $did == 19 ) { set -u0 %clear $did(calculatrice,16) | did -ar calculatrice 16 $left(%clear,$calc($len(%clear) - 1 )) }
}

Lequel est le plus court?

signaler à un administrateur
Commentaire de ReMi34 le 15/01/2004 06:42:21

C'est clair que tu pourrais largement la simplifier !!!

PS: itello- juste un conseil, quand tu à l'évènement :

on *:dialog:calculatrice:sclick:*: {
if (( $did > 0 ) && ( $did < 16 )) { did -a calculatrice 16 $did($did).text }
if $did == 18 { did -ra calculatrice 20$calc($did(16)) }
if $did == 19 { set -u0 %clear did(calculatrice,16) | did -ra calculatrice 16 $left(%clear,$calc($len(%clear) - 1 ))
}

Ca c'est bon aussi :)

signaler à un administrateur
Commentaire de vesparo le 15/01/2004 13:05:50

ce ki me fait bien rire:
   text "Calculette",22, 115 160 50 10
    text "Par",23, 120 175 50 10
    text "Tebonb",24, 115 190 50 10
pk ne pas mettre tout ca sur une ligne ? :|
6/10

signaler à un administrateur
Commentaire de Kolibot le 15/01/2004 13:16:17

Vous me faites rire ... :D ^^ vos optimisations sont pas trop mal ... même si dans le script de Remi il manque un $ ^^ MDR !!

Itello :

on *:dialog:calculatrice:sclick:*: {
  if $did > 0 && $did < 16 { did -a $dname 16 $did($did) }
  if $did == 18 { did -ra $dname 20 $calc($did(16)) }
  if $did == 19 { set -u0 %clear $did(calculatrice,16) | did -ar $dname 16 $left(%clear,$calc($len(%clear) - 1 )) }
}

signaler à un administrateur
Commentaire de Kolibot le 15/01/2004 13:24:47

Pour ce qui est du script en lui même, ça reste vraiment basic... et quand tu lis le code de Kerrigan honnetement le tien lui arrive pas à la semelle ^^ mais bon... tu es surment un ptit nouveau donc soyons gentils ^^ au moins ce n'est pas quelque chose d'illegal !! et d'un certain point de vue, ce script peut avoir un interet .... J'aimerai savoir en outre si tu es Tebonb ... ?

signaler à un administrateur
Commentaire de talking le 15/01/2004 17:50:03

Kolibot => yes it's me tebonb but why ?

signaler à un administrateur
Commentaire de Kolibot le 15/01/2004 17:51:55

C'était pour savoir si tu étais un rippeur ou non... now que je sais je peux noter ... je te mets donc 5/10

signaler à un administrateur
Commentaire de vesparo le 16/01/2004 13:33:26

Kolibot Tebonb c'est la star de jv !!!!

signaler à un administrateur
Commentaire de Kolibot le 16/01/2004 13:34:18

c quoi jv ?

signaler à un administrateur
Commentaire de linkioto le 16/01/2004 17:51:24

c'est le serveur de jeuxvideo.com, irc.jeuxvideo.com

signaler à un administrateur
Commentaire de Kolibot le 16/01/2004 18:05:08

merci

signaler à un administrateur
Commentaire de hunter38 le 08/06/2007 20:55:43

j'veux pas faire le lech-bottes mais de toutes les calculatrice en socket du site c la meilleure

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

Photothèque Nouveau !



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,343 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é.