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

[Небесный]

Сообщение от Stilet

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

Та что угодно, сверху верно сказано - многозадачность. Смысл не в том, что мне нужно сделать определенную какую-то прогу, смысл во, многозадачности, никак не мог это слово придумать.
Мне вот посказывают, простой способ, но не совем эффективный, написать прогу со звуком, вторую написать основную и во второй запускать первую.


JTG ты не можешь найти свой исходник, чтобы поглядеть на пример?

[Tayfun]

Так... Если я правильно понял музыка играет постоянно, потом при нажатии кнопки должен извлекаться другой звуковой сигнал, а основной продолжает играть без изменений...

 
program M_sound;
uses crt;
var
b:boolean;
ch:char;
begin
clrscr;
repeat
b:=keypressed;
if b=true then begin
ch:=readkey;
sound(500); delay(30000); nosound;
end else begin sound(100); delay(3000); nosound; end;
until ch=chr(27);
end.

[Небесный]

Сообщение от Tayfun

Так... Если я правильно понял музыка играет постоянно, потом при нажатии кнопки должен извлекаться другой звуковой сигнал, а основной продолжает играть без изменений...

 
program M_sound;
uses crt;
var
b:boolean;
ch:char;
begin
clrscr;
repeat
b:=keypressed;
if b=true then begin
ch:=readkey;
sound(500); delay(30000); nosound;
end else begin sound(100); delay(3000); nosound; end;
until ch=chr(27);
end.

Только сегодня получилось мне попасть нормально на форум.
Тайфун, практически верно.
Вот смотри, например задана такова.
Есть программка, программка-калькулятор. В это м же калькуляторе когда нажимаешь клавиши, чтобы извлекался звук.
Другой пример: пишешь ты игрушку, в игре идут какие-то события, когда нажимаешь на клавиши, извлекаеться звук.
Третий пример: вообще какая-либо прога, где нужно извлекать звук всех клавишь, но чтобы само извлечение не действовало на ход программы.

В твоем случаее первый звук прерываеться и извлекаеться второй.
Моя же цель, чтобы программа работала без прерывания.

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

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

[JTG]

Эм.. Тема ещё актуальна?

program fuck;
uses crt, Multi;

var x1,y1,x2,y2,dx,dy:shortint;
    z:char;

  procedure X;
  begin
    repeat 
      textcolor(10);
      gotoxy(x1,y1);
      write(' ');

      inc(x1,dx);
      inc(y1,dy); 

      gotoxy(x1,y1);  
      write('X');
      
      If (x1<=1) or (x1>=79) then dx:=-dx;
      If (y1<=1) or (y1>=24) then dy:=-dy; 
      delay(10000); {подправить на своё}
      yield;
    until false;
  end;

  procedure O;
  begin
    repeat 
      textcolor(12);
      gotoxy(x2,y2);
      write(' ');
      If keypressed then
      begin  
        z:=readkey;
        case z of
	'd':If x2<79 then inc(x2);
	'a':If x2>1 then dec(x2);
	's':If y2<24 then inc(y2);
	'w':If y2>1 then dec(y2);
        end;
      end;
      gotoxy(x2,y2);
      write('O');
      yield; 
    until ord(z)=27;
    clrscr;
    halt;
  end;

begin
  clrscr;
  randomize;
  x2:=40;
  y2:=12;
  x1:=20;
  y1:=11;
  dx:=1;
  dy:=1;
  maketask(@X,8192);
  maketask(@O,8192);
  start;
end.

Кто там пример просил? Гг, вспомнил детство
Примитивно конечно, но осн. смысл думаю понятен.
Если нужно вставить музыку - то при больших delay второй "поток" начинает тормозить. Решается разбиением delay на более мелкие паузы,

т.е. вместо
delay(10000);
yield;

пишем

for i:=1 to 20 do
begin
delay(500);
yield;
end;

А вообще конечно способ этой "многозадачности" немного идиоткий ))