Soundplay mehrere Dateien

- [ offen ]
Ilse
3. März 2012 um 15:39
Geschlossen
Erledigt

1. offizieller Beitrag

Ilse

Meister

Beiträge

1.343
3. März 2012 um 15:39
- #1
Hallo,
eine Frage zu Soundplay:
Ich starte 2 Dateien gleichzeitig:
1. Musik (instrumental)
2. Geräusche
[autoit]

$Musik= _SoundOpen(@ScriptDir & "\Musik.mp3")
_SoundPlay($Musik, 0) ; spielt durch... Volume ändern!!! z.B. leise

$Geraesche = _SoundOpen(@ScriptDir & "\Ger.mp3")
_SoundPlay($allesehen, 1); 1 Geräusch ca. 10 Sekunden...Volume ändern!!! z.B. laut
_SoundClose($Geraesche )
[/autoit][autoit][/autoit][autoit]
_SoundClose($Musik)
[/autoit]
Meine Frage:
Kann ich beiden *.mp3's eine unterschiedliche Lautstärke zuteilen.
Also ohne die mp3's mit unterschiedlichen Lautstärken abzuspeichern.
z.B.
$Musik (Volume = 40)
$Geraesche (Volume = 80)
Geht das?
Grüße
Ilse
Raupi

Mjölnir

Reaktionen

1

Beiträge

4.093
3. März 2012 um 15:59

Offizieller Beitrag
- #2
Ich denke nicht, das du dein Vorhaben mit der Standard UDF lösen kannst.
Das ist ein Fall für die bass.dll, frag mich aber nicht wie das geht, hab selbst noch nie damit gearbeitet.
Einfach mal nach bass.dll im Forum suchen.
MfG Raupi
Meine UDF´S:
WM_Notify per Funktion UDF zum Anzeigen von Hilfetexten und einer Uhr in der Statusbar.Anzeige einer Uhr in der Menüzeile
GIF,JPG und BMP Dateien aus Resource laden. Array aus Dll-Datei laden UDF zum schreiben und lesen von Array´s in(aus) ein(em) INI-File
LUA Script zum erstellen eines Funktionsheaders.
Tipp: Zum bearbeiten von DLL Dateien kann man den XN Resource Editor benutzen, ist besser als Reshacker

Zitat von Sokrates

"Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."

Zitat von Werner Krauß

Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.
Nächster offizieller Beitrag
Ilse

Meister

Beiträge

1.343
3. März 2012 um 16:04
- #3
Hallo Raupi,
nur mal ein Gedanke...ohne dll
man könnte doch mehrere Instanzen verwenden.
Jedem Skript dann eine andere Volume geben...
Eine Idee ob das klappen kann?
Ilse
Raupi

Mjölnir

Reaktionen

1

Beiträge

4.093
3. März 2012 um 16:13

Offizieller Beitrag
- #4
Wie willst du das timen? Du weist ja nicht wie lange das Script zum laden braucht und wieviel Zeit vergeht bis jedes Script startet.
MfG Raupi
Meine UDF´S:
WM_Notify per Funktion UDF zum Anzeigen von Hilfetexten und einer Uhr in der Statusbar.Anzeige einer Uhr in der Menüzeile
GIF,JPG und BMP Dateien aus Resource laden. Array aus Dll-Datei laden UDF zum schreiben und lesen von Array´s in(aus) ein(em) INI-File
LUA Script zum erstellen eines Funktionsheaders.
Tipp: Zum bearbeiten von DLL Dateien kann man den XN Resource Editor benutzen, ist besser als Reshacker

Zitat von Sokrates

"Wer weiß, dass er nichts weiß, weiß mehr als der, der nicht weiß, dass er nichts weiß."

Zitat von Werner Krauß

Der Witz ist das Erdgeschoss des Humors, die Satire der Erste Stock, die Ironie der Zweite, der Sarkasmus das Mansardenstübchen.
Vorheriger offizieller Beitrag
Ilse

Meister

Beiträge

1.343
3. März 2012 um 17:25
- #5
Hallo Raupi,
sorry mußte kurz weg.
Die Musikdatei.mp3 ist die Backmusik.
Die wird einmal geladen und spielt ganz durch. Also keine Timingprobleme.
Das andere sind die kleinen Dateien die im Script danach geladen werden.
Muß man das mit SoundSetWaveVolume machen? Ist glaube ich nur für .*wav!
Ich stehe momentan vor folgenden Problemen ...müßte eigentlich mehrere Threads machen...
1. Die Musik.mp3's

Spoiler anzeigen

1. Im Script Ordner liegen mehrere Files
2. Es sollte eine per Zufall ausgewählt werden
3. Diese Datei sollte leise (-50%) abgespielt werden.

Wie kann ich nur eine mp3 (egal welche) per Zufall vom Scriptordner starten?
Liebe Grüße
Ilse
chesstiger

Forenmaskottchen

Beiträge

