Ooffice-calc -> Sound möglich?

Computer: Software & Programmierung Office Software
1

Hallo,
ist es möglich in ooffice-calc (V. 2.3) eine WENN - Abfrage zu erstellen die bei einer (un)erfüllten Bedingung eine akustisches Signal ertönen lässt?

Gibt es soetwas wie eine „beep“-Funktion?

Grüße
K.

2

ist es möglich in ooffice-calc (V. 2.3) eine WENN - Abfrage zu
erstellen die bei einer (un)erfüllten Bedingung eine
akustisches Signal ertönen lässt?
Gibt es soetwas wie eine „beep“-Funktion?

Hi Klaus,
ohne es definitiv zu wissen, kenne mich mit OO nicht aus, sage ich, das geht wie in Excel nur mit Vba.
Und da ist es so daß man Zellwertänderungen nur dann automatisch von Vba erkennen lassen kann, wenn sie manuell eingegeben worden sind.
Beispliel, du hast in A1 stehen
=wenn(b1>100;„Freudenton spielen“;„Trauerton spielen“)

so kann man in das Modul von Tabelle1 schreiben:

Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address "$B$1" Then Exit Sub
If Target \> 100 Then
 Call Ton(792, 1000)
Else
 Call Ton(264, 1000)
End If
End Sub

und in allgemeines Modul Modul1:

Option Explicit
'
Private Declare Function Beep Lib "kernel32" \_
 (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'
Sub Ton(freq, laenge)
Beep freq, laenge
End Sub

Beispiel bezieht sich auf Excel, müßte aber irgendwie in OO auch so gehen, hab hier grad kein OO, aber vielleicht hat hier jmd. OO und kann das mal testen.

Gruß
Reinhard

3

Hallo,
danke erstmal für die Antwort.
Wie sieht es denn in Excel mit der Ausgabe von Steuerzeichen aus? Irgendein Steuerzeichen ist ja normalerweise der Beep-Ton. Kann man Steuerzeichen in Excel „ausgeben“?
Grüße
K.

4

Wie sieht es denn in Excel mit der Ausgabe von Steuerzeichen
aus? Irgendein Steuerzeichen ist ja normalerweise der
Beep-Ton. Kann man Steuerzeichen in Excel „ausgeben“?
Grüße

Hallo Klaus,
ich erinnere mich dunkel daß die 7 das Steuerzeichen für Beep war unter Dos.
In normalem Excel geht da nix, mutmaße in OO auch nicht. Wie gezeigt geht es mit Vba und nur damit und sicher kann man da irgendwie das Zeichen(7) senden/ausgeben, aber was hast du gegen Beep?
Gruß
Reinhard

5

Hallo,

Lösung gefunden…
(für Linux! -> Aufruf der Beep-Funktion!)

wen es interessiert ->

eigene Funktion erstellen:

Extras -> Macros -> verwalten -> ooffice Basic

im Modul folgenden Macrotext einfügen:

function beepifklgl(wert,vergleich,laenge,frq,oft)  
 beepifklgl="Beep.kl-"+vergleich+"/"+laenge+"-"+frq+"-"+oft  
 frq=frq+50  
 laenge=laenge+100  
 oft=oft+1  
  
 if oft\>100 then  
 oft=100  
 end if  
  
 if wert 100 then  
 oft=100  
 end if  
  
 if wert \>= vergleich then   
 Shell("/usr/bin/beep -l "+laenge+" -f "+frq+" -r "+oft)  
 end if  
End function

Dann als normale Funktion in der Zelle aufrufbar mit:

=beepifgrgl(wert,vergleich,laenge,frq,oft)
=beepifklgl(wert,vergleich,laenge,frq,oft)

Grüsse
K.