Sound oder Prg. ausführen

[balu]

Hallo K,

K, wie Kurz und Knackig?
Kann sein das ich jetzt was falsches sage, aber ich würde sagen das dass nicht geht. Weder Sound, noch Programm ausführen.
Könnte mir aber vorstellen das dies wohl mittels Makro realisierbar ist. Versuche es doch mal im Basic-Bereich.

Gruß
balu

[Karolus]

Hallo K
Ja das geht im Prinzip über eine Makrofunktion, die bsplw. so aussieht:

Code: Alles auswählen

function beepifkleiner(sollwert,wert)
if wert < sollwert then 'wenn der Wert kleiner als der Sollwert ist-
beep    'dann piepts
else ' wenn er aber >= dem Sollwert ist :
for i = 1 to fix(wert) 'Dann-
beep : wait 200    'piepts -
next               ' öfters ;-)
' ! Gib bitte keine grossen Zahlen ein !
end if
End function

In einer Zelle rufst die Funktion wie eine normale Calc-funktion auf:
=beepifkleiner(A1;A2)
oder auch direkt mit Zahlenwerten:
=beepifkleiner(3;A5)

Möchtest in Abhängigheit von den Funktionskriterien ein externes Programm aufrufen, benutzt du anstelle von beep im Funktioncode die Zeilen:

Code: Alles auswählen

....
Dim start as object
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("dein/pfad/zu/irgendwas"), "", 0)
..... 

Gruß Karo