OpenOffice.info

Danke Stephan

Ich brauche noch Zeit um in die für mich fremde Welt er Makro Programmierung einzutauchen.

Nochmals Danke.

MlG

Hinerk

Sub Main
Dim start as object
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("C:\Windows\Media\Windows Logon Sound.wav"), "", 0)
End Sub

Sub Main
Dim start as object
Dim zeit As Long

Do
	zeit = Timer()
Loop While zeit < 36000
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("C:\Windows\Media\Windows Logon Sound.wav"), "", 0)
End Sub

z.B. ein Makro verwenden, siehe:
http://www.de.openoffice.info/viewtopic.php?t=15081

beispielsweise:
[code]Sub Main
Dim start as object
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("C:\Windows\Media\Windows Logon Sound.wav"), "", 0)
End Sub
[/code]

um den Sound zu einer bestimmten Zeit abzuspielen müsste man beispielsweise so erweitern:

[code]Sub Main
Dim start as object
Dim zeit As Long

Do
zeit = Timer()
Loop While zeit < 36000
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("C:\Windows\Media\Windows Logon Sound.wav"), "", 0)
End Sub
[/code]

(36.000 bedeutet darin 10:00)


Gruß
Stephan

Hallo

Ich möchte gern in meinem Insulin Programm (Calc) eine Erinnerungs Funktion einbauen,
d.h. zu einer bestimmten Uhrzeit irgendeinen Ton erzeugen.

Wer kann mir helfen.

MlG

Hinerk