wav. datei abspielen

DumdiDum

Hi, ich versuche schon seit einer Weile das mir eine wav.datei abgespielt wird wenn mein Script durchgelaufen ist nur höre ich nix "Lautsprecher sind an & Ohren geputzt"

und ja ist nicht perfekt aber es soll seinen Zweck erfüllen, zwar soll es immer nach einer bestimmten zeit diese wav. datei abspielen

script

HotKeySet("{esc}", "ende")

HotKeySet("{p}", "PAUSE")

Global $pause = False

#include <Sound.au3>

_sound()

While 1

Sleep(4000)

Func _sound()

$snd = _SoundOpen(@ScriptDir &"D:\Eigene Dateien\AutoIT\Sound\DRUMROLL.wav")

_SoundPlay($snd)

return 1

EndFunc

Func PAUSE()

$pause = Not $pause

While $pause

Sleep(50)

WEnd

EndFunc

Func ende()

Exit

EndFunc

**Oscar**

Und Dir ist nicht aufgefallen, dass da ein WEnd fehlt?

Und der Pfad bei _SoundOpen falsch ist?

Wie wäre es mit etwas ErrorHandling?

DumdiDum

1. nein wo fehlt es ?

2. wo müsste der Pfad hin

3. ich bin sowas von Laie

evtl. etwas mehr Hilfe ?

MfG

**alpines**

Zitat von DumdiDum

1. nein wo fehlt es ?

2. wo müsste der Pfad hin

3. ich bin sowas von Laie

evtl. etwas mehr Hilfe ?

Schau doch mal in die Konsole von SciTE, spuckt der dir keine Fehlermeldungen aus?

DumdiDum

jetzt seh ich überhaupt nicht mehr durch

Spoiler anzeigen

>"C:\Program Files (x86)\AutoIt3\SciTE\..\au3check.exe" -q "D:\Eigene Dateien\AutoIT\Script\Sound.au3"

"D:\Eigene Dateien\AutoIT\Script\Sound.au3"(22,1) : error: missing Wend.

Func

^

"D:\Eigene Dateien\AutoIT\Script\Sound.au3"(15,1) : REF: missing Wend.

While

^

D:\Eigene Dateien\AutoIT\Script\Sound.au3 - 1 error(s), 0 warning(s)

>Exit code: 2 Time: 0.08377

**alpines**

Siehst du, Oscar hatte doch recht. Fix doch erstmal die Fehlermeldungen bevor du versuchst weiterzuarbeiten.

Die Konsole sagt dir genau wo was fehlt.

DumdiDum

ok ich weis jetzt wo der fehler liegt, evtl. kann mir noch wer aufzeigen wie es genau aussehen muss ?

MfG

**alpines**

Zitat von DumdiDum

kann mir noch wer aufzeigen wie es genau aussehen muss ?

Die Konsole sagt dir doch genau wo was fehlt.

DumdiDum

**Oscar**

Nach dem Sleep(4000) muss ein WEnd stehen und bei _SoundOpen musst Du den korrekten Pfad zu Deiner Sounddatei eintragen.

Den korrekten Pfad können wir nicht kennen, weil die Datei bei Dir auf der Festplatte liegt.

Ehrlich gesagt verstehe ich auch nicht so ganz, wieso Du mit diesen einfach Grundlagen bereits Probleme hast. Du bist seit 2009 hier im Forum angemeldet und hast immer noch Grundlagen-Probleme?

**alpines**

Zitat von Oscar

Den korrekten Pfad können wir nicht kennen, weil die Datei bei Dir auf der Festplatte liegt.

Der Pfad ist schon richtig, aber das @ScriptDir davor sieht ziemlich nach C&P aus.

TJF

AutoIt

#include <Sound.au3>

HotKeySet("{esc}", "ENDE")
HotKeySet("{p}", "PAUSE")
HotKeySet("{r}", "RESUME")
;HotKeySet("{s}", "STOP")

Global $snd

_sound()

While 1
    Sleep(100)
Wend


Func _sound()
    $snd = _SoundOpen("D:\Eigene Dateien\AutoIT\Sound\DRUMROLL.wav")
    _SoundPlay($snd)
    return 1
EndFunc


Func PAUSE()
    _SoundPause($snd)
EndFunc


Func RESUME()
    _SoundResume($snd)
EndFunc

#comments-start
Func STOP()
    _SoundStop($snd)
EndFunc
#comments-end

Func ENDE()
    _SoundStop($snd)
    Exit
EndFunc

Alles anzeigen

DumdiDum

Danke für das Script nur Funzt es nicht so wie ich es möchte die Wav.datei wird 1x abgespielt und danach bassiert nichts weiter

meine überarbeitete Version

Spoiler anzeigen

HotKeySet("{esc}", "ende")

HotKeySet("{p}", "PAUSE")

Global $pause = False

#include <Sound.au3>

_sound()

While 1

Sleep(4000)

Func _sound()

$snd = _SoundOpen("D:\Eigene Dateien\AutoIT\Sound\DRUMROLL.wav")

_SoundPlay($snd)

return 1

EndFunc

WEnd

Func PAUSE()

$pause = Not $pause

While $pause

Sleep(50)

WEnd

EndFunc

Func ende()

Exit

EndFunc

und folgende Fehlermeldung

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\Eigene Dateien\AutoIT\Script\Sound.au3"

"D:\Eigene Dateien\AutoIT\Script\Sound.au3" (22) : ==> "While" statement has no matching "Wend" statement.:

Func _sound()

>Exit code: 1 Time: 0.07236

Tuxedo

