Quittungston generieren???

[Sonntagsflieger]

Was tut sich denn mit:

Code: Alles auswählen

Sub Main(event)
    adress = event.CellAddress
    If adress.Row < 5 And adress.Column = 0 And event.Value > 0 Then
        shell("/Applications/VLC.app/Contents/MacOS/VLC -I ""dummy"" --play-and-exit /System/Library/Sounds/LK_BEEP0.WAV")
    End If
End Sub

Perfekt! Das war es. Ich sehe weder eine GUI noch multiple offene Instanzen. Nur bei der ersten Eingabe (und erstmaligem Laden von VLC) gibt es eine gewisse Latenz, ab dann kommt der Piepton syncron mit der Eingabe. Damit kann ich arbeiten. Kannst Du mir kurz erklären was genau Du mit der Änderung im script bewirkt hast? Ich würde es nur gerne verstehen...

Tausend Dank + viele Grüße!

[karolus]

Hallo
Da kann ich dir nichts erklären ``wieso`` das so funktioniert.
Abgeleitet habe das aus dem Inhalt des schon mehrfach zitierten Scripts /usr/bin/cvlc auf meinem System, das hat den Inhalt:

Code: Alles auswählen

#! /bin/sh
exec /usr/bin/vlc -I "dummy" "$@" 

[Sonntagsflieger]

Hallo
Da kann ich dir nichts erklären ``wieso`` das so funktioniert.

Schade.

Abgeleitet habe das aus dem Inhalt des schon mehrfach zitierten Scripts /usr/bin/cvlc auf meinem System

Verstehe ich jetzt nicht. Wo wurde das zitiert? Zumindest nicht in diesem Thread.

Ferner verstehe ich nicht was "dummy" in dem Zusammenhang bedeutet, "$@" verstehe ich auch nicht und schon gar nicht was die doppelten Anführungszeichen bewirken:

Code: Alles auswählen

shell("/Applications/VLC.app/Contents/MacOS/VLC -I ""dummy"" --play-and-exit /System/Library/Sounds/LK_BEEP0.WAV")

Aber naja, es läuft ja, vielleicht kann mir nochmal irgendwann jemand erklären was welches kommando bewirkt...

Viele Grüße!

[karolus]

Hallo
Da kann ich dir nichts erklären ``wieso`` das so funktioniert.

Schade.

Abgeleitet habe das aus dem Inhalt des schon mehrfach zitierten Scripts /usr/bin/cvlc auf meinem System

Verstehe ich jetzt nicht. Wo wurde das zitiert? Zumindest nicht in diesem Thread.

Jetzt stell dich bitte nicht blöd - /usr/bin/cvlc

Ferner verstehe ich nicht was "dummy" in dem Zusammenhang bedeutet, "$@" verstehe ich auch nicht und schon gar nicht was die doppelten Anführungszeichen bewirken:

Zitat aus `vlc -h`:

Code: Alles auswählen

-I, --intf <Text>              Interface-Modul

