Hallo zusammen,
Ich habe in einem Ordner mehrere mp3 Dateien.
Es gibt auch Unterordner...
Folgendes möchte ich machen:
Ich möchte die mp3 Dateien kurz anhören (z.B. 10 Sekunden)
und dann sollte das nächste Lied angespielt werden.
Drücke ich z.B. die Space-Taste, dann soll das aktuelle Lied
in den Speicherordner "kopiert" werden.
Hier meine Versuche
Spoiler anzeigen
#include <File.au3>
#include <Array.au3>
#include <Sound.au3>
Dim $Array
HotKeySet("{Space}", "_Copy")
$Zeit = 10
$Musikordner = FileSelectFolder("Musik", @ScriptDir)
$Speicherordner = FileSelectFolder("Musik speichern in ", @ScriptDir, 1)
$Array = _FileListToArray($Musikordner, "*.mp3")
[/autoit] [autoit][/autoit] [autoit]_ArrayDisplay($Array)
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To UBound($Array) - 1
;MsgBox(0, "", $Array[$i])
SplashTextOn("Titel",$Array[$i])
Sleep(300)
$Song = _SoundOpen($Musikordner & "\" & $Array[$i])
[/autoit] [autoit][/autoit] [autoit]_SoundPlay($Song, 0)
[/autoit] [autoit][/autoit] [autoit]Sleep(4000)
[/autoit] [autoit][/autoit] [autoit]_SoundClose($Song)
SplashOff()
Next
Func _Copy()
FileCopy($Musikordner & "\" & $Array[$i],$Speicherordner & "\" & $Array[$i])
MsgBox(4096, "Kopiert", $Array[$i],1)
EndFunc ;==>_Copy
Die mp3 Dateien werden nacheinander angezeigt.
Ich wollte das auch mit SplashText anzeigen
solange das Lied läuft...
Edit... läuft jetzt...
2 Fragen habe ich noch:
Weiß jemand wie man da einen Loop einbauen kann?
Beispiel:
Ich höre das Lied! Dann setze ich den 1. Punkt und später das Loop Ende.
So daß eine Schleife läuft bis man abbricht!
Wie kann man eine Pause einbauen?
Liebe Grüße
Ilse