Beep abspielen wenn Feldwert geändert wurde

[Stephan]

beep ging mit StarBasic unter Windows wohl noch nie.

Spiele alternativ eine Sounddatei:

Code: Alles auswählen

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

oder nutze beep.cmd aus diesem Thread hier (siehe dort beep.zip):
http://www.winboard.org/software-allgem ... sucht.html

Code: Alles auswählen

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

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


Gruß
Stephan