Hallo an alle,
Ich bin Neuling auf den Gebiet der Autoitsprache. Ich hab ein Problem:
Ich habe ein GUI erstellt und ein Sound mit SoundPlay zum spielen gebracht. Nun würd ich gerne die Lautstärke mit einem Slider regeln können. Kann mir wer helfen?
Würde mich freuen wenn mir wer postet.
LG Setho
Hallo und :willkommen: im forum 
Das könnte ungefähr so aussehen:
#include <GUIConstants.au3>
Global $VolLevel = 100
GUICreate("Slidertest", 166, 62, 193, 126)
$Volume = GUICtrlCreateSlider(10, 10, 150, 45)
GUICtrlSetData($Volume, 100)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
If GUICtrlRead($Volume) <> $VolLevel Then
SoundSetWaveVolume(GUICtrlRead($Volume))
$VolLevel = GUICtrlRead($Volume)
EndIf
EndSelect
WEnd
Hoffe konnte dir helfen
Mfg Spider
Hey gtaspider!
Danke das Script ist super. Ich hab da noch ein bitte: Könntest du das Script noch kommentieren? So das ich weiß wie du darauf gekommen bist? Möchte schließlich auch mal eigene gute Scripte schreiben. Wie gesagt: Bin ja noch vollkommen neu auf dem Gebiet. *hoffe ich verlang jetzt nicht zu viel*
Nochmal ganz doll danke für deine Hilfe. :]
LG Setho
PS: Ganz wichtig wäre das mit den while und so... Seh da kein stich durch.
Hallo!
Also, ich mach es mal:
die While-Schleife ist eine Endlosschleife. Das verhindert, dass das Skript sich beendet, weil es unten angekommen ist. Auf diesem Weg kann das Skript auf GUI-Nachrichten reagieren.
Diese Nachrichten werden mit GUIGetMsg() in die Variable $msg geholt.
Der Select...Case...[Case...]EndSelect-Block wertet diese Variable aus und tut verschiedene Dinge abhängig von dem Wert der Nachricht. Wird ein Button geklickt, hat die $msg die Button-ID, die GUICTRLCreateButton.
Statt diesem Select, könnte man auch If..Then..ElseIf...usw. verwenden. Wäre verständlicher, aber etwas länger.
Was mir auch nicht klar ist, ist, warum gtaspider eine HIlfsvariable $VolLevel einführt. Das scheint mir überflüssig zu sein...
Teil 2 der Erklärungen, diesmal direkt im Skript von gta, das ich leicht angepasst und nicht getestet habe:
; Hier werden Konstanten eingebunden, mit denen man häufige Nachrichten-IDs von Windows als sprechende Variable abgreifen kann
#include <GUIConstants.au3>
; Variable für das Speichern des letzten Slider-Wertes vorbelegen
Global $Vol_alt = 100
; GUI-Aufbau (zunächst das Fenster mit Titel, Größe und Position
GUICreate("Slidertest", 166, 62, 193, 126)
; Die ID des Sliders wird in $Volume gespeichert
$Volume = GUICtrlCreateSlider(10, 10, 150, 45)
; der Slider wird auf den Wert 100 gesetzt:
GUICtrlSetData($Volume, 100)
; Die GUI wird angezeigt (nicht vergessen!)
GUISetState(@SW_SHOW)
; hier beginnt die oben angesprochenen Endlosschleife
While 1
; Hier holt man die Nachrichten-ID von Windows in die Variable $msg
$msg = GUIGetMsg()
; Beginn der Select-Anweisung
Select
; "Für den Fall, dass $msg (Nachrichten-ID) gleich der Zahl $GUI_EVENT_CLOSE ist, tue folgendes:
Case $msg = $GUI_EVENT_CLOSE
; Raus aus der Schleife (While-Endlosschleife) -> Programm ist ganz unten -> wird beendet
ExitLoop
; In allen anderen Fällen tue folgendes:
Case Else
; Wenn der ausgelesene Wert aus dem Slider anders ist als der Wert des Sliders bei der letzten Änderung (Im Klartext: Slider wurde verschoben), dann ...
If GUICtrlRead($Volume) <> $Vol_alt Then
; ... setze die Lautstärke auf den Wert, den der Slider hat und...
SoundSetWaveVolume(GUICtrlRead($Volume))
; ... speichere die jetzige Sliderposition als alte Position
$Vol_alt = GUICtrlRead($Volume)
EndIf
; Abschluss der Select-Anweisung
EndSelect
; Ende der While-Schleife
WEndSo weit erst mal, bei weiteren Fragen einfach melden,
peethebee
Hallo
peethebee : Die hilfsvariable ist aus dem grund drinnen damit er nicht ununterbrochen die SoundVolume ändern muss und somit die CPU last unötig erhöt 
@Setho: Habe jetzt einfach mal komentare eingefügt, Villeicht auch mal die Deutsche Hilfe von peethebee durchlesen die du unten in meiner Sig findest unter Erste Hilfe
#include <GUIConstants.au3> ;Schließt die GuiConstants ein
Global $VolLevel = 100; Definiert die Variable VolLevel( ist für unten Wichtig)
GUICreate("Slidertest", 166, 62, 193, 126) ;Erstellt die Gui
$Volume = GUICtrlCreateSlider(10, 10, 150, 45) ;Erstellt den Slider
GUICtrlSetData($Volume, 100);Setzt den Slider auf 100
GUISetState(@SW_SHOW); zeigt die GUI
While 1 ;Startet die Endlosschleife
$msg = GUIGetMsg();Holt die daten von der Gui, Wenn z.b. ein Button gedrückt wird oder wie in dem Fall der slider sich verändert
Select;Startet Select
Case $msg = $GUI_EVENT_CLOSE ;Wenn du oben auf das rote x drückst wird die GUI so geschlossen
ExitLoop;Die Endlosschleife wird beendet
Case Else ; Wenn etwas anderes passiert, also die GUI nicht geschlossen wird
If GUICtrlRead($Volume) <> $VolLevel Then;Wenn der Alte VolLevel größer oder kleiner ist als der Slider...
SoundSetWaveVolume(GUICtrlRead($Volume));...Soll er die Lautstäre regulieren
$VolLevel = GUICtrlRead($Volume);Jeztt wird die momentane Lautstärke als $VolLevel definiert
EndIf
EndSelect;Endet Select
WEnd;Startet die Schleife wider von vorne
;Mfg Spider ;)Hallo!
Das mit der HIlfsvariable habe ich dann auch gemerkt, aber wenn neuer Rechner da ist, dann ist mir das wurscht 
Ich denke, unsere beiden Kommentare sollten zusammen reichen *g*.
peethebee
Hallo,
Angeber
Stimmt fürs erste Hab nur nochmal nachgemacht damit man das auch im skirpt besser nachvollziehen kann
Mfg Spider
Hi gTaSpIdEr!
Wieso nutzt du bei meinem Nick eigentlich so inflationär Großbuchstaben?
In meiner Version ist da keine drin... (siehe Signatur)...
peethebee :admin:
He ihr beiden,
danke, danke, danke!!!
Ihr habt mir sehr geholfen. peethebee hat mir noch supi im messi geholfen aber das hätte gtaspider auch gemacht. Jedenfalls habsch das script begiffen.
Ich versuch mich an was neuem
Seit lieb gegrüßt.
Der Setho
Tut gut das Lob, danke!
peethebee
Hallo!
peethebee : find ich so schöner *g*
@SeThO Bitte Hoffe auf weitere fragen aber vorallem skripte von dir
mfg GtAsPiDeR *g*