XProfan

Français

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

Salut,
oui - j'ai avant vielen Monaten quelque chose ähnliches vorbereitet (un-/Ausblenden de MIDI-Musik sur qui Lautstärkeregelung) et dir daraus la fois une Code zum direkten Verändern de Lautstärkewerten erstellt - je hoffe, cela passt so. ;)

Hinweise:
° Beispiel liegt chez
° Lautstärkewerte aller de 0 jusqu'à 65535
° Stereoregelung pas soutenu (brauchst du cela?)
° je erwarte pas, dass es sans weiteres sur Vue funktioniert... tut mon Originalcode nämlich aussi pas.

Salut, Sebastian

Kompilieren Marque Séparation

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

proc setmixer

    parameters c%,v%
    cas %pcount<2:return 0
    cas external(WINMM,mixerOpen,addr(hmx&),0,0,0,0):return 0
    dim hmx#,368

    proc _setmixertry

        clear hmx#
        long hmx#,0=168
        long hmx#,24=c%
        cas external(WINMM,mixerGetLineInfoA,hmx&,hmx#,3):return 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
        cas external(WINMM,mixerGetLineControlsA,hmx&,hmx#+168,2):return 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%
        return not(external(WINMM,mixerSetControlDetails,hmx&,hmx#+340,0))

    endproc

    declare ok%
    ok%=_setmixertry()
    external(WINMM,mixerClose,hmx&)
    dispose hmx#
    return ok%

endproc

Hauptprogramm
Regler lente pour dessus schieben
cls

whileloop 0,100

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

endwhile

waitinput