VOLUME CONTROLE ( WAVE + MASTER )
Utilisateur anonyme
-
29 janv. 2005 à 22:40
Zova Messages postés 150 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 24 août 2010 - 10 déc. 2005 à 19:30
Zova Messages postés 150 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 24 août 2010 - 10 déc. 2005 à 19:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29188-volume-controle-wave-master
https://codes-sources.commentcamarche.net/source/29188-volume-controle-wave-master
10 déc. 2005 à 19:30
4 déc. 2005 à 23:28
4 déc. 2005 à 21:43
menu channel,menubar {
*Contrôle du volume :dialog -mr volume volume
}
dialog volume {
title "Volume"
size -1 -1 160 120
box "Contrôle du volume",13,5 1 150 110
text "Volume Général",1,10 15 120 15
button "-",2,10 35 20 20
list 3,35 36 25 35
button "+",4,65 35 20 20
check "Mute Général",9, 90 37 15 15
text "Muet",10,110 37 30 30
text "Volume Wave",5,10 65 120 15
button "-",6,10 85 20 20
list 7,35 86 25 35
button "+",8,65 86 20 20
check "Mute Wave",11,90 88 15 15
text "Muet",12, 110 88 30 30
}
on *:dialog:volume:init:00:{
var %VG $calc($vol(master) / 6500), %VW $calc($vol(wave)/6500)
var %voldialmaster $iif(%vg < 10,$left(%VG,1),10)
var %voldialwave $iif(%vw < 10,$left(%VW,1),10)
did -a volume 3 %voldialmaster
did -a volume 7 %voldialwave
}
alias -l vdgm { var %x $calc($vol(master) / 6500)
if (%x >= 1 && %x < 10) vol -v $calc(6500 * $calc($left(%x,1) - 1))
elseif (%x >= 10) vol -v $calc(6500 * $calc( $left(%x,2) - 1))
}
alias -l vdwm { var %x $calc($vol(wave) / 6500)
if ( %x >= 1 && %x < 10) vol -w $calc(6500 * $calc($left(%x,1) - 1))
elseif (%x >= 10) vol -w $calc( 6500 * $calc($left(%x,2) - 1))
}
alias -l vdwp { var %x $calc( $vol(wave) / 6500 )
$iif(%x < 10,vol -w $calc(6500 * $calc($left(%x,1) + 1)),vol -w 65000) }
alias -l vdgp { var %x $calc($vol(master) / 6500)
$iif(%x < 10,vol -v $calc(6500 * $calc($left(%x,1) + 1)),vol -v 65000) }
on *:dialog:volume:sclick:*:{
if $did == 4 { var %i $did(volume,3,1)
if %i <= 9 { did -r volume 3
did -a volume 3 $calc( %i + 1 ) | vdgp }
}
elseif $did == 2 { var %i $did(volume,3,1)
if ( %i > 0 ) { did -r volume 3
did -a volume 3 $calc( %i - 1 ) | vdgm }
}
elseif $did == 8 { var %i $did(volume,7,1)
if ( %i <= 9 ) { did -r volume 7
did -a volume 7 $calc( %i + 1 ) | vdwp }
}
elseif $did == 6 { var %i $did(volume,7,1)
if ( %i > 0 ) { did -r volume 7
did -a volume 7 $calc( %i - 1 ) | vdwm }
}
elseif ($did 9) $iif($did(9).state 1,vol -vu1,vol -vu2)
elseif ($did 11) $iif($did(11).state 1,vol -wu1,vol -wu2)
}
4 déc. 2005 à 19:23
29 janv. 2005 à 23:52
http://www.ircfr.com/code.aspx?ID=27056
bonne continuation
29 janv. 2005 à 23:34
Inspire t'en, rends la originale et on en parlera Christophe.
Bonne continuation :)
29 janv. 2005 à 22:43
29 janv. 2005 à 22:40
on *:dialog:volume:sclick:9:{ ... }
on *:dialog:volume:sclick:11:{ ... }
Devient
on *:dialog:volume:sclick:*:{
if ($did == 9) { ... }
if ($did == 11) { ... }
}
Autremment je m'y connais pas super en dialog mais je pense qu'une barre de progression c'est un peu mieux (en mdx ?)
Bonne chance :)