CALCULATRICE EN PICWIN calc, calcul, calculatrice, picwin, atlantisfr, Source N°39221

Information sur la source

Catégorie :AddOns Classé sous : calc, calcul, calculatrice, picwin, atlantisfr Niveau : Débutant Date de création : 22/08/2006 Date de mise à jour : 23/08/2006 01:03:38 Vu : 1 710

Auteur : atlantisfr

Site perso

Ecrire un message privé

Note :

6,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Une calculatice en PicWin pour changer :)
Pour l'ouvrir tapez : /calc

Source

alias calc {
unset %calc
unset %calc2
window -BCdg0k0pRz +dl @Calc 0 0 327 134
drawfill -r @calc $rgb(218,240,252) 1 10 10
drawrect -f @calc 2 2 0 0 327 15
drawtext -roc @calc $rgb(250,250,250) Tahoma 10 5 3 200 20 Calculatrice par atlantisfr
drawrect @calc 2 2 0 15 327 119
drawrect @calc 2 2 0 15 337 129
drawrect -f @calc 4 2 314 3 11 11
drawrect @calc 0 1 314 3 11 11
drawrect -f @calc 3 2 301 3 11 11
drawrect @calc 0 1 301 3 11 11
drawrect -f @calc 15 2 5 20 156 17
drawrect @calc 2 2 5 20 156 17
drawrect -f @calc 15 2 5 40 156 17
drawrect @calc 2 2 5 40 156 17
drawrect -f @calc 15 2 5 60 50 15
drawrect @calc 2 2 5 60 50 15
drawtext -oc @calc 2 Tahoma 10 27 61 60 20 9
drawrect -f @calc 15 2 58 60 50 15
drawrect @calc 2 2 58 60 50 15
drawtext -oc @calc 2 Tahoma 10 80 61 60 20 8
drawrect -f @calc 15 2 111 60 50 15
drawrect @calc 2 2 111 60 50 15
drawtext -oc @calc 2 Tahoma 10 133 61 60 20 7
drawrect -f @calc 15 2 5 78 50 15
drawrect @calc 2 2 5 78 50 15
drawtext -oc @calc 2 Tahoma 10 27 79 60 20 6
drawrect -f @calc 15 2 58 78 50 15
drawrect @calc 2 2 58 78 50 15
drawtext -oc @calc 2 Tahoma 10 80 79 60 20 5
drawrect -f @calc 15 2 111 78 50 15
drawrect @calc 2 2 111 78 50 15
drawtext -oc @calc 2 Tahoma 10 133 79 60 20 4
drawrect -f @calc 15 2 5 96 50 15
drawrect @calc 2 2 5 96 50 15
drawtext -oc @calc 2 Tahoma 10 27 97 60 20 3
drawrect -f @calc 15 2 58 96 50 15
drawrect @calc 2 2 58 96 50 15
drawtext -oc @calc 2 Tahoma 10 80 97 60 20 2
drawrect -f @calc 15 2 111 96 50 15
drawrect @calc 2 2 111 96 50 15
drawtext -oc @calc 2 Tahoma 10 133 97 60 20 1
drawrect -f @calc 15 2 5 114 50 15
drawrect @calc 2 2 5 114 50 15
drawtext -oc @calc 2 Tahoma 10 27 115 60 20 0
drawrect -f @calc 15 2 58 114 50 15
drawrect @calc 2 2 58 114 50 15
drawtext -oc @calc 2 Tahoma 10 77 115 60 20 00
drawrect -f @calc 15 2 111 114 50 15
drawrect @calc 2 2 111 114 50 15
drawtext -oc @calc 2 Tahoma 10 135 112 60 20 ,
drawline @calc 2 2 165 20 165 128
drawrect -f @calc 15 2 169 20 75 15
drawrect @calc 2 2 169 20 75 15
drawtext -oc @calc 2 Tahoma 10 203 21 60 20 +
drawrect -f @calc 15 2 247 20 75 15
drawrect @calc 2 2 247 20 75 15
drawtext -oc @calc 2 Tahoma 10 282 21 60 20 -
drawrect -f @calc 15 2 169 38 75 15
drawrect @calc 2 2 169 38 75 15
drawtext -oc @calc 2 Tahoma 10 204 39 60 20 x
drawrect -f @calc 15 2 247 38 75 15
drawrect @calc 2 2 247 38 75 15
drawtext -oc @calc 2 Tahoma 10 280 39 60 20 ÷
drawrect -f @calc 15 2 169 56 36 15
drawrect @calc 2 2 169 56 36 15
drawtext -oc @calc 2 Tahoma 9 185 58 60 20 (
drawrect -f @calc 15 2 208 56 36 15
drawrect @calc 2 2 208 56 36 15
drawtext -oc @calc 2 Tahoma 9 224 58 60 20 )
drawrect -f @calc 15 2 247 56 75 15
drawrect @calc 2 2 247 56 75 15
drawtext -oc @calc 2 Tahoma 10 280 57 60 20 %
drawrect -f @calc 15 2 169 74 75 15
drawrect @calc 2 2 169 74 75 15
drawtext -oc @calc 2 Tahoma 10 185 75 60 20 Au carré
drawrect -f @calc 15 2 247 74 76 15
drawrect @calc 2 2 247 74 75 15
drawtext -oc @calc 2 Tahoma 10 280 75 60 20 Pi
drawrect -f @calc 15 2 169 92 76 15
drawrect @calc 2 2 169 92 76 15
drawtext -oc @calc 2 Tahoma 10 202 93 60 20 =
drawrect -f @calc 15 2 247 92 76 15
drawrect @calc 2 2 247 92 75 15
drawtext -oc @calc 2 Tahoma 10 267 93 60 20 Effacer
drawline @calc 2 2 169 111 321 111
drawrect -f @calc 15 2 169 114 153 15
drawrect @calc 2 2 169 114 153 15
drawtext -oc @calc 2 Tahoma 10 228 115 60 20 Fermer
}
alias -l calc.move {
if ($window(@calc)) window @calc $calc($mouse.dx - $1) $calc($mouse.dy - $2)
if ($mouse.key & 1) .timer $+ $ticks -m 1 0 calc.move $1-
}
menu @calc {
sclick {
if ($mouse.y < 15) { calc.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
if $inrect($mouse.x,$mouse.y,314,3,11,11) { window -c @calc }
if $inrect($mouse.x,$mouse.y,301,3,11,11) { window -n @calc }
if ($inrect($mouse.x,$mouse.y,5,60,50,15)) { set %calc %calc $+ 9 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,58,60,50,15)) { set %calc %calc $+ 8 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,111,60,50,15)) { set %calc %calc $+ 7 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,5,78,50,15)) { set %calc %calc $+ 6 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,58,78,50,15)) { set %calc %calc $+ 5 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,111,78,50,15)) { set %calc %calc $+ 4 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,5,96,50,15)) { set %calc %calc $+ 3 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,58,96,50,15)) { set %calc %calc $+ 2 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,111,96,50,15)) { set %calc %calc $+ 1 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,5,114,50,15)) { set %calc %calc $+ 0 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,58,114,50,15)) { set %calc %calc $+ 00 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,111,114,50,15)) { set %calc %calc $+ . | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,169,20,75,15)) { set %calc %calc $+ + | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,247,20,75,15)) { set %calc %calc $+ - | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,169,38,75,15)) { set %calc %calc $+ * | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,247,38,75,15)) { set %calc %calc $+ / | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,169,56,36,15)) { set %calc %calc $+ ( | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,208,56,36,15)) { set %calc %calc $+ ) | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,247,56,75,15)) { set %calc %calc $+ *10/100 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) }
if ($inrect($mouse.x,$mouse.y,169,74,75,15)) { set %calc2 %calc | set %calc2 $sqrt(%calc2) | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 %calc | drawrect -f @calc 15 2 5 40 156 17 | drawrect @calc 2 2 5 40 156 17 | drawtext -oc @calc 2 Tahoma 10 10 42 60 20 %calc2 }
if ($inrect($mouse.x,$mouse.y,169,92,76,15)) { set %calc2 %calc | set %calc2 $calc(%calc2) | drawrect -f @calc 15 2 5 40 156 17 | drawrect @calc 2 2 5 40 156 17 | drawtext -oc @calc 2 Tahoma 10 10 42 60 20 %calc2 }
if ($inrect($mouse.x,$mouse.y,247,92,76,15)) { drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawrect -f @calc 15 2 5 40 156 17 | drawrect @calc 2 2 5 40 156 17 | unset %calc | unset %calc2 }
if ($inrect($mouse.x,$mouse.y,169,114,153,15)) { window -c @calc }
}
mouse {
if $inrect($mouse.x,$mouse.y,301,3,11,11) { drawdot -f @calc 0 4 308 10 | drawrect @calc 0 1 301 3 11 11 }
else { drawrect -f @calc 3 2 301 3 11 11 | drawrect @calc 0 1 301 3 11 11 }
if $inrect($mouse.x,$mouse.y,314,3,11,11) { drawdot -f @calc 0 4 321 10 | drawrect @calc 0 1 314 3 11 11 }
else { drawrect -f @calc 4 2 314 3 11 11 | drawrect @calc 0 1 314 3 11 11 }
if ($inrect($mouse.x,$mouse.y,5,60,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 61 60 20 9 }
else { drawtext -oc @calc 2 Tahoma 10 27 61 60 20 9 }
if ($inrect($mouse.x,$mouse.y,58,60,50,15)) { drawtext -oc @calc 14 Tahoma 10 80 61 60 20 8 }
else { drawtext -oc @calc 2 Tahoma 10 80 61 60 20 8 }
if ($inrect($mouse.x,$mouse.y,111,60,50,15)) { drawtext -oc @calc 14 Tahoma 10 133 61 60 20 7 }
else { drawtext -oc @calc 2 Tahoma 10 133 61 60 20 7 }
if ($inrect($mouse.x,$mouse.y,5,78,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 79 60 20 6 }
else { drawtext -oc @calc 2 Tahoma 10 27 79 60 20 6 }
if ($inrect($mouse.x,$mouse.y,58,78,50,15)) { drawtext -oc @calc 14 Tahoma 10 80 79 60 20 5 }
else { drawtext -oc @calc 2 Tahoma 10 80 79 60 20 5 }
if ($inrect($mouse.x,$mouse.y,111,78,50,15)) { drawtext -oc @calc 14 Tahoma 10 133 79 60 20 4 }
else { drawtext -oc @calc 2 Tahoma 10 133 79 60 20 4 }
if ($inrect($mouse.x,$mouse.y,5,96,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 97 60 20 3 }
else { drawtext -oc @calc 2 Tahoma 10 27 97 60 20 3 }
if ($inrect($mouse.x,$mouse.y,58,96,50,15)) { drawtext -oc @calc 14 Tahoma 10 80 97 60 20 2 }
else { drawtext -oc @calc 2 Tahoma 10 80 97 60 20 2 }
if ($inrect($mouse.x,$mouse.y,111,96,50,15)) { drawtext -oc @calc 14 Tahoma 10 133 97 60 20 1 }
else { drawtext -oc @calc 2 Tahoma 10 133 97 60 20 1 }
if ($inrect($mouse.x,$mouse.y,5,114,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 115 60 20 0 }
else { drawtext -oc @calc 2 Tahoma 10 27 115 60 20 0 }
if ($inrect($mouse.x,$mouse.y,58,114,50,15)) { drawtext -oc @calc 14 Tahoma 10 77 115 60 20 00 }
else { drawtext -oc @calc 2 Tahoma 10 77 115 60 20 00 }
if ($inrect($mouse.x,$mouse.y,111,114,50,15)) { drawtext -oc @calc 14 Tahoma 10 135 112 60 20 , }
else { drawtext -oc @calc 2 Tahoma 10 135 112 60 20 , }
if ($inrect($mouse.x,$mouse.y,169,20,75,15)) { drawtext -oc @calc 14 Tahoma 10 203 21 60 20 + }
else { drawtext -oc @calc 2 Tahoma 10 203 21 60 20 + }
if ($inrect($mouse.x,$mouse.y,247,20,75,15)) { drawtext -oc @calc 14 Tahoma 10 282 21 60 20 - }
else { drawtext -oc @calc 2 Tahoma 10 282 21 60 20 - }
if ($inrect($mouse.x,$mouse.y,169,38,75,15)) { drawtext -oc @calc 14 Tahoma 10 204 39 60 20 x }
else { drawtext -oc @calc 2 Tahoma 10 204 39 60 20 x }
if ($inrect($mouse.x,$mouse.y,247,38,75,15)) { drawtext -oc @calc 14 Tahoma 10 280 39 60 20 ÷ }
else { drawtext -oc @calc 2 Tahoma 10 280 39 60 20 ÷ }
if ($inrect($mouse.x,$mouse.y,169,56,36,15)) { drawtext -oc @calc 14 Tahoma 9 185 58 60 20 ( }
else { drawtext -oc @calc 2 Tahoma 9 185 58 60 20 ( }
if ($inrect($mouse.x,$mouse.y,208,56,36,15)) { drawtext -oc @calc 14 Tahoma 9 224 58 60 20 ) }
else { drawtext -oc @calc 2 Tahoma 9 224 58 60 20 ) }
if ($inrect($mouse.x,$mouse.y,247,56,75,15)) { drawtext -oc @calc 14 Tahoma 10 280 57 60 20 % }
else { drawtext -oc @calc 2 Tahoma 10 280 57 60 20 % }
if ($inrect($mouse.x,$mouse.y,169,74,75,15)) { drawtext -oc @calc 14 Tahoma 10 185 75 60 20 Au carré }
else { drawtext -oc @calc 2 Tahoma 10 185 75 60 20 Au carré }
if ($inrect($mouse.x,$mouse.y,247,74,76,15)) { drawtext -oc @calc 14 Tahoma 10 280 75 60 20 Pi }
else { drawtext -oc @calc 2 Tahoma 10 280 75 60 20 Pi }
if ($inrect($mouse.x,$mouse.y,169,92,76,15)) { drawtext -oc @calc 14 Tahoma 10 202 93 60 20 = }
else { drawtext -oc @calc 2 Tahoma 10 202 93 60 20 = }
if ($inrect($mouse.x,$mouse.y,247,92,76,15)) { drawtext -oc @calc 14 Tahoma 10 267 93 60 20 Effacer }
else { drawtext -oc @calc 2 Tahoma 10 267 93 60 20 Effacer }
if ($inrect($mouse.x,$mouse.y,169,114,153,15)) { drawtext -oc @calc 14 Tahoma 10 228 115 60 20 Fermer }
else { drawtext -oc @calc 2 Tahoma 10 228 115 60 20 Fermer }
}
Fermer la fenêtre:window -c @calc
Minimiser la fenêtre:window -n @calc
}

alias calc { 
  unset %calc 
  unset %calc2 
  window -BCdg0k0pRz +dl @Calc 0 0 327 134 
  drawfill -r @calc $rgb(218,240,252) 1 10 10 
  drawrect -f @calc 2 2 0 0 327 15 
  drawtext -roc @calc $rgb(250,250,250) Tahoma 10 5 3 200 20 Calculatrice par atlantisfr 
  drawrect @calc 2 2 0 15 327 119 
  drawrect @calc 2 2 0 15 337 129 
  drawrect -f @calc 4 2 314 3 11 11 
  drawrect @calc 0 1 314 3 11 11 
  drawrect -f @calc 3 2 301 3 11 11 
  drawrect @calc 0 1 301 3 11 11 
  drawrect -f @calc 15 2 5 20 156 17 
  drawrect @calc 2 2 5 20 156 17 
  drawrect -f @calc 15 2 5 40 156 17 
  drawrect @calc 2 2 5 40 156 17 
  drawrect -f @calc 15 2 5 60 50 15 
  drawrect @calc 2 2 5 60 50 15 
  drawtext -oc @calc 2 Tahoma 10 27 61 60 20 9 
  drawrect -f @calc 15 2 58 60 50 15 
  drawrect @calc 2 2 58 60 50 15 
  drawtext -oc @calc 2 Tahoma 10 80 61 60 20 8 
  drawrect -f @calc 15 2 111 60 50 15 
  drawrect @calc 2 2 111 60 50 15 
  drawtext -oc @calc 2 Tahoma 10 133 61 60 20 7 
  drawrect -f @calc 15 2 5 78 50 15 
  drawrect @calc 2 2 5 78 50 15 
  drawtext -oc @calc 2 Tahoma 10 27 79 60 20 6 
  drawrect -f @calc 15 2 58 78 50 15 
  drawrect @calc 2 2 58 78 50 15 
  drawtext -oc @calc 2 Tahoma 10 80 79 60 20 5 
  drawrect -f @calc 15 2 111 78 50 15 
  drawrect @calc 2 2 111 78 50 15 
  drawtext -oc @calc 2 Tahoma 10 133 79 60 20 4 
  drawrect -f @calc 15 2 5 96 50 15 
  drawrect @calc 2 2 5 96 50 15 
  drawtext -oc @calc 2 Tahoma 10 27 97 60 20 3 
  drawrect -f @calc 15 2 58 96 50 15 
  drawrect @calc 2 2 58 96 50 15 
  drawtext -oc @calc 2 Tahoma 10 80 97 60 20 2 
  drawrect -f @calc 15 2 111 96 50 15 
  drawrect @calc 2 2 111 96 50 15 
  drawtext -oc @calc 2 Tahoma 10 133 97 60 20 1 
  drawrect -f @calc 15 2 5 114 50 15 
  drawrect @calc 2 2 5 114 50 15 
  drawtext -oc @calc 2 Tahoma 10 27 115 60 20 0 
  drawrect -f @calc 15 2 58 114 50 15 
  drawrect @calc 2 2 58 114 50 15 
  drawtext -oc @calc 2 Tahoma 10 77 115 60 20 00 
  drawrect -f @calc 15 2 111 114 50 15 
  drawrect @calc 2 2 111 114 50 15 
  drawtext -oc @calc 2 Tahoma 10 135 112 60 20 , 
  drawline @calc 2 2 165 20 165 128 
  drawrect -f @calc 15 2 169 20 75 15 
  drawrect @calc 2 2 169 20 75 15 
  drawtext -oc @calc 2 Tahoma 10 203 21 60 20 + 
  drawrect -f @calc 15 2 247 20 75 15 
  drawrect @calc 2 2 247 20 75 15 
  drawtext -oc @calc 2 Tahoma 10 282 21 60 20 - 
  drawrect -f @calc 15 2 169 38 75 15 
  drawrect @calc 2 2 169 38 75 15 
  drawtext -oc @calc 2 Tahoma 10 204 39 60 20 x 
  drawrect -f @calc 15 2 247 38 75 15 
  drawrect @calc 2 2 247 38 75 15 
  drawtext -oc @calc 2 Tahoma 10 280 39 60 20 ÷ 
  drawrect -f @calc 15 2 169 56 36 15 
  drawrect @calc 2 2 169 56 36 15 
  drawtext -oc @calc 2 Tahoma 9 185 58 60 20 ( 
  drawrect -f @calc 15 2 208 56 36 15 
  drawrect @calc 2 2 208 56 36 15 
  drawtext -oc @calc 2 Tahoma 9 224 58 60 20 ) 
  drawrect -f @calc 15 2 247 56 75 15 
  drawrect @calc 2 2 247 56 75 15 
  drawtext -oc @calc 2 Tahoma 10 280 57 60 20 % 
  drawrect -f @calc 15 2 169 74 75 15 
  drawrect @calc 2 2 169 74 75 15 
  drawtext -oc @calc 2 Tahoma 10 185 75 60 20 Au carré 
  drawrect -f @calc 15 2 247 74 76 15 
  drawrect @calc 2 2 247 74 75 15 
  drawtext -oc @calc 2 Tahoma 10 280 75 60 20 Pi 
  drawrect -f @calc 15 2 169 92 76 15 
  drawrect @calc 2 2 169 92 76 15 
  drawtext -oc @calc 2 Tahoma 10 202 93 60 20 = 
  drawrect -f @calc 15 2 247 92 76 15 
  drawrect @calc 2 2 247 92 75 15 
  drawtext -oc @calc 2 Tahoma 10 267 93 60 20 Effacer 
  drawline @calc 2 2 169 111 321 111 
  drawrect -f @calc 15 2 169 114 153 15 
  drawrect @calc 2 2 169 114 153 15 
  drawtext -oc @calc 2 Tahoma 10 228 115 60 20 Fermer 
} 

alias -l calc.move { 
  if ($window(@calc)) window @calc $calc($mouse.dx - $1) $calc($mouse.dy - $2) 
  if ($mouse.key & 1) .timer $+ $ticks -m 1 0 calc.move $1- 
} 

menu @calc { 
  sclick { 
    if ($mouse.y < 15) { calc.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) } 
    if $inrect($mouse.x,$mouse.y,314,3,11,11) { window -c @calc } 
    if $inrect($mouse.x,$mouse.y,301,3,11,11) { window -n @calc } 
    if ($inrect($mouse.x,$mouse.y,5,60,50,15)) { set %calc %calc $+ 9 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,58,60,50,15)) { set %calc %calc $+ 8 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,111,60,50,15)) { set %calc %calc $+ 7 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,5,78,50,15)) { set %calc %calc $+ 6 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,58,78,50,15)) { set %calc %calc $+ 5 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,111,78,50,15)) { set %calc %calc $+ 4 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,5,96,50,15)) { set %calc %calc $+ 3 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,58,96,50,15)) { set %calc %calc $+ 2 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,111,96,50,15)) { set %calc %calc $+ 1 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,5,114,50,15)) { set %calc %calc $+ 0 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,58,114,50,15)) { set %calc %calc $+ 00 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,111,114,50,15)) { set %calc %calc $+ . | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,169,20,75,15)) { set %calc %calc $+ + | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,247,20,75,15)) { set %calc %calc $+ - | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,169,38,75,15)) { set %calc %calc $+ * | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,247,38,75,15)) { set %calc %calc $+ / | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,169,56,36,15)) { set %calc %calc $+ ( | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,208,56,36,15)) { set %calc %calc $+ ) | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,247,56,75,15)) { set %calc %calc $+ *10/100 | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 $replace(%calc,*,x,/,÷) } 
    if ($inrect($mouse.x,$mouse.y,169,74,75,15)) { set %calc2 %calc | set %calc2 $sqrt(%calc2) | drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawtext -oc @calc 2 Tahoma 10 10 22 150 20 %calc | drawrect -f @calc 15 2 5 40 156 17 | drawrect @calc 2 2 5 40 156 17 | drawtext -oc @calc 2 Tahoma 10 10 42 60 20 %calc2 } 
    if ($inrect($mouse.x,$mouse.y,169,92,76,15)) { set %calc2 %calc | set %calc2 $calc(%calc2) | drawrect -f @calc 15 2 5 40 156 17 | drawrect @calc 2 2 5 40 156 17 | drawtext -oc @calc 2 Tahoma 10 10 42 60 20 %calc2 } 
    if ($inrect($mouse.x,$mouse.y,247,92,76,15)) { drawrect -f @calc 15 2 5 20 156 17 | drawrect @calc 2 2 5 20 156 17 | drawrect -f @calc 15 2 5 40 156 17 | drawrect @calc 2 2 5 40 156 17 | unset %calc | unset %calc2 } 
    if ($inrect($mouse.x,$mouse.y,169,114,153,15)) { window -c @calc } 
  } 
  mouse { 
    if $inrect($mouse.x,$mouse.y,301,3,11,11) { drawdot -f @calc 0 4 308 10 | drawrect @calc 0 1 301 3 11 11 } 
    else { drawrect -f @calc 3 2 301 3 11 11 | drawrect @calc 0 1 301 3 11 11 } 
    if $inrect($mouse.x,$mouse.y,314,3,11,11) { drawdot -f @calc 0 4 321 10 | drawrect @calc 0 1 314 3 11 11 } 
    else { drawrect -f @calc 4 2 314 3 11 11 | drawrect @calc 0 1 314 3 11 11 } 
    if ($inrect($mouse.x,$mouse.y,5,60,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 61 60 20 9 } 
    else { drawtext -oc @calc 2 Tahoma 10 27 61 60 20 9 } 
    if ($inrect($mouse.x,$mouse.y,58,60,50,15)) { drawtext -oc @calc 14 Tahoma 10 80 61 60 20 8 } 
    else { drawtext -oc @calc 2 Tahoma 10 80 61 60 20 8 } 
    if ($inrect($mouse.x,$mouse.y,111,60,50,15)) { drawtext -oc @calc 14 Tahoma 10 133 61 60 20 7 } 
    else { drawtext -oc @calc 2 Tahoma 10 133 61 60 20 7 } 
    if ($inrect($mouse.x,$mouse.y,5,78,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 79 60 20 6 } 
    else { drawtext -oc @calc 2 Tahoma 10 27 79 60 20 6 } 
    if ($inrect($mouse.x,$mouse.y,58,78,50,15)) { drawtext -oc @calc 14 Tahoma 10 80 79 60 20 5 } 
    else { drawtext -oc @calc 2 Tahoma 10 80 79 60 20 5 } 
    if ($inrect($mouse.x,$mouse.y,111,78,50,15)) { drawtext -oc @calc 14 Tahoma 10 133 79 60 20 4 } 
    else { drawtext -oc @calc 2 Tahoma 10 133 79 60 20 4 } 
    if ($inrect($mouse.x,$mouse.y,5,96,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 97 60 20 3 } 
    else { drawtext -oc @calc 2 Tahoma 10 27 97 60 20 3 } 
    if ($inrect($mouse.x,$mouse.y,58,96,50,15)) { drawtext -oc @calc 14 Tahoma 10 80 97 60 20 2 } 
    else { drawtext -oc @calc 2 Tahoma 10 80 97 60 20 2 } 
    if ($inrect($mouse.x,$mouse.y,111,96,50,15)) { drawtext -oc @calc 14 Tahoma 10 133 97 60 20 1 } 
    else { drawtext -oc @calc 2 Tahoma 10 133 97 60 20 1 } 
    if ($inrect($mouse.x,$mouse.y,5,114,50,15)) { drawtext -oc @calc 14 Tahoma 10 27 115 60 20 0 } 
    else { drawtext -oc @calc 2 Tahoma 10 27 115 60 20 0 } 
    if ($inrect($mouse.x,$mouse.y,58,114,50,15)) { drawtext -oc @calc 14 Tahoma 10 77 115 60 20 00 } 
    else { drawtext -oc @calc 2 Tahoma 10 77 115 60 20 00 } 
    if ($inrect($mouse.x,$mouse.y,111,114,50,15)) { drawtext -oc @calc 14 Tahoma 10 135 112 60 20 , } 
    else { drawtext -oc @calc 2 Tahoma 10 135 112 60 20 , } 
    if ($inrect($mouse.x,$mouse.y,169,20,75,15)) { drawtext -oc @calc 14 Tahoma 10 203 21 60 20 + } 
    else { drawtext -oc @calc 2 Tahoma 10 203 21 60 20 + } 
    if ($inrect($mouse.x,$mouse.y,247,20,75,15)) { drawtext -oc @calc 14 Tahoma 10 282 21 60 20 - } 
    else { drawtext -oc @calc 2 Tahoma 10 282 21 60 20 - } 
    if ($inrect($mouse.x,$mouse.y,169,38,75,15)) { drawtext -oc @calc 14 Tahoma 10 204 39 60 20 x } 
    else { drawtext -oc @calc 2 Tahoma 10 204 39 60 20 x } 
    if ($inrect($mouse.x,$mouse.y,247,38,75,15)) { drawtext -oc @calc 14 Tahoma 10 280 39 60 20 ÷ } 
    else { drawtext -oc @calc 2 Tahoma 10 280 39 60 20 ÷ } 
    if ($inrect($mouse.x,$mouse.y,169,56,36,15)) { drawtext -oc @calc 14 Tahoma 9 185 58 60 20 ( } 
    else { drawtext -oc @calc 2 Tahoma 9 185 58 60 20 ( } 
    if ($inrect($mouse.x,$mouse.y,208,56,36,15)) { drawtext -oc @calc 14 Tahoma 9 224 58 60 20 ) } 
    else { drawtext -oc @calc 2 Tahoma 9 224 58 60 20 ) } 
    if ($inrect($mouse.x,$mouse.y,247,56,75,15)) { drawtext -oc @calc 14 Tahoma 10 280 57 60 20 % } 
    else { drawtext -oc @calc 2 Tahoma 10 280 57 60 20 % } 
    if ($inrect($mouse.x,$mouse.y,169,74,75,15)) { drawtext -oc @calc 14 Tahoma 10 185 75 60 20 Au carré } 
    else { drawtext -oc @calc 2 Tahoma 10 185 75 60 20 Au carré } 
    if ($inrect($mouse.x,$mouse.y,247,74,76,15)) { drawtext -oc @calc 14 Tahoma 10 280 75 60 20 Pi } 
    else { drawtext -oc @calc 2 Tahoma 10 280 75 60 20 Pi } 
    if ($inrect($mouse.x,$mouse.y,169,92,76,15)) { drawtext -oc @calc 14 Tahoma 10 202 93 60 20 = } 
    else { drawtext -oc @calc 2 Tahoma 10 202 93 60 20 = } 
    if ($inrect($mouse.x,$mouse.y,247,92,76,15)) { drawtext -oc @calc 14 Tahoma 10 267 93 60 20 Effacer } 
    else { drawtext -oc @calc 2 Tahoma 10 267 93 60 20 Effacer } 
    if ($inrect($mouse.x,$mouse.y,169,114,153,15)) { drawtext -oc @calc 14 Tahoma 10 228 115 60 20 Fermer } 
    else { drawtext -oc @calc 2 Tahoma 10 228 115 60 20 Fermer } 
  } 
  Fermer la fenêtre:window -c @calc 
  Minimiser la fenêtre:window -n @calc 
}

Historique

23 août 2006 01:03:38 :: Correction du bug de la touche "Au carré"

Sources du même auteur

SPEED (JEU EN PICWIN)

COULEUR D'ÉCRITURE EN PICWIN

AUTO CONNEXION

Toutes les sources de atlantisfr

Sources de la même categorie

ONERADIOPLAYER par Bestdoud

WORLDDMT - STATISTIQUE V 1.0 par WorldDMT

WORLDDMT - INFOS DES CANAUX V 1.1 par WorldDMT

RACCOURCIS PERSONNELS par donkishock

EPGUIDES : SORTIES DES SÉRIES par RCA ArKanis

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

PACMAN ONLINE - 4 JOUEURS par wims

SINUSOÏDALE par wims

BELOTE (MULTIJOUEURS) EN PICWIN par RCA ArKanis

METEO, DEPARTEMENTS ET ENSOLEILLEMENT MONDIAL par RCA ArKanis

SPEED (JEU EN PICWIN) par atlantisfr

Commentaires et avis

Commentaire de RCA ArKanis le 22/08/2006 19:45:17

Le code et le résultat (la piciwn) sont tous deux assez moches
Dans ton code il y a plein de passages qui se ressemblent
De grosses optimisations sont à faire !
Le calcul peut sortir de l'editbox, et on voit pas ce qu'on écrit. Pareil avec le résultat.

Le bouton "au carré" met un drawrect -f dans l'editbox et retourne une erreur * /drawtext: insufficient parameters

Tu n'as pas de gestion de variables/mémoire

Corrige déjà ça, et essaye d'optimiser !
Je n'ai fait que survoler le code, j'ai pas regardé les erreurs (pour une fois, ça sera les autres qui le feront :p)

Commentaire de Panthouffle le 26/08/2006 18:50:00

"(pour une fois, ça sera les autres qui le feront :p)"
Hum j'ai l'impression que si j'le fais pas personne le fera ^^

Commencons par le début, coté afffichage avec quelques tests:

On peut pas travailler avec des nombres de 10 chiffres ou plus à cause d'un problème d'affichage (même le 9ème chiffre est couper en 2 chez moi)

Le bouton "Pi" ne fonctionne pas, et "%" c'est pas censé être modulo et pas "pourcentage" ?

4-2x4 me retourne -4 , faut écrire (4-2)x4 pour que ça donne 8, mais ça devient vite saoulant de mettre des paranthèse partout :( (si tu effecturais les opérations au fur et à mesure ce bug n'existerait pas)

4 Au carré me retourne 2 alors qu'il devrait me retourner 16, tu dois avoir confondu avec la racine carrée...

Les couleurs sont pas fameuses j'trouve (bleu rouge vert) ça le fait pas :(
J'aime pas trop le style de tes boutons, je te conseil de rajouter un peu de relief

Coté codage:

En regardant le code, la première chose que j'me dit c'est "répétitions" ...
J'énumèrerai pas tous les cas de répétitions mais tu peux sauver quelques lignes si tu suis mes conseils:

Premièrement, pour les rectangles ayant la même couleur et la même taille, au lieu de faire comme ça:

drawrect @calc 2 2 0 15 327 119
drawrect @calc 2 2 0 15 337 129
drawrect @calc ...

Tu peux "abouter" tes coordonnées comme ceci:

drawrect @calc 2 2 0 15 327 119 0 15 337 129 ...

Ensuite, dans le menu @calc sclick, utilises elseif (sinon si)

if $inrect(...) { ... }
elseif $inrect(...) { ... }
elseif $inrect(...) { ... }
...

Dernier détail (vraiment pas gros mais tu sauve une ligne ;))

unset %calc
unset %calc2

Tu mets: unset %calc*

Voila j'avais du temps à perdre et j'ai décidé de trouver des bugs dans ta source étant donné que personne n'avait l'air à vouloir le faire o_O (si jamais j'ai oublier des trucs que je voit personne me le reprocher ^^, et de toute manière, y'aura toujours de l'optimisations à faire dans n'importe quel source que ce soit)

Donc en gros, si tu améliores rien de tout ce que j'ai dit ou si tu ne compte pas faire d'autre version, je crois que ça aurait été beaucoup mieu dans un dialog.

Commentaire de RCA ArKanis le 26/08/2006 19:31:35

"4-2x4 me retourne -4 , faut écrire (4-2)x4 pour que ça donne 8, mais ça devient vite saoulant de mettre des paranthèse partout :( (si tu effecturais les opérations au fur et à mesure ce bug n'existerait pas)"

la multiplication est prioritaire, c'est juste comme il a fait
ce sont les calculatrices bon marché (mais nulles) qui retournent 8
1+2*3 = 7, et non 9

sinon en général, les picwins sont plus jolies, mais ce n'est pas toujours le cas

Commentaire de Panthouffle le 26/08/2006 19:56:22

"c'est juste comme il a fait", bof il a tout simplement utiliser $calc

"(si tu effecturais les opérations au fur et à mesure ce bug n'existerait pas)", je parlais de la méthode dont la calculatrice de windows fonctionne, mais je me suis rendu compte seulement après avoir valider mon message que cette calculatrice utilisais 2 lignes ...

"sinon en général, les picwins sont plus jolies, mais ce n'est pas toujours le cas", dans ce cas ci, je crois qu'il aurait été préférable de la faire en dialog c'est tout, c'est qu'un avis personnel faut pas en faire tout un plat non plus..

Commentaire de Panthouffle le 26/08/2006 19:58:28

Finallement je me suis planté pour la calculatrice de windows, elle fonctionne correctement elle aussi, c'est surement moi qui est trop bête

Commentaire de Benjamin37 le 27/08/2006 01:20:32

c'est beau .

Mais la calculatrice de windows le fait déjà

après chacun son avis

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Aide: Picwin et Calculatrice [ par Mc_AbBeR ] Bonjour,Je cherche comment faire une zone de texte (disable) en picwin, et un bouton. Puis comment calculer (calculatrice).Merci d'Avance Combo picwin ? [ par Lestat_2070 ] Bonjour à tous, Voilà j'ai enfin décidé de me lancer dans les picwins , j'ai d'ailleurs lut attentivement les deux tutos de Kinder Aider Moi!!!! [ par Bencall ] Bonjour, Je programme normalement en vb, mais mon probleme est que la seule formule que j'ai trouvé pour mon prog ce trouve en IRC: >if ($prop == len Variable Long -> int [ par S333 ] Voilà, c'est à mon tour de poser une question ^^ Alors, je suis en train de refaire, et améliorer HLirc, mais je suis devant un probl&# Aide: PicWin !!! (mouse.x mouse.y) [ par Mc_AbBeR ] Voila mon code:alias -l apw.text drawtext @A-PICWIN 1 Tahoma 11 $1-alias -l apw.rect drawrect @A-PICWIN $1-alias apicwin {  window -adpBCf +d @A- PicWin: List et Réduction [ par Mc_AbBeR ] Bon, je suis en train de faire une petite source en picwin  mais j'ai besoin d'une list (comme en dialog). J'ai fait un rectangle mais euh a PicWin: list en picwin [ par Mc_AbBeR ] Bon j'voudrais bien faire une liste en picwin (comme sur un dialog) avec les scroll pis tout... PicWin: supprimer un drawdot [ par Mc_AbBeR ] Bon j'ai réussi a faire ma list, mais ya juste un petit problème: comment fait-on pour supprimer le drawdot?Quand je fait le mouse ya 100000 Pour ceux qui aiment écouter la musique en tchattant [ par Bestdoud ] Cela fait quelque temps que je réalise un lecteur mp3 en picwin. venez le découvrir à l'adresse suivante: http://amigagaamp.free.fr voici ces caract PicWin Multi-Fonctions : Un p'tit coup de pub [ par RCA ArKanis ] J'osais pas créer une nouvelle source pour ça, étant donné que le remote pour lequel je pubbe a déjà été envoy

Trouver une ressource

CALCULATRICE EN PICWIN

Information sur la source

Description

Source

Historique

Sources du même auteur

Sources de la même categorie

Sources en rapport avec celle ci

Commentaires et avis

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Nos sponsors

Sondage...

CalendriCode

Côté IT

Formations Video Nouveau

Offres d'emploi

Appels d'offres

Téléchargements

Vidéos drôles Nouveau