PETITE CALCULETTE POUR TOUS LES MIRC

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