XProfan

English

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

Hi,
Yes - I have to many Monaten something ähnliches prepared (One-/Invisible of MIDI-music over The Lautstärkeregelung) and you from it time a code to that direct change of Lautstärkewerten prepares - I hope, the fit so. ;)

Notes:
° example lying with
° Lautstärkewerte weg of 0 To 65535
° Stereoregelung not supported (do you need the?)
° I expect not, that it without further on Vista functions... does my Originalcode namely neither.

Greeting, Sebastian

Compile Mark Separation

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

proc setmixer

    parameters c%,v%
    case %pcount<2:return 0
    case 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%
        case 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
        case 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 hardship(external(WINMM,mixerSetControlDetails,hmx&,hmx#+340,0))

    endproc

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

endproc

Hauptprogramm
regulator slow to supra schieben
cls

whileloop 0,100

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

endwhile

waitinput