Calculatrice en pickwin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 927 fois - Téléchargée 26 fois

Contenu du snippet

Ben voila ma premiere source ne pickwin !
Hehe ben c une calculatrice simple :)

Source / Exemple :


alias calcwin { 
  window -apCB +d @cal -1 -1 200 215
  /drawrect -f @cal 14 0 0 0 200 215
  drawrect -f @cal 0 2 0 0 200 15
  /drawline @cal 1 2 0 15 200 15
  /drawline @cal 1 2 150 0 150 250
  /drawtext  @cal 1  tahoma 11 20 2 Calculette by jujuquatre
  /drawtext -o @cal 1 tahoma 14 185 -2 X
  drawrect -f @cal 0 2 15 20 150 15
  drawrect @cal 1 2 15 20 150 15
  ;Boutton 1
  drawrect -f @cal 0 2 15 50 40 15
  drawrect @cal 1 2 15 50 40 15
  /drawtext -o @cal 1 tahoma 14 31 48 1
  ;Boutton 2
  drawrect -f @cal 0 2 60 50 40 15
  drawrect @cal 1 2 60 50 40 15
  /drawtext -o @cal 1 tahoma 14 77 48 2
  ;Boutton 3
  drawrect -f @cal 0 2 105 50 40 15
  drawrect @cal 1 2 105 50 40 15
  /drawtext -o @cal 1 tahoma 14 120 48 3
  ;Boutton 4
  drawrect -f @cal 0 2 15 80 40 15
  drawrect @cal 1 2 15 80 40 15
  /drawtext -o @cal 1 tahoma 14 31 78 4
  ;Boutton 5
  drawrect -f @cal 0 2 60 80 40 15
  drawrect @cal 1 2 60 80 40 15
  /drawtext -o @cal 1 tahoma 14 77 78 5
  ;Boutton 6
  drawrect -f @cal 0 2 105 80 40 15
  drawrect @cal 1 2 105 80 40 15
  /drawtext -o @cal 1 tahoma 14 120 78 6
  ;Boutton 7
  drawrect -f @cal 0 2 15 110 40 15
  drawrect @cal 1 2 15 110 40 15
  /drawtext -o @cal 1 tahoma 14 31 108 7
  ;Boutton 8
  drawrect -f @cal 0 2 60 110 40 15
  drawrect @cal 1 2 60 110 40 15
  /drawtext -o @cal 1 tahoma 14 77 108 8
  ;Boutton 9
  drawrect -f @cal 0 2 105 110 40 15
  drawrect @cal 1 2 105 110 40 15
  /drawtext -o @cal 1 tahoma 14 120 108 9
  ;Boutton 0
  drawrect -f @cal 0 2 15 140 40 15
  drawrect @cal 1 2 15 140 40 15
  /drawtext -o @cal 1 tahoma 14 31 138 0
  ;Boutton .
  drawrect -f @cal 0 2 60 140 40 15
  drawrect @cal 1 2 60 140 40 15
  /drawtext -o @cal 1 tahoma 14 77 138 .
  ;Boutton =
  drawrect -f @cal 0 2 45 170 70 15
  drawrect @cal 1 2 45 170 70 15
  /drawtext -o @cal 1 tahoma 14 77 168 =
  ;Boutton +
  drawrect -f @cal 0 2 155 50 40 15
  drawrect @cal 1 2 155 50 40 15
  /drawtext -o @cal 1 tahoma 15 170 48 +
  ;Boutton -
  drawrect -f @cal 0 2 155 80 40 15
  drawrect @cal 1 2 155 80 40 15
  /drawtext -o @cal 1 tahoma 15 172 78 -
  ;Boutton X
  drawrect -f @cal 0 2 155 110 40 15
  drawrect @cal 1 2 155 110 40 15
  /drawtext @cal 1 tahoma 14 172 108 X
  ;Boutton /
  drawrect -f @cal 0 2 155 140 40 15
  drawrect @cal 1 2 155 140 40 15
  /drawtext @cal 1 tahoma 12 172 138 /
  ;Boutton effacer
  drawrect -f @cal 0 2 18 195 50 15
  drawrect @cal 1 2 18 195 50 15
  /drawtext -o @cal 1 tahoma 12 22 195 effacer
}

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

menu @cal {
  sclick {
    if ($inrect($mouse.x,$mouse.y,180,-2,20,17)) { window -c @cal | unset %calcul }
    if ($mouse.y < 20) move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y)
    if ($inrect($mouse.x,$mouse.y,15,50,40,15)) { //set %calcul %calcul $+ 1 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,60,50,40,15)) { //set %calcul %calcul $+ 2 | drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,120,50,40,15)) { //set %calcul %calcul $+ 3 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,5,80,40,15)) { //set %calcul %calcul $+ 4 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,60,80,40,15)) { //set %calcul %calcul $+ 5 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,105,80,40,15)) { //set %calcul %calcul $+ 6 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 |  /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,5,110,40,15)) { //set %calcul %calcul $+ 7 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,60,110,40,15)) { //set %calcul %calcul $+ 8 |  /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,105,110,40,15)) { //set %calcul %calcul $+ 9 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,5,140,40,15)) { //set %calcul %calcul $+ 0 | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,60,140,40,15)) { //set %calcul %calcul $+ . | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,45,170,70,15)) { //set %calcul $calc(%calcul) | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,155,50,40,15)) { //set %calcul %calcul $+ + | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,155,80,40,15)) { //set %calcul %calcul $+ - | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,155,110,40,15)) { //set %calcul %calcul $+ * | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,155,140,40,15)) { //set %calcul %calcul $+ / | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
    if ($inrect($mouse.x,$mouse.y,18,195,50,15)) { //unset %calcul | /drawrect @cal 1 2 15 20 150 15 | /drawrect -f @cal 0 2 15 20 150 15 | /drawtext -o @cal 1 tahoma 11 20 20 %calcul }
  }
}

Conclusion :


Pour l'activer faite /calcwin

A voir également

Ajouter un commentaire Commentaires
Messages postés
7
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 juin 2003

lolllllll meu c moche
Messages postés
7
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 juin 2003

lolllllll meu
Messages postés
7
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 juin 2003

lolllllll me
Messages postés
7
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 juin 2003

lolllllll
Messages postés
7
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 juin 2003

lolllllll
Afficher les 9 commentaires

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.