dummy ist nichts weiter als der Name eines Interfaces das nichts tut.( →keine GUI )
in der Basic-IDE muss schon die ganze Kommandozeile in Anführungszeichen gesetzt werden, durch die Verdopplung werden die notwendigen Anführungszeichen innerhalb geschützt.
$@ ist die Variable der Shell die besagt ersetze mich durch das was du hinter `cvlc' auf der Kommandzeile eingibst


wir sind jetzt weit OffTopic für ein Calc-forum - lassen wirs gut sein.

[Sonntagsflieger]

Jetzt stell dich bitte nicht blöd - /usr/bin/cvlc

Immer schön freundlich bleiben. Was hätte ich davon mich "blöd" zu stellen? Ich möchte es ja nur verstehen. Du meintest also nur daß das Kommando "cvlc" schon zitiert wurde. Ein "script" ist für mich hingegen mehr als ein Kommando. Hättest Du das gleich so geschrieben hätte ich es auch gleich verstanden.

wir sind jetzt weit OffTopic für ein Calc-forum - lassen wirs gut sein.

Finde ich gar nicht. Ist ja mein Topic und m.E. gehört alles immer noch zur Frage wie man einen Quittungston generiert. Wenn ich nichts verstehe und Eure Tipps bzw. scripts einfach nur stumpf abtippe habe ich davon wenig. Insofern danke ich Dir nochmal vielmals für - gerade auch Deine letzten - Erklärungen. Das hat mir nochmals eine Menge gebracht. Von daher: alles gut!

Viele Grüße!

[Sonntagsflieger]

Der Charme meiner Lösung ist, das kein anderes Programm benötigt wird. Tja, schade ...

Da hast Du natürlich recht und jetzt habe ich einfach mal über Parallels Windows laufen lassen, die entsprechende Libre Office Version installiert und siehe da > Deine Lösung über die neu geschriebene Funktion und das dazugehörige Makro funktioniert einwandfrei. Von daher nochmal tausend Dank an Dich!

Ich würde jetzt allerdings gerne die Funktion etwas modifizieren. Aktuell steht sie so da und funktioniert so auch wunderbar:

Code: Alles auswählen

=IF_SOUND(A1;0;"LK_BEEP0.WAV")

Ich würde nun gerne allerdings die Bedingungen erweitern in der Weise, daß der Beep nur ertönen soll wenn in "A1" ein Wert zwischen 5.000 und 10.000 steht. Wie kann ich das am besten bewerkstelligen? Geht das mit Einbindung der "UND" Funktion (habe ich nicht hingekriegt) oder muss dafür Deine "IF_SOUND" Funktion in VBA umgeschrieben/erweitert werden?

Zur Erinnerung hier nochmal der perfekt funktionierende VBA-Code für Deine "IF_SOUND"- Funktion:

Code: Alles auswählen

function IF_SOUND(CELL,Formula,Soundfile)
    on error goto errorhandler
    sSound1 = F_get_Sound(Soundfile) 
    if CELL = Formula then 
        InitSounds(sSound1)
    endif
    errorhandler:
End function

global oPlayer1

Sub InitSounds(sSound1 as string)
     dim oPlayer as Object
     If GetGuiType() = 1 Then
         oSounMgr = CreateUnoService("com.sun.star.media.Manager_DirectX")
     Else
         oSounMgr = CreateUnoService("com.sun.star.media.Manager_GStreamer")
     End If
     If NOT IsNull(oSounMgr) Then
        If fileexists(sSound1) Then
            oPlayer1 = oSounMgr.createPlayer(sSound1)
            oPlayer1.setPlaybackLoop(False)
            oPlayer1.setMediaTime(0.0)
            oPlayer1.start()
        End If
     End If
End Sub

function F_get_Sound(Sound1)
    dim args(0)
    oAppl_url = CreateUnoService("com.sun.star.util.PathSettings")
    sTemplateUrl = oAppl_url.Template_Writable(0)
    F_get_Sound = sTemplateUrl & "/" & Sound1
end function

Danke schonmal und Gruß!

[F3K Total]

Probier doch mal diese Formel (ungeprüft)

Code: Alles auswählen

= WENN(UND(A1>=5000;A1<=10000);IF_SOUND(A1;A1;"LK_BEEP0.WAV");"")

Gruß R

[Sonntagsflieger]

Hallo F3K,

super! Vielen Dank, funktioniert bestens, ich habe wieder die Formeln falsch eingesetzt, daran lag's. Nun habe ich aber leider wieder ein völlig anders gelagertes Problem: Nachdem es wunderbar geklappt hat mit beiden Formeln, höre ich jetzt auf einmal nur noch 2 x ein entsetzliches "Knacken" statt dem Beep. Selbst wenn ich die WAV-Datei extra mit dem Windows Media Player abspiele tritt nur noch dieses Knacken auf. Ich habe nichts zu vorher verändert und weiss keinen Rat...

Hat jemand 'nen Tipp (ich weiss das hat mit Libre Office an sich awohl nichts zu tun)?

Gruß!

EDIT: Das mit dem Knacken hat sich durch einen Windows-Neustart erledigt. Keine Ahnung woran es lag...

[Sonntagsflieger]

Lieber F3K,

einen letzten Schönheitsfehler habe ich noch in meiner Calc-Datei. Leider funktioniert das Makro für den Quittungston aus (mir) unerfindlichen Gründen "nur" bis Zoomstufe 350%. Für meine Anwendung benötige ich aber die Ansicht meiner Tabelle auf 400% Zoomstufe. Hast Du eine Ahnung woran es liegen könnte oder vielleicht einen Tipp wie ich das Makro verändern muss damit es auch bei Zoomstufe 400% funktioniert?

Danke + Gruß!

[F3K Total]

Was hast du genommen?
Erhöhe den Schriftgrad und reduziere die Zoomstufe.
R