Hallo
Ich sitze schon einige Zeit an dem selben Problem.
Bei meiner Recherche habe ich WHEN_BEEP und IF_Sound schon ausprobiert, aber das hat acuh nciht so richtig funktioniert, da ich die Soundausgabe selber mit einer Wenn Abfrage steuern möchte und diese nicht in der Funktion integriert sein soll. Daher PLAYON.
Ich möchte eine Tabelle für eine Inventur benutzen.
Wenn ein Artikel eingescannt wird, wird er über Sverweis in einer anderen Tabelle gesucht und über Zählenwenn addiert.
Die gewonnenen Daten werden dann in anderen Spalten ausgewertet.
Es soll ein Fehlerton ertönen, wenn er den Artikel nicht findet, oder aber die Anzahl ansagen.
Es funktioniert auch fast mit dieser Formel.
=WENN(A3>0;WENN(B3="Nicht vorhanden";PLAYON(1;"C:\...\template\pluck.wav");PLAYON(1;VERKETTEN("C:\...\template\";C3;".wav")));"")
( Verketten funktioniert hier sehr gut, da ich alle möglichen Zahlen als Wav- File in dem Ordner gespeichert habe).
Ich habe bereits versucht das Makro PLAYON ( Quasi von XP zu WIN10) anzupassen. Aber da kenne ich mich nicht gut genug aus und weiss ich nicht wie ich es für WIn 10 und den WMplayer richtig anpasse. Scheinbar gibt es ja mplay32.exe nicht mehr für neuere WIn Versionen.
Der Fehler, den ich jetzt habe ist der : Es werden alle Werte von vorn wieder abgespielt und nicht nur der aktuelle eingegebene Wert.
Im Code vom Makro habe ich die Pfade für den Player angepasst
FUNCTION PLAYON(optional repeats as integer, optional SoundFile as string) 'wie oft, welche Tonsequenz
if IsMissing (SoundFile) Then soundfile = "C:\Users\rco\AppData\Roaming\OpenOffice\4\user\template\pluck.wav"
if IsMissing (repeats) Then repeats = 1
playme = ConvertToUrl ("C:\Program Files (x86)\Windows Media Player\wmplayer.exe")
for i=1 to repeats
Shell(playme, 2, " /play /close /new " & SoundFile, 0)
wait 1000 ' ggf. erhöhen wenn Tonsequenz länger als 1 Sekunde
next
End FUNCTION
Meine Fragen
- gibt es mittlerweile einen besseren Ansatz z.B. quasi schon ein Open Office eigene Funktion?
oder gibt es einen Weg mplay32.exe einfach zu installieren ( Quasi eine alten XP -Mediaplayer),
oder sollte ich ein anderes Programm nutzen in dem Makro PLAYON,
bzw wo ist der Fehler - kann mann die Zeile shell(playme, 2, " /play /close /new " & SoundFile, 0) für den wmplayer 12 anpassen.
Ich hoffe es kann mir jemand helfen bei dem Problem.
Schon mal vielen Dank im vorraus.
Ich nutze Open Office 4.1.10 und WIN 10
Dufte Grüße Ron