Seite 1 von 1

Alarm

Verfasst: Di, 06.10.2015 19:57
von Hinerk
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

Re: Alarm

Verfasst: Mi, 07.10.2015 08:01
von Stephan
z.B. ein Makro verwenden, siehe:
http://www.de.openoffice.info/viewtopic.php?t=15081

beispielsweise:

Code: Alles auswählen

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
um den Sound zu einer bestimmten Zeit abzuspielen müsste man beispielsweise so erweitern:

Code: Alles auswählen

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
(36.000 bedeutet darin 10:00)


Gruß
Stephan

Re: Alarm

Verfasst: So, 11.10.2015 08:10
von Hinerk
Danke Stephan

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

Nochmals Danke.

MlG

Hinerk