Звуковое сообщение.

[Небесный]

Такое вот дело, как-то сижу и небыло чем заниматься, давай делать че-нить на паскале и стыкнулся с одной маленькой проблемой.
Как в паскале зацыклить событие - звукой сигнал при нажатии кнопки. Но, чтобы прога себе работа и при нажатиях клавиатуры любой кнопки было звуковой сигнал.

Думал, думал, ниче не могу придумать.
Написал процедурку, правда только с одной кнопкой, но так и не смог сделать ее по кругу. Например, я использовал Ентер, когда нажимаю Ентер, появлятьеся звук-задержка на 1с-выключил звук. И то это было одноразово.

Блин ну и наплел же я. Думаю суть понята-звуковое сопровождение при нажатии любой кнопки.

[Трофимов Александр]

Напиши цикл Repeat....Untill и в нём обрабатывай нажатия клавиш.
Выход по Untill при нажатии определённой клавиши

[Stilet]

Ну вообще то мы делали так: Меняли вектор клавпрерывания (9H кажись) на свой обработчик, и там уже пишали сколько угодно.

[Небесный]

Сообщение от Трофимов Александр

Напиши цикл Repeat....Untill и в нём обрабатывай нажатия клавиш.
Выход по Untill при нажатии определённой клавиши

Да пробовал!!! Вот только у меня же не только эта процедура должна выполняться, но и другие. Если зацыклить только эту, другие не будут выполняться.

[Tayfun]

...Недавно в одной из тем рассматривалась чтение событий с клавиатуры, там я упоменул про keypressed, и незря, меня еще спросили зачем оно нужно... Вот подходящий пример.
Исходный код

 
program z123;
uses crt;
var
b:boolean;
ch:char;
t:integer;
begin
clrscr;
repeat
b:=keypressed;
if b=true then begin ch:=readkey;
case ch of
chr(13):t:=1;
chr(75):t:=2;
chr(77):t:=3;
chr(72):t:=4;
chr(80):t:=5;
end;
end;
case t of
1:sound(1000);
2:sound(2000);
3:sound(3000);
4:sound(4000);
5:sound(5000);
end;
delay(2000);
nosound;
until ch=chr(27);
end.

[Небесный]

Tayfun огромное спасибо, я вообще давно уже искал, как можно использовать стрелочки. За это благодарство.

Но, я так понял, меня не совсем поняли.
Программа, работает себе, а звук себе, когда я нажимаю какие-то клавиши, тогда происходит звуковое сообщение.

В даном случае сам смысл программы не исполняеться пока я не нажму ескейп.
Даным способом можно было бы описать на каждую клавишу событие, но это же гемор, я вот голову ломаю, как сделать, чтобы процедурка звука работала не зависимо, как бы от хода программы, программа выполняеться и по ходу всегда активна процедура звука. И чтобы звук извлекался при нажитии любой клавиши.

Program stepeni;
 
Uses crt;
 
var
i,l,n:longint;
key:char;
b:boolean;
ch:char;
t:integer;
 
Procedure vvod_chisla_n;
begin
writeln('1*1 + 2*2 + 3*3 +..+ n*n = ?');
writeln;
write('‚ўҐ¤ЁвҐ "n": ');
readln(n);
end;
 
Procedure raschet;
begin
for i:=1 to n do
l:=l+i*i;
writeln('‚ Ёв®ЈҐ Ї®«гз Ґвмбп : ',l);
end;
 
Procedure zvyk_sobitie;
begin
repeat
b:=keypressed;
if b=true then
begin ch:=readkey;
case ch of
chr (13) :t:=1;
chr (75) :t:=2;
chr (77) :t:=3;
chr (72) :t:=4;
chr (80) :t:=5;
end;
end;
case t of
1:sound(1000);
2:sound(2000);
3:sound(3000);
4:sound(4000);
5:sound(5000);
end;
delay(2000);
nosound;
until ch=chr(27);
end;
end;
 
begin
clrscr;
zvyk_sobitie;
vvod_chisla_n;
raschet;
readln;
end.

[Stilet]

Небесный, мона я угадаю :

 
uses crt;
var c:char;
begin
repeat
write(1);
if keypressed then begin
c:=Readkey;
sound(byte(c)*10);delay(1000);nosound;
end;
until c=#27
end.

Угадал?

[Небесный]

Stilet это все тоже, эта процедурка не будет постоянно активна.

uses crt;
var c:char;
begin
repeat // начинаеться цыкл
write(1);
if keypressed then begin
c:=Readkey;
sound(byte(c)*10);delay(1000);nosou nd;
end;
until c=#27 // Будет ходит по кругу до тех пор, пока не будет ESC
end.

Пока не нажму ESC программа не будет дальше продолжаться, тоесть, сам ход ее ибо мы зацыклили через репеат, нажму ESC ход продолжиться дальше, но тогда уже не будет звука.
Вот сдесь ты правильно сказал, только я не знаю, как это все оформить, не стыкался с этим.

вектор клавпрерывания

Слышал я краешком уха об этом, но как говорят, слышу звон и не знаю где он.

[Stilet]

Ты не понял... Это каркас.
Вот там где Writeln нуна писать свои действия которые закончив отработку проверят на нажатие клавиши и снова начнут работать.

Насчет прерывания не все просто, у мя примеров вроде не осталось...

Ты луче скажи какие действия ты хош выполнять параллельно с проверкой нажатия клавиши?

[JTG]

Автору нужно некое подобие многозадачности, как с прерываниями сделать - не знаю )

Сам с таким когда-то сталкивался, когда надо было сделать фоновую музыку в игре, и циклы тут не помогут. Сделал тогда "супер-заумно через полную Ж" - используя либу псевдомногозадачности - код, зацикленно играющий музыку, выносился в процедуру MusicProc, основной код в MainProc, сама программа сводилась к виду типа

MakeTask(@MusicProc,<стек>);
MakeTask(@MainProc,<стек>);

--

нашел http://pascal.sources.ru/multtask/multi1.htm