OpenOffice.info

Sub ton() 
'Dateiendung muß auf dem System registriert sein
Dim starten as object 
starten = createUnoService("com.sun.star.system.SystemShellExecute") 

starten.execute(ConvertToUrl("D:\irgendwas.wav"), "", 0) 

End Sub

Sub ton() 
'Dateiendung muß auf dem System registriert sein
Dim starten as object 
starten = createUnoService("com.sun.star.system.SystemShellExecute") 

starten.execute(ConvertToUrl("D:\beep.cmd"), "", 0) 

End Sub

beep ging mit StarBasic unter Windows wohl noch nie.

Spiele alternativ eine Sounddatei:

[code]Sub ton()
'Dateiendung muß auf dem System registriert sein
Dim starten as object
starten = createUnoService("com.sun.star.system.SystemShellExecute")

starten.execute(ConvertToUrl("D:\irgendwas.wav"), "", 0)

End Sub[/code]

oder nutze beep.cmd aus diesem Thread hier (siehe dort beep.zip):
http://www.winboard.org/software-allgemein/112857-beep-sound-ton-programm-gesucht.html

[code]Sub ton()
'Dateiendung muß auf dem System registriert sein
Dim starten as object
starten = createUnoService("com.sun.star.system.SystemShellExecute")

starten.execute(ConvertToUrl("D:\beep.cmd"), "", 0)

End Sub[/code]

wie sich beep in Starbasic bei anderen Betriebssystemen verhält entzieht sich momentan meiner Kenntnis.


Gruß
Stephan