dr.Jekill » 01 апр 2009, 14:37
Поконкретней можно?
sound(Hz) - задает частоту генерируемого динамиком сигнала в герцах. Звуковой сигнал звучит до тех пор, пока не будет выключен с помощью процедуры
nosound (если вы забыли написать вызов этой процедуры в программе, то звук не выключится, даже если программа уже закончила работу);
delay(msec) - выполняет задержку в миллисекундах;
Схема такая: воспроизвели звук через динмик, задержали, выключили.
Вот Вам еще пример:
[LEFT][syntax=pascal]
uses crt;
const octava_l:array[1..7] of integer=(262,294,330,349,392,440,493);
var n,octava,koef: integer;
begin
koef:=1;
for octava:=1 to 3 do
begin
for n:=1 to 7 do
begin
sound(octava_l[n]*koef);
delay(300);
nosound;
end;
koef:=koef*2;
end;
sound(octava_l[1]*koef);
delay(300);
nosound;
end.
[/syntax]
[/LEFT]
Поконкретней можно?
[color=black] sound(Hz)[/color] - [color=black]задает [/color][color=black]частоту генерируемого динамиком сигнала в герцах. Звуковой сигнал [/color][color=black]звучит до тех пор, пока не будет выключен с помощью процедуры
[/color][color=black]nosound[/color][color=black] (если вы забыли написать вызов этой процедуры в программе, то звук не выключится, даже если программа уже закончила работу);[/color]
[color=black]delay(msec) - [/color][color=black]выполняет задержку в миллисекундах;
[/color]Схема такая: воспроизвели звук через динмик, задержали, выключили.
Вот Вам еще пример:
[LEFT][syntax=pascal]
uses crt;
const octava_l:array[1..7] of integer=(262,294,330,349,392,440,493);
var n,octava,koef: integer;
begin
koef:=1;
for octava:=1 to 3 do
begin
for n:=1 to 7 do
begin
sound(octava_l[n]*koef);
delay(300);
nosound;
end;
koef:=koef*2;
end;
sound(octava_l[1]*koef);
delay(300);
nosound;
end.
[/syntax]
[/LEFT]