Звуковые эффекты.

Наиболее простой звуковой оператор BEEP воспроизводит короткие звуковые сигналы длиной в четверть секунды. Он может быть использован для привлечения внимания к определенному месту программы, например, сигнализируя о вводе неверного значения или сопровождая вывод об ошибке.

Оператор BEEP очень хорош и прост, но интерес к нему пропадет довольно быстро – слушать однообразный звук неинтересно.

 

Оператор SOUND позволяет значительно разнообразить звук. Он содержит два аргумента:

Sound частота, продолжительность

(частота и продолжительность – это числовые выражения, выражающие частоту и продолжительность).

Частота может иметь значение от 37 до 32767 и определяет число колебаний в секунду и измеряется в ГЦ (но если значение очень велико(больше 12000ГЦ) производимые колебания не ощущаются человеческим ухом – вы получаете ультразвук).

Продолжительность измеряется в тиках. Это необычная единица измерения времени, в жизни не применяется, но применяется в программировании

1 сек = 18,2 тика.

Значит, для продолжительности в 5 сек. Надо задать параметр, равный 18,2 * 5 = 91 тик

Если продолжительность = 0 – происходит выключение звука.

Например:

Rem выключение звука

Cls

Sound 500,91 ‘ начало звучания

For t=1 to 50

Print “Ждите ответа”

Next t

Sound 500,0 ‘ отключение звука

Rem ‘ создание серии коротких звуков

Cls

For t-1 to 10

Sound 30000,3

Locate 10,20

Print “ телефон занят!”

Sound 450,5

Next t