Класс Sound позволяет проигрывать стандартные звуки Windows или звуковые файлы.
Воспроизведение звуковых файлов под MS Windows 10 может не работать!
Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:
WINDOWS_MEDIA_PATH = "C:\Windows\Media\"
Sound.Play(WINDOWS_MEDIA_PATH + "tada.wav")
DelayProgram()
Sound.PlayAndWait(WINDOWS_MEDIA_PATH + "звон.wav")
DelayProgram()
Sound.PlayBellRing()
DelayProgram()
Sound.PlayBellRingAndWait()
DelayProgram()
Sound.PlayChime()
DelayProgram()
Sound.PlayChimeAndWait()
DelayProgram()
Sound.PlayChimes()
DelayProgram()
Sound.PlayChimesAndWait()
DelayProgram()
Sound.PlayClick()
DelayProgram()
Sound.PlayClickAndWait()
Sub DelayProgram
Program.Delay(2000)
EndSub
Поделиться: