XProfan

Español

Sebastian Sprenger, URL=www.rgh-soft.de/forum01/read.php?f=6&i=5692&t=5688, Zeitpunkt=06.05.09 23:23

¡Hola,
sí - Yo antes vielen Monaten algo ähnliches vorbereitet (Ein-/Ausblenden de MIDI-Musik en Lautstärkeregelung) y dir lo veces a la Code para direkten Verändern de Lautstärkewerten erstellt - Yo hoffe, el passt así. ;)

Hinweise:
° Ejemplo liegt en
° Lautstärkewerte ir de 0 a 65535
° Stereoregelung no unterstützt (necesidad Si es usted el?)
° Yo erwarte no, dass lo sin weiteres en Vista funktioniert... tut mein Originalcode nämlich auch no.

Saludo, Sebastian

Kompilieren Marca Separación

declarar hmx&,hmx#
def &LineIn $1002
def &Mic $1003
def &Wave $1008

proc setmixer

    parámetros c%,v%
    caso %pcount<2:volver 0
    caso external(WINMM,mixerOpen,addr(hmx&),0,0,0,0):volver 0
    dim hmx#,368

    proc _setmixertry

        clear hmx#
        long hmx#,0=168
        long hmx#,24=c%
        caso external(WINMM,mixerGetLineInfoA,hmx&,hmx#,3):volver 0
        long hmx#,168=24
        long hmx#,172=long(hmx#,12)
        long hmx#,176=$50030001
        long hmx#,180=1
        long hmx#,184=148
        long hmx#,188=hmx#+192
        caso external(WINMM,mixerGetLineControlsA,hmx&,hmx#+168,2):volver 0
        long hmx#,340=24
        long hmx#,344=long(hmx#,196)
        long hmx#,348=1
        long hmx#,356=4
        long hmx#,360=hmx#+364
        long hmx#,364=v%
        volver not(external(WINMM,mixerSetControlDetails,hmx&,hmx#+340,0))

    ENDPROC

    declarar ok%
    ok%=_setmixertry()
    external(WINMM,mixerClose,hmx&)
    disponer hmx#
    volver ok%

ENDPROC

Hauptprogramm
Regler langsam después de oben schieben
cls

whileloop 0,100

    SetMixer &LineIn, &bucle * 655 + 35
    SetMixer &Mic,    &bucle * 218 + 43735
    SetMixer &Wave,   &bucle * 131 + 52435

endwhile

waitinput