Auto It Player

Hey Community,
ich habe vor einen Auto It Player zu basteln.
Jedoch fehlen mir die Ideen...
Bis jetzt habe ich folgendes:

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Auto It Player",449, 83, 193, 125)
$Menue = GUICtrlCreateMenu ( "&Menü")
$play = GUICtrlCreateMenuItem ( "Play",$Menue )
$Menue2 = GUICtrlCreateMenu ( "&About")
$About = GUICtrlCreateMenuItem ( "About",$Menue2)
$Menue3 = GUICtrlCreateMenu ( "&Credits")
$Credits = GUICtrlCreateMenuItem ( "Credits",$Menue3)
$Slider1 = GUICtrlCreateSlider(355, 48, 94, 16)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$lautstaerke = GuiCtrlRead ( $Slider1 )
SoundSetWaveVolume ($lautstaerke)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $play
WinSetState ("Auto It Player","",@SW_HIDE)
$auswahl = FileopenDialog ( "Open...","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}","Music (*.mp3;*.wma)")
WinSetState ("Auto It Player","",@SW_Show)
SoundPlay ( $auswahl,0)
Case $About
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox (48,"About","This is just a small programm" & @CRLF & "to increase my Autoit Skill.")
WinSetState ("Auto It Player","",@SW_Show)
Case $Credits
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox (48,"Credits","Coded by Benedikt 'r1fLeX' Schubert")
WinSetState ("Auto It Player","",@SW_Show)
EndSwitch
WEnd

[/autoit]

Was könnte ich noch hinzufügen?
Danke für eure Anregungen und Tipps

Danke für die Tipps Lenny.
Gibts da nen UDF für die _sound funktionen?

btw , Lautstärke ist bereits intigriert:

[autoit]

16 $lautstaerke = GuiCtrlRead ( $Slider1 )
17 SoundSetWaveVolume ($lautstaerke)

[/autoit]

wenn pause is das man eizilbid vorlaufen klassen kann

^^ignore it

mein fehler is nur für audio dachte soll nen player für alles werden

Ok , hat wer grad ein paar schöne Play/Pause/Stop- Buttons parat?

Danke.
Aber könntest du die etwas kleiner machen?
Wäre nett.

Danke.Nun muss ich noch wissen wie ich diese Bilder auf Buttons anwende.Ich hab gedacht ich weiß es noch aber anscheinend doch nicht mehr :P.

Und ich habe grad nochmal ein "neues" Design mit Koda gemacht jedoch wenn ich das Programm per F5 in Scite öffne will das Programm direkt auf Datei und Open gehen also öffnet sich immer und immer wieder "FileOpenDialog"?!

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\rifLeX\Desktop\Auto It Player.kxf
$Form1 = GUICreate("Form1", 451, 78, 0, 0)
$Tab1 = GUICtrlCreateTab(0, 0, 448, 22)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$menue1 = GUICtrlCreateTabItem("&Datei")
$Open = GUICtrlCreateMenuItem("Open File",$menue1)
$exit = GUICtrlCreateMenuItem("Exit",$menue1)
$menue2 = GUICtrlCreateTabItem("&About")
$Aboutamp = GUICtrlCreateMenuItem("About AMP",$menue2)
$Aboutme = GUICtrlCreateMenuItem("About Me",$menue2)
$menue3 = GUICtrlCreateTabItem("&Credits")
$Creditsprogramm = GUICtrlCreateMenuItem("Program",$menue3)
$Creditsdesign = GUICtrlCreateMenuItem("Design",$menue3)
$Slider1 = GUICtrlCreateSlider(345, 60, 103, 16)
$Button1 = GUICtrlCreateButton("Play", 3, 54, 43, 22, 0)
$Button2 = GUICtrlCreateButton("Pause", 60, 54, 43, 22, 0)
$Button3 = GUICtrlCreateButton("Stop", 116, 54, 43, 22, 0)
$Label1 = GUICtrlCreateLabel("", 186, 60, 10, 13)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$lautstaerke = GuiCtrlRead ( $Slider1 )
SoundSetWaveVolume ($lautstaerke)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Open
WinSetState ("Auto It Player","",@SW_HIDE)
$auswahl = FileopenDialog ( "Open...","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}","Music (*.mp3;*.wma)")
WinSetState ("Auto It Player","",@SW_Show)
SoundPlay ( $auswahl,0)
Case $Aboutamp
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox (48,"About","This is just a small programm" & @CRLF & "to increase my Autoit Skill.")
WinSetState ("Auto It Player","",@SW_Show)
Case $Creditsprogramm
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox (48,"Credits","Coded by Benedikt 'r1fLeX' Schubert")
WinSetState ("Auto It Player","",@SW_Show)
Case $exit
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox(48,"Good Bye","Thank you for using my Programm")
Exit
EndSwitch
WEnd

