Hallo
ich versuche gerade ein Programm zu der Wiedergabe von MP3-Datein zu schreiben. Bislang bin so weit gekommen, dass es die gewünschte Datei in meiner Listbox anzeigt und ich diese auch abspielen kann. Einen Lautstärkeregler habe ich auch hinzugefügt, habe bei diesem nur das Problem, dass beim Öffnen des Programms die Lautstärke immer auf 0 gesetzt ist und weiß nicht wie ich das ändern kann. Ansonsten funktioniert dieser einwandfrei.
Nach längerem grübeln und mehreren Veruschen, habe ich es mitlerweise auch aufgegeben eine Funktion zu schrieben, mit welcher ich das Lied umschalten kann.
Ich wollte auch noch ein Funktion für die Speicherung der aktuellen "Playlist" in der Listbox machen, habe jeoch auch keine Ahnung wie ich as machen soll. So geht es mir auch bei der Anzeige des aktuellen Standpunktes im Lied.
Wenn mir jemand ein paar Tipps geben könnte, wie ich meine Ideen umsetzen kann, wäre dies großartig.
mfg
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <SliderConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 306, 133, 260, 280, $WS_POPUP)
GUISetBkColor(0xE0FFFF)
$Play = GUICtrlCreateLabel("4", 200, 36, 53, 45)
GUICtrlSetFont(-1, 36, 800, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0F00)
GUICtrlSetOnEvent(-1, "PlayClick")
GUICtrlSetTip(-1, "Play")
$For = GUICtrlCreateLabel("8", 243, 44, 31, 34)
GUICtrlSetFont(-1, 20, 400, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0FF0)
GUICtrlSetOnEvent(-1, "ForClick")
GUICtrlSetTip(-1, "Nächter Titel")
$back = GUICtrlCreateLabel("7", 180, 44, 31, 34)
GUICtrlSetFont(-1, 20, 400, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0FF0)
GUICtrlSetOnEvent(-1, "backClick")
GUICtrlSetTip(-1, "Vorheriger Titel")
$open = GUICtrlCreateLabel("1", 215, 86, 27, 21)
GUICtrlSetFont(-1, 12, 800, 0, "Wingdings")
GUICtrlSetColor(-1, 0xFF0FF0)
GUICtrlSetOnEvent(-1, "openClick")
GUICtrlSetTip(-1, "Öffnen")
$slider = GUICtrlCreateSlider(16, 112, 137, 19, $TBS_BOTTOM)
GUICtrlSetColor(-1, 0xFF0FF0)
GUICtrlSetLimit($slider , 100, 0)
$List1 = GUICtrlCreateListView("Titel", 16, 16, 137, 97)
GUISetState(@SW_SHOW)
WinSetTrans("Form1", "", 480)
While 1
SoundSetWaveVolume(GUICtrlRead($slider))
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func playclick()
$Song = _GUICtrlListView_GetItemTextString($List1)
SoundPlay($Song)
EndFunc
Func ForClick()
EndFunc
Func backClick()
EndFunc
Func openClick()
$Song = FileOpenDialog("Öffnen", @DesktopDir, "(*.mp3)")
GUICtrlCreateListViewItem($Song, $List1)
EndFunc
-> Die Farben sind nicht gerade schön, hab da iwas eingestellt