1.555
3. März 2012 um 17:59
- #6
Hi,
ich würde alle *.mp3-Dateien in ein *.ini-File eintragen, ungefähr so:

Code

[MAIN] SONG1=LiedNr1.mp3 SONG2=LiedNr2.mp3 usw...

Und dann, mit einem IniRead und Random zufällig eine auswählen.
LG chess
EDIT:
Also ungefähr so:
[autoit]
$File2Play = IniRead("bla.ini","MAIN","SONG" & Random(1,$LiederAnzahl,1),0)
[/autoit]
[Tutorial] Sauber Programmieren
[Tutorial] GDI+ Rundumschlag
[Blockierte Grafik: http://service.sebastian-walter.net/datediff/chess.php]
AndyTR

Beiträge

149
3. März 2012 um 18:05
- #7
Mal schnell was gemacht

Spoiler anzeigen

[autoit]
#include "Bass.au3"
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{Esc}", "_Exit")
[/autoit] [autoit][/autoit] [autoit]
_BASS_Startup(@ScriptDir & "\bass.dll")
_BASS_Init(0, -1, 44100, 0)
[/autoit] [autoit][/autoit] [autoit]
$Pfad = FileSelectFolder("", "")
;$Pfad = @UserProfileDir & "\Music\MP3's\" ; anpassen!
Global $Array = Array_GetFolderFiles($Pfad)
Global $Line, $Stream
Wiedergabe()
[/autoit] [autoit][/autoit] [autoit]
While 1
If _BASS_ChannelIsActive($Stream) = "0" Then
_Bass_ChannelStop($Stream)
_BASS_StreamFree($Stream)
Wiedergabe()
EndIf
Sleep(10)
Wend
[/autoit] [autoit][/autoit] [autoit]
Func Array_GetFolderFiles($sPath)
$oFSO = ObjCreate("Scripting.FileSystemObject")
$sFiles = ""
For $sFile In $oFSO.GetFolder($sPath).Files
If StringRight($sFile.Path, 4) = ".mp3" or StringRight($sFile.Path, 4) = ".wav" Then $sFiles &= $sFile.Path & "|"
Next
Return StringSplit(StringTrimRight($sFiles, 1), "|")
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func Wiedergabe()
$Line = Random(1, $Array[0], 1)
$Stream = _BASS_StreamCreateFile(0, $Array[$Line], 0, 0, 0)
_BASS_ChannelPlay($Stream, 1)
_BASS_ChannelSetVolume($Stream, 50)
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func _Exit()
_Bass_ChannelStop($Stream)
_BASS_StreamFree($Stream)
_BASS_Free()
Exit
EndFunc
[/autoit]

Gruß Andy
Dateien

Script.zip 130,37 kB – 201 Downloads
Ilse

Meister

Beiträge

1.343
3. März 2012 um 18:13
- #8
Hallo chesstiger,
dachte auch schon an eine ini.
Aber der Workaround wäre nicht toll.
Weil,... tausche ich mp3's aus, dann stimmt die ini nicht mehr.
Ich dachte am besten wäre ein Ordner wo alle Musik.mp3's enthalten sind.
Wenn sich daran etwas an der Anzahl, Titel...ändert, soll das... das Script nicht beeinflussen.
1. Am besten wäre es den Inhalt des Ordners (nur mp3)irgendwie in ein Array zu lesen
2. und dann aus dem Ordner eine Datei zufällig wählen.

Habe schon mit _FileReadtoArray probiert, bin aber nicht weitergekommen.
Es müsste nach *.mp3 gefiltert werden. Arrays huh...
Grüße Ilse
chesstiger

Forenmaskottchen

Beiträge

1.555
3. März 2012 um 18:25
- #9
Also bei mir listet das hier
[autoit]
#include
Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
Do
$counter+=1
MsgBox(0,"",$Array[$counter])
Until $Array[0] = $counter
[/autoit]

alle Dateien im Ordner mp3 auf.
Kannst du damit was anfangen?;)
lg chess
[Tutorial] Sauber Programmieren
[Tutorial] GDI+ Rundumschlag
[Blockierte Grafik: http://service.sebastian-walter.net/datediff/chess.php]
Ilse

Meister

Beiträge

1.343
3. März 2012 um 18:26
- #10
Hallo Andy,
merci für deine Mühe,
aber da tut sich nichts!
Fehler in der Bass.au3

Spoiler anzeigen

\Script\Bass.au3(727,53) : WARNING: $BASS_INFO: possibly used before declaration.
\Bass.au3(927,125) : WARNING: $BASS_UNICODE: possibly used before declaration.

Benutze Autoit 64bit Windows 7
Bass.au3 ist im Autoit Include-Verzeichnis...
Wenn ich Script.au3 starte kommen die Fehler.
Ilse
AndyTR

Beiträge

149
3. März 2012 um 18:31
- #11
Wenn du die Bass.au3 im Include-Verzeichnis hast, dann ersetze #include "Bass.au3" durch #include <Bass.au3> ...
Edit: Oder füge die BassConstants.au3 nochmal dazu.
Dateien

BassConstants.au3 33,18 kB – 183 Downloads
Ilse

Meister

Beiträge

1.343
3. März 2012 um 18:41
- #12
chesstiger
ja das klappt soweit prima.
Wie kann man das machen, daß die Anzeige per Zufall gewählt wird?
Andy
hat an der BassConstants.au3 gehängt.
Fehler sind jetzt alle weg, aber nichts passiert.
Weiß nicht wirklich was dein Script macht...?
Bei der Ordnerwahl, wähle ich den mp3 Ordner mit den Files
Ilse
AndyTR

Beiträge

149
3. März 2012 um 18:45
- #13
Also du wählst halt in dem Dialog den Ordner aus, in dem deine Musik liegt, alle mp3-/wav-Files werden in ein Array geschrieben, dann wird nacheinander zufällig einer der Tracks durchgespielt, sollte funktionieren, hm
chesstiger

Forenmaskottchen

Beiträge

1.555
3. März 2012 um 18:49
- #14
Auch wenn Andy ja schon eine Komplettlösung präsentiert hat...
[autoit]
#include <File.au3>
Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
MsgBox(0,"",$Array[Random(1,$Array[0]+1)])
[/autoit]

Gibt den Namen einer zufällig gewählten *.mp3-Datei im Ordner mp3 aus.
lg chess
[Tutorial] Sauber Programmieren
[Tutorial] GDI+ Rundumschlag
[Blockierte Grafik: http://service.sebastian-walter.net/datediff/chess.php]
Ilse

Meister

Beiträge

1.343
3. März 2012 um 19:03
- #15
Hallo Chesstiger,
jetzt müsste das ganze nur noch zu hören sein!

Spoiler anzeigen

#include <File.au3>
#include <Array.au3>
#include <Sound.au3>

Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
MsgBox(0,"",$Array[Random(1,$Array[0]+1)])

$Ergebnis = _SoundOpen($Array[Random(1,$Array[0]+1)])
_SoundPlay($Ergebnis, 1)
;_SoundClose($Ergebnis)

Anzeigen tut er, abr nicht spielen?
Ilse
Ilse

Meister

Beiträge

1.343
3. März 2012 um 19:09
- #16
Hab den Pfad drin...

Spoiler anzeigen

#include <File.au3>
#include <Array.au3>
#include <Sound.au3>

Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
;$Test = MsgBox(0,"",$Array[Random(1,$Array[0]+1)])
$Test = @ScriptDir&$Array[Random(1,$Array[0]+1)]
MsgBox(0,"a",$Test)

$Ergebnis = _SoundOpen($Test)
_SoundPlay($Ergebnis, 1)
;_SoundClose($Ergebnis)

klappt nicht...
chesstiger

Forenmaskottchen

Beiträge

1.555
3. März 2012 um 19:12
- #17
Also bei mir klappt das so...
[autoit]
#include <File.au3>
#include <Array.au3>
#include <Sound.au3>
[/autoit][autoit][/autoit][autoit]
Dim $Array
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
MsgBox(0,"",$Array[Random(1,$Array[0]+1)])
[/autoit][autoit][/autoit][autoit]
$Ergebnis = _SoundOpen(@ScriptDir & "\mp3\" & $Array[Random(1,$Array[0]+1)])
_SoundPlay($Ergebnis, 1)
[/autoit]
Mit Pfad einwandfrei.
LG chess
[Tutorial] Sauber Programmieren
[Tutorial] GDI+ Rundumschlag
[Blockierte Grafik: http://service.sebastian-walter.net/datediff/chess.php]
Ilse

Meister

Beiträge

1.343
3. März 2012 um 19:14
- #18
ich hab's
$Test = @ScriptDir&"\mp3\"&$Array[Random(1,$Array[0]+1)]
jetzt müsste nur noch für die Datei
eine kleine Lautstärke eingestellt werden. Dann wäre es perfekt.
...schade muß gleich wieder los...
sage trotzdem
DANKE an alle
Grüße
Ilse
chesstiger

Forenmaskottchen

Beiträge

1.555
3. März 2012 um 19:18
- #19
Hm... für die Lautstärke fiele mir spontan nichts ein, ich habe aber noch nie was mit Sounds bei AutoIt gemacht, wenn man von Beep() absieht.
Ich guck mal, ob ich was finde, wenn ja, melde ich mich.
lg chess
[Tutorial] Sauber Programmieren
[Tutorial] GDI+ Rundumschlag
[Blockierte Grafik: http://service.sebastian-walter.net/datediff/chess.php]
Ilse

Meister

Beiträge

1.343
3. März 2012 um 19:27
- #20
würde mich freuen...
das Problem wäre wirklich,
daß alle mp3 Dateien jedesmal im Ordner auf eine andere
Lautstärke gebracht werden, ziemlich umständlich...
Sage für heute
Tschüss
Ilse

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.