[/autoit]

Ich konnte den Fehler leider nicht finden

Ich hab aber für dich alles auf GUIOnEventMode umgestellt da ich das für einen Audio/Media - Player geeigneter halte:

[autoit]

#include <GUIConstants.au3>

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

Opt("GUIOnEventMode",1)

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\rifLeX\Desktop\Auto It Player.kxf
$Form1 = GUICreate("Form1", 451, 78, -1, -1)
GUISetOnEvent(-3,"_BYEBYE")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$menue1 = GUICtrlCreateMenu("&Datei")
GUICtrlSetOnEvent(GUICtrlCreateMenuItem("Open File",$menue1),"_OPEN")
GUICtrlSetOnEvent(GUICtrlCreateMenuItem("Exit",$menue1),"_BYEBYE")
$menue2 = GUICtrlCreateMenu("&About")
GUICtrlSetOnEvent(GUICtrlCreateMenuItem("About AMP",$menue2),"_ABOUTAMP")
$Aboutme = GUICtrlCreateMenuItem("About Me",$menue2)
$menue3 = GUICtrlCreateMenu("&Credits")
GUICtrlSetOnEvent(GUICtrlCreateMenuItem("Program",$menue3),"_CREDITSPROGRAMM")
$Creditsdesign = GUICtrlCreateMenuItem("Design",$menue3)
$Slider1 = GUICtrlCreateSlider(345, 60, 103, 16)
GUICtrlSetOnEvent($Slider1,"_SLIDECHANGED")
$Button1 = GUICtrlCreateButton("Play", 3, 20, 43, 22, 0)
$Button2 = GUICtrlCreateButton("Pause", 60, 20, 43, 22, 0)
$Button3 = GUICtrlCreateButton("Stop", 116, 20, 43, 22, 0)
$Label1 = GUICtrlCreateLabel("", 186, 20, 10, 13)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
Sleep(1000)
Wend

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

Func _SLIDECHANGED()
SoundSetWaveVolume (GuiCtrlRead ( $Slider1 ))
EndFunc

Func _OPEN()
WinSetState ("Auto It Player","",@SW_HIDE)
$auswahl = FileopenDialog ( "Open...","::{20D04FE0-3AEA-1069-A2D8-08002B30309D}","Music (*.mp3;*.wma)")
WinSetState ("Auto It Player","",@SW_Show)
SoundPlay ( $auswahl,0)
EndFunc

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

Func _ABOUTAMP()
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox (48,"About","This is just a small programm" & @CRLF & "to increase my Autoit Skill.")
WinSetState ("Auto It Player","",@SW_Show)
EndFunc

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

Func _CREDITSPROGRAMM()
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox (48,"Credits","Coded by Benedikt 'r1fLeX' Schubert")
WinSetState ("Auto It Player","",@SW_Show)
EndFunc

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

Func _BYEBYE()
WinSetState ("Auto It Player","",@SW_HIDE)
MsgBox(48,"Good Bye","Thank you for using my Programm")
Exit
EndFunc

[/autoit]

Um ein Bild als Button zu verwenden musst du lediglich den Buttton durch ein Picture ersetzen. Und dann auch nur unten in die "Case" schreiben:

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
Msgbox(0, "Test", "Buton wurde geklickt!")
EndSwitch
Wend

[/autoit]

Super wäre ne Mischung aus Blau und Rot also die Buttons so in Rot eher dunkel Rot und dann diesen "3D" Effekt in Blau!

Danke, so hab ich mir das vorgestellt!
Jetzt nurnoch um 60% verkleinern und du komsmt in die Credits!^^

Ok , danke.
also

[autoit]

$Button1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\rifLeX\Desktop\play.png",-1, -1, 22, 0)

[/autoit]

funtzt nicht?!