Dann hörst du am Besten damit auf Funktionen in While oder andere Schleifen zu schreiben, die haben dort nix zu suchen

und auch keinen Sinn, und ausserdem scheint mir daß, du mit der Pausenfunktion etwas anders beabsichtigt hast

als das was dein Script dann tut oder eben nicht tut.

Und du wolltest wohl auch, daß das Lied sich immer wieder neu startet, wenn ich mit allem richtig liege sollte

das folgende Script deine Wünsche erfüllen.

Mal sehen ob das dämliche Forum mir diesesmal ausnahmsweise nicht die Formatierung zerstört.

AutoIt

#include <Sound.au3>HotKeySet("{ESC}", "ende")HotKeySet("p", "PAUSE")Global $pause = False$snd = _SoundOpen("F:\Sound\Normale MP3\Diverses\Ike & Tina Turner - Nutbush City Limits.mp3")F_Sound()While 1    Sleep(4000)    If _SoundStatus($snd) = "stopped" Then F_Sound()WEndFunc F_Sound()    _SoundPlay($snd)    Return 1EndFunc   ;==>F_SoundFunc PAUSE()    If Not $pause Then        _SoundPause($snd)    Else        _SoundResume($snd)    EndIf    $pause = Not $pauseEndFunc   ;==>PAUSEFunc ende()    _SoundClose($snd)ExitEndFunc   ;==>ende

Achja den Namen der Sounddatei solltest du natürlich durch deine eigene ersetzen.

Wusste ichs doch, scheiss Forensoftware....deshalb hier nochmals als Dateianhang.

Erleben wir das eventuell noch, daß die Forensoftware beim Einfügen von Code nicht eigenmächtig die

Zeilenende-Zeichen herauslöscht ?????

Nachtrag:

Falls du den Computer weiter nutzen willst, während das Script läuft, solltest du den Hotkey für die Pause

abändern, da du mit dem aktuellen Script keine "p" mehr schreiben kannst, solange es läuft.

Tuxedo

Falls jemand von den 10 Leuten die sich den Player downloadeten Interesse, an einer erweiterten Version haben,

würde ich sie hochladen. Aber nur wenn ich auch etwas von dem vorhandenen Interesse sehen kann.

Nutzt einer von euch 10 Usern den Player, wenn ja brauchbar oder nicht.

Meine neue Variante kennt inzwischen eine einfache Playliste, Suchlauf im Titel(30Sekunden-Sprünge Vor+Zurück),

Lautstärkeregelung(0 bis 100 Prozent) und Titel-Repeat.

Aber es gibt noch ein Problem mit der Sound-UDF, ich habe einige Titel die beim _SoundOpen Befehl einen

MCI-Fehler auslösen, keine Ahnung warum, aber es liegt wohl an den MP3 Files.

Wenn ich so ein File während es in einem anderen Player läuft nochmals als MP3 mit den selben Daten aufnehme

läuft es hier auch.

Eventuell kann sich ja mal einer von den Fortgeschrittenen Usern hier die UDF dahingehend mal ansehen.

Eine File das nicht laden will, könnte ich zur Verfügung stellen.

DumdiDum

sorry das es etwas länger mit der antwort gedauert hat, ja es ist brauchbar nur funzt die Pausen Funktion nicht mehr ich habe jetzt auch "F1" statt "p" als kürzel eingefügt man praucht ja es ap un an

Gruß

Dum di Dum

**Oscar**

Zitat von Tuxedo

Eventuell kann sich ja mal einer von den Fortgeschrittenen Usern hier die UDF dahingehend mal ansehen.

Eine File das nicht laden will, könnte ich zur Verfügung stellen.

Ich kann mich noch dunkel daran erinnern, dass ich mit der Sound-UDF auch mal einen Player programmieren wollte.

Wenn ich mich recht erinnere, dann gab es Probleme mit MP3s die VBR kodiert waren.

Jedenfalls ist die BASS-UDF um ein Vielfaches besser geeignet und zuverlässiger.

Tuxedo

DumdiDum , Okay dann werde ich die neue Variante und eine kleine Beschreibung dazu hchladen, dauert aber noch etwas.

Ich hab für Pause Ctrl p genommen sollte aber mit deiner Version auch gehen, aber F1 ist nicht gerade die beste Lösung, da

mit F1 fast überall die Hilfe aufgerufen wird.

HotKeySet("{F1}", "PAUSE") sollte dann bei dir gehen.

oder eben HotKeySet("^p", "PAUSE")

Oscar , das hört sich nicht gut für mich an, ich wollte doch nur einen kleinen Player für zwischendurch machen.

BASS ist zwar sehr leistungsfähig aber auch ein Monster. BASS hat ja mehr Befehle als Autoit.

Und das mit VBR habe ich schon überprüft, es war eine 320kbit CBR Datei.

Hab sie dann in meinem Lieblingsplayer abgespielt und dabei gleichzeitig auch wieder als 320kbit cbr mitgeschnitten

und dann ging sie plötzlich. In diversen mp3's musste etwas enthalten sein was beim _SoundOpen Befehl Probleme

mit demm MCI Zeug auslöst.,Das heisst ich denke, daß irgendwo im Sound.au3 include etwas bei den MCI Befehlen modfiziert werden müsste. Leider bekomme ich keine genauere Fehlerbeschreibung raus, obwohl das möglich sein sollte.

Na vielleicht schaue ich mir die BASS-UDF mal an.

DumdiDum

tja irgendwie funzt das aber mit der Pause nicht, trotzdem Vielen Herzlichen Dank

Tuxedo

Dann stell doch mal das Script hier ein, mal sehen was daran falsch ist.

Bei mir gehts problemlos.