[HILFE] Volume einstellung über slider

  • Bräuchte Hilfe, hab ein vertikalen slider erstellt der der das Volumen steuert, aber wenn ich die Regelschiene nach oben stze wird die musik leiser, möchte das aber umgedreht haben so das die musik lauter wird wenn ich die regelschiene nach oben stze :) hoffe ihr könnt mir helfn


    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ProgressConstants.au3>
    #include <Security.au3>
    #include <Memory.au3>
    #include <UDFGlobalID.au3>
    #include <GuiStatusBar.au3>
    #include <GUIEdit.au3>
    #include-once
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Constants.au3>
    #include <GUIEdit.au3>
    #include <GuiToolbar.au3>
    #include <inet.au3>
    #include <array.au3>
    #include <ie.au3>

    [/autoit][autoit][/autoit][autoit]

    $oWMP = ObjCreate("WMPLayer.ocx")
    $GUI = GUICreate("Radio Player", 300, 200)
    $Combo1 = GUICtrlCreateCombo("TechnoBase.FM", 5, 35, 190, 30)
    GUICtrlSetData(-1, "HouseTime.FM|HardBase.FM|TranceBase.FM|CoreTime.FM", "TechnoBase.FM")
    $Volume = GUICtrlCreateSlider(250, 45, 30, 150, BitOR($TBS_AUTOTICKS,$TBS_VERT))
    GUICtrlSetData(-1, $oWMP.settings.volume())
    GUICtrlSetState($Volume, $GUI_DISABLE)
    $Progress1 = GUICtrlCreateProgress(200, 80, 25, 60, $PBS_VERTICAL)
    $Button1 = GUICtrlCreateButton("Start", 20, 155, 75, 25)
    $Button2 = GUICtrlCreateButton("Stopp", 120, 155, 75, 25)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $readcombo1 = GUICtrlRead($Combo1)
    $oWMP.controls.play()
    GUICtrlSetData($Progress1, 100)
    $oWMP.settings.volume = 50
    GUICtrlSetState($Volume, $GUI_ENABLE)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    Select
    Case $readcombo1 = "TechnoBase.FM"
    $oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx'
    Case $readcombo1 = "HouseTime.FM"
    $oWMP.URL = 'http://listen.housetime.fm/tunein-dsl-asx'
    Case $readcombo1 = "HardBase.FM"
    $oWMP.URL = 'http://listen.hardbase.fm/tunein-dsl-asx'
    Case $readcombo1 = "TranceBase.FM"
    $oWMP.URL = 'http://listen.trancebase.fm/tunein-dsl-asx'
    Case $readcombo1 = "CoreTime.FM"
    $oWMP.URL = 'http://listen.coretime.fm/tunein-dsl-asx'
    EndSelect
    Case $Button2
    $oWMP.controls.stop()
    GUICtrlSetState($Volume, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_ENABLE)
    EndSwitch
    $oWMP.settings.volume = GUICtrlRead($Volume)
    WEnd

    [/autoit]

    THREAD kann geclosed werden, hilfe wurde erfolgreich gelöst :)

    Einmal editiert, zuletzt von Pati1112 (28. März 2010 um 22:46)

    • Offizieller Beitrag
    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ProgressConstants.au3>
    #include <Security.au3>
    #include <Memory.au3>
    #include <UDFGlobalID.au3>
    #include <GuiStatusBar.au3>
    #include <GUIEdit.au3>
    #include-once
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <Constants.au3>
    #include <GUIEdit.au3>
    #include <GuiToolbar.au3>
    #include <inet.au3>
    #include <array.au3>
    #include <ie.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $oWMP = ObjCreate("WMPLayer.ocx")
    $GUI = GUICreate("Radio Player", 300, 200)
    $Combo1 = GUICtrlCreateCombo("TechnoBase.FM", 5, 35, 190, 30)
    GUICtrlSetData(-1, "HouseTime.FM|HardBase.FM|TranceBase.FM|CoreTime.FM", "TechnoBase.FM")
    $Volume = GUICtrlCreateSlider(250, 45, 30, 150, BitOR($TBS_AUTOTICKS,$TBS_VERT))
    GUICtrlSetData(-1, $oWMP.settings.volume())
    GUICtrlSetState($Volume, $GUI_DISABLE)
    $Progress1 = GUICtrlCreateProgress(200, 80, 25, 60, $PBS_VERTICAL)
    $Button1 = GUICtrlCreateButton("Start", 20, 155, 75, 25)
    $Button2 = GUICtrlCreateButton("Stopp", 120, 155, 75, 25)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $readcombo1 = GUICtrlRead($Combo1)
    $oWMP.controls.play()
    GUICtrlSetData($Progress1, 100)
    $oWMP.settings.volume = 50
    GUICtrlSetState($Volume, $GUI_ENABLE)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    Select
    Case $readcombo1 = "TechnoBase.FM"
    $oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx'
    Case $readcombo1 = "HouseTime.FM"
    $oWMP.URL = 'http://listen.housetime.fm/tunein-dsl-asx'
    Case $readcombo1 = "HardBase.FM"
    $oWMP.URL = 'http://listen.hardbase.fm/tunein-dsl-asx'
    Case $readcombo1 = "TranceBase.FM"
    $oWMP.URL = 'http://listen.trancebase.fm/tunein-dsl-asx'
    Case $readcombo1 = "CoreTime.FM"
    $oWMP.URL = 'http://listen.coretime.fm/tunein-dsl-asx'
    EndSelect
    Case $Button2
    $oWMP.controls.stop()
    GUICtrlSetState($Volume, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_ENABLE)
    EndSwitch
    $oWMP.settings.volume = 100 - GUICtrlRead($Volume)
    WEnd

    [/autoit]
  • so gehts:


    Spoiler anzeigen
    [autoit]

    #include <SliderConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $oWMP = ObjCreate("WMPLayer.ocx")
    $GUI = GUICreate("Radio Player", 300, 200)
    $Combo1 = GUICtrlCreateCombo("TechnoBase.FM", 5, 35, 190, 30)
    GUICtrlSetData(-1, "HouseTime.FM|HardBase.FM|TranceBase.FM|CoreTime.FM", "TechnoBase.FM")
    $Volume = GUICtrlCreateSlider(250, 45, 30, 150, BitOR($TBS_AUTOTICKS,$TBS_VERT))
    GUICtrlSetData(-1, $oWMP.settings.volume())
    GUICtrlSetState($Volume, $GUI_DISABLE)
    $Progress1 = GUICtrlCreateProgress(200, 80, 25, 60, $PBS_VERTICAL)
    $Button1 = GUICtrlCreateButton("Start", 20, 155, 75, 25)
    $Button2 = GUICtrlCreateButton("Stopp", 120, 155, 75, 25)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $readcombo1 = GUICtrlRead($Combo1)
    $oWMP.controls.play()
    GUICtrlSetData($Progress1, 100)
    $oWMP.settings.volume = 50
    GUICtrlSetState($Volume, $GUI_ENABLE)
    GUICtrlSetState($Button1, $GUI_DISABLE)
    Select
    Case $readcombo1 = "TechnoBase.FM"
    $oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx'
    Case $readcombo1 = "HouseTime.FM"
    $oWMP.URL = 'http://listen.housetime.fm/tunein-dsl-asx'
    Case $readcombo1 = "HardBase.FM"
    $oWMP.URL = 'http://listen.hardbase.fm/tunein-dsl-asx'
    Case $readcombo1 = "TranceBase.FM"
    $oWMP.URL = 'http://listen.trancebase.fm/tunein-dsl-asx'
    Case $readcombo1 = "CoreTime.FM"
    $oWMP.URL = 'http://listen.coretime.fm/tunein-dsl-asx'
    EndSelect
    Case $Button2
    $oWMP.controls.stop()
    GUICtrlSetState($Volume, $GUI_DISABLE)
    GUICtrlSetState($Button1, $GUI_ENABLE)
    Case $Volume
    $oWMP.settings.volume = 100 - GUICtrlRead($Volume)
    EndSwitch
    WEnd

    [/autoit]

    hab auch noch die ganzen unnötigen includes entfernt. und das setzten der lautstärke in nen case gepackt dann is die auslastung nich so hoch ;)

  • Hallo Pati1112

    Zitat von Pati1112

    Vielen dank :) ihr seid die besten

    hört man gerne, dann kannst du ja deinen Thread auf gelöst setzen: Eröffnungs-Post bearbeiten, Präfix (nähe Überschrift) auf gelöst stellen und absenden nicht vergessen,

    mfg (Auto)Bert