• Я не доверяю компьютеру, который не могу разобрать и программе, код которой не могу прочитать.

Операции со звуками

Класс 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


Поделиться: