Управление звуковыми сигналами
Sound(N);
- включение звука с частотой тона N
(измеряется в герцах).
Delay(M);
- задержка выполнения программы на M
миллисекунд.
NoSound;
- выключение звука. Здесь N и M - типа
Word.
Sound(F);
Delay(N); NoSound;
Формула
расчета частоты звука:
F=Round(440*Exp(Ln(2)*(No-(10-Nn)/12)));
где
No - номер октавы -3<= No <=4; Для основной
октавы No=0.
Nn
- номер ноты 1 - До, 2 - До#, 3 - Ре, и т. д.
12 - Cи.
При
сквозной нумерации нот принять для No<0
- Nn<1, для No>0 - Nn>12.
Фрагмент
6.
Пример операторов, позволяющих курсорными
клавишами перемещать по экрану курсор,
либо выводить на экран символ нажатой
клавиши.
x:=
whereX; y:= whereY;
{ опрос текущих координат курсора }
repeat
ch
:= readkey; if ch = #0 then ch:= readkey;
case
ch of
#72:
y:= y - 1;
{ курсор
вверх
}
#80:
y:=
y
+ 1;
{ курсор вниз }
#77:
x:= x + 1;
{ курсор вправо }
#75:
x:= x - 1;
{ курсор влево }
#73:begin
x:=x+1;
y:=y-1;
end;{
курсор вправо вверх Page
Up
}
#81:
begin
x:=x+1;y:=y+1;end;{курсор
вправо вниз Page
Down
}
#71:
begin
x:=x-1;y:=y-1;end;{
курсор влево вверх Home
}
#79:
begin
x:=x-1;y:=y
+ 1; end;
{курсор влево вниз End
}
else
write(ch) end; {
вывод
символа
}
gotoXY(x,
y) {
перемещение курсора }
until
ch= #27;
{ выход при нажатии клавиши Esc }