ça fé un moment que g pas mis une source et après avoir vu une sur calculatrice g décidé de posté la mienne . A vrai dir elle est pas fini et je croi que je v jms la finir ... lol g tro la flem .
bon g commencé un system graphique ms ya qlq bug assez génant , je suis un pe nul en math . A vrai dir ya qlq piti truc a modifier et ca marche .
bon je vs laisse découvrir la source ...
Source / Exemple :
--------------------------------------------------------------------------------------
- by abdoulax ***************************************
--------------------------------------------------------------------------------------
on *:input:*:if ( $1 == !cal ) { echo -a 14résultat de $2- :12 $calc( $2- ) | halt }
dialog calculette {
title "calculette by abdoulax"
size -1 -1 100 100
option dbu
button "fermer", 1, 78 88 20 10,cancel
text "vous pouvez utiliser cette commande : !cal [calcul] ",2, 4 85 70 15
list 3,4 16 92 40,vsbar
edit "" 4,4 4 80 10
button "(1)",5,4 48 14 10
button "(2)",6,4 60 14 10
button "(3)",7,4 72 14 10
button "(4)",8,18 48 14 10
button "(5)",9,18 60 14 10
button "(6)",10,18 72 14 10
button "(7)",11,32 48 14 10
button "(8)",12,32 60 14 10
button "(9)",13,32 72 14 10
button "(0)",14,46 72 14 10
button ".",15,46 60 14 10
button "(",16,46 48 14 10
button ")",17,60 48 14 10
button "calc",18,74 48 22 10
button "+",19,60 60 14 10
button "*",20,74 60 14 10
button "-",21,60 72 14 10
button "/",22,74 72 14 10
button "<-",23,86 4 10 10
button ">>",24,88 60 8 22
}
on *:dialog:calculette:sclick:5:did -a calculette 4 1
on *:dialog:calculette:sclick:6:did -a calculette 4 2
on *:dialog:calculette:sclick:7:did -a calculette 4 3
on *:dialog:calculette:sclick:8:did -a calculette 4 4
on *:dialog:calculette:sclick:9:did -a calculette 4 5
on *:dialog:calculette:sclick:10:did -a calculette 4 6
on *:dialog:calculette:sclick:11:did -a calculette 4 7
on *:dialog:calculette:sclick:12:did -a calculette 4 8
on *:dialog:calculette:sclick:13:did -a calculette 4 9
on *:dialog:calculette:sclick:14:did -a calculette 4 0
on *:dialog:calculette:sclick:15:did -a calculette 4 .
on *:dialog:calculette:sclick:16:did -a calculette 4 (
on *:dialog:calculette:sclick:17:did -a calculette 4 )
on *:dialog:calculette:sclick:19:did -a calculette 4 +
on *:dialog:calculette:sclick:20:did -a calculette 4 *
on *:dialog:calculette:sclick:21:did -a calculette 4 -
on *:dialog:calculette:sclick:22:did -a calculette 4 /
on *:dialog:calculette:sclick:18:{
did -a calculette 3 $did(calculette,4)
did -a calculette 3 $calc($did(calculette,4))
did -r calculette 4
did -c calculette 3 $did(calculette,3).lines
}
on *:dialog:calculette:sclick:23:{
if ( $len($did(calculette,4)) > 1 ) {
set %tmpcalculette $mid($did(calculette,4),1,$calc($len($did(calculette,4))-1))
did -r calculette 4
did -a calculette 4 %tmpcalculette
unset %tmpcalculette
}
else { did -r calculette 4 }
}
on *:dialog:calculette:sclick:24:{
dialog -x calculette calculette
dialog -dm calculav calculav
}
dialog calculav {
title "calculette ( avancé ) by abdoulax"
size -1 -1 200 100
option dbu
button "fermer", 1, 78 88 20 10,cancel
text "vous pouvez utiliser cette commande : !cal [calcul] ",2, 4 85 70 15
list 3,4 16 92 40,vsbar
edit "" 4,4 4 80 10
button "(1)",5,4 48 14 10
button "(2)",6,4 60 14 10
button "(3)",7,4 72 14 10
button "(4)",8,18 48 14 10
button "(5)",9,18 60 14 10
button "(6)",10,18 72 14 10
button "(7)",11,32 48 14 10
button "(8)",12,32 60 14 10
button "(9)",13,32 72 14 10
button "(0)",14,46 72 14 10
button ".",15,46 60 14 10
button "(",16,46 48 14 10
button ")",17,60 48 14 10
button "calc",18,74 48 22 10
button "+",19,60 60 14 10
button "*",20,74 60 14 10
button "-",21,60 72 14 10
button "/",22,74 72 14 10
button "<-",23,86 4 10 10
button "<<",24,88 60 8 22
button "sin",25, 104 4 14 10
button "cos",26, 118 4 14 10
button "tan",27, 132 4 14 10
button "sin-¹",28, 148 4 14 10
button "cos-¹",29, 162 4 14 10
button "tan-¹",30, 176 4 14 10
button "TI",31 , 104 18 14 10
button "²",32,120 18 14 10
button "³",33,134 18 14 10
button "^",34,148 18 14 10
box "courbe" ,35, 104 45 92 51
edit "Y=x+1",36, 106 53 88 10
check "300x300",37,106 65 30 10
check "500x500",38,106 75 30 10
check "axe" ,39,146 65 20 8
button "trace",40,106 85 30 10
button "tableau",41,146 75 48 10
text "start" ,42,138 87 15 10
edit "0",43,153 86 15 9
text "rd" ,44,170 87 8 10
edit "1",45,178 86 15 9
}
on *:dialog:calculav:sclick:5:did -a calculav 4 1
on *:dialog:calculav:sclick:6:did -a calculav 4 2
on *:dialog:calculav:sclick:7:did -a calculav 4 3
on *:dialog:calculav:sclick:8:did -a calculav 4 4
on *:dialog:calculav:sclick:9:did -a calculav 4 5
on *:dialog:calculav:sclick:10:did -a calculav 4 6
on *:dialog:calculav:sclick:11:did -a calculav 4 7
on *:dialog:calculav:sclick:12:did -a calculav 4 8
on *:dialog:calculav:sclick:13:did -a calculav 4 9
on *:dialog:calculav:sclick:14:did -a calculav 4 0
on *:dialog:calculav:sclick:15:did -a calculav 4 .
on *:dialog:calculav:sclick:16:did -a calculav 4 (
on *:dialog:calculav:sclick:17:did -a calculav 4 )
on *:dialog:calculav:sclick:19:did -a calculav 4 +
on *:dialog:calculav:sclick:20:did -a calculav 4 *
on *:dialog:calculav:sclick:21:did -a calculav 4 -
on *:dialog:calculav:sclick:22:did -a calculav 4 /
on *:dialog:calculav:sclick:18:{
did -a calculav 3 $did(calculav,4)
did -a calculav 3 $calc($did(calculav,4))
did -r calculav 4
did -c calculav 3 $did(calculav,3).lines
}
on *:dialog:calculav:sclick:23:{
if ( $len($did(calculav,4)) > 1 ) {
set %tmpcalculav $mid($did(calculav,4),1,$calc($len($did(calculav,4))-1))
did -r calculav 4
did -a calculav 4 %tmpcalculav
unset %tmpcalculav
}
else { did -r calculav 4 }
}
on *:dialog:calculav:sclick:24:{
dialog -x calculav calculav
dialog -dm calculette calculette
}
on *:dialog:calculav:sclick:25:{
did -a calculav 3 sin( $+ $did(calculav,4) $+ )
did -a calculav 3 $sin($did(calculav,4))
did -r calculav 4
did -c calculav 3 $did(calculav,3).lines
}
on *:dialog:calculav:sclick:26:{
did -a calculav 3 cos( $+ $did(calculav,4) $+ )
did -a calculav 3 $cos($did(calculav,4))
did -r calculav 4
did -c calculav 3 $did(calculav,3).lines
}
on *:dialog:calculav:sclick:27:{
did -a calculav 3 tan( $+ $did(calculav,4) $+ )
did -a calculav 3 $tan($did(calculav,4))
did -r calculav 4
did -c calculav 3 $did(calculav,3).lines
}
on *:dialog:calculav:sclick:31:did -a calculav 4 3.14
on *:dialog:calculav:sclick:32:did -a calculav 4 ^2
on *:dialog:calculav:sclick:33:did -a calculav 4 ^3
on *:dialog:calculav:sclick:34:did -a calculav 4 ^
on *:dialog:calculav:sclick:37:{
set %sizecourbe 300
did -u calculav 38
}
on *:dialog:calculav:sclick:38:{
set %sizecourbe 500
did -u calculav 37
}
on *:dialog:calculav:init:0:{
if ( %sizecourbe == 500 ) { did -c calculav 38 }
else { set %sizecourbe 300 | did -c calculav 37 }
if ( %axecourbe == on ) { did -c calculav 39 }
}
on *:dialog:calculav:sclick:39:{
if ( %axecourbe == on ) { set %axecourbe off }
elseif ( %axecourbe == off ) { set %axecourbe on }
}
on *:dialog:calculav:sclick:40:{
timer 1 .1 courbe
window -Cp +d @courbe -1 -1 %sizecourbe %sizecourbe
}
alias courbe {
if ( %axecourbe == on ) {
drawline @courbe 12 1 150 0 150 300
drawline @courbe 12 1 0 150 300 150
}
var %c = 0
while ( %c <= 300 ) {
drawdot @courbe 4 1 %c $calc( 300 - ( $remove($replace($did(calculav,36),x,%c),Y=) ) )
inc %c
}
}
menu @courbe {
calculatrice :/dialog -dm calculav calculav
-
fermer:/window -c @courbe
}
on *:dialog:calculav:sclick:41:dialog -dm tablo tablo
dialog tablo {
title "tableau"
size -1 -1 100 100
option dbu
button "~~---o?0O@° .:(ok):. °@O0?o---~~",1,4 88 92 10,ok
text "fonction:",2,4 3 25 8
edit "",3,26 2 71 10,read
text "start" ,4,4 15 15 10
edit "",5,21 14 15 9,read
text "rand" ,6,40 15 12 10
edit "",7,56 14 15 9,read
edit "X" ,8,5 26 44 10,read,center
edit "Y" ,9,51 26 44 10,read,center
list 10, 4 36 46 55
list 11, 50 36 46 55
}
on *:dialog:tablo:init:0:{
did -a tablo 3 $did(calculav,36)
did -a tablo 5 $did(calculav,43)
did -a tablo 7 $did(calculav,45)
tablo
}
alias tablo {
did -r tablo 10
did -r tablo 11
var %t = $did(tablo,5)
while ( %t < $calc( $did(tablo,5) + 1000 ) ) {
did -a tablo 10 $calc( %t * $did(tablo,7) )
did -a tablo 11 $calc( $remove($replace($did(tablo,3),X,$calc( %t * $did(tablo,7) ) ),Y=) )
inc %t
}
}
on *:dialog:tablo:sclick:10:did -c tablo 11 $did(tablo,10).sel
Conclusion :
lol j"espere que g pas oublié de mettre des truc ...
have fun
abdoulax
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.