Звуковой сигнал

[Bugrimov]

Добрый день!
Не по глазам... Звуковой сигнал, который срабатывает через определенное время прерывается в любом случае через 9 секунд. Что я упустил из вида.

В процедуру передается два параметра: timer (например 1 сек.) и bud (например 30 сек.)

{$M $1000, 0, 0}
Program Budilnick;
 
Uses Crt, Dos;
 
Const
     takt = 20;
     tik = 0.5;      { Длительность звуового сигнала - "ТИКАНЬЯ" = 0.5 доли секунды }
     timePisk = 20;  { Время "писка" }
 
Var     Key            : Procedure;
        pisk           : Boolean;
        code1, code2   : Integer;
          t, b           : String;
          time, sec, timer     : Integer;
        bud            : Real;
 
{$F+}
Procedure Budiln;
Interrupt;
Begin
     time := time + 1;
     if time > takt then
     Begin
          time := 0;
          sec := (sec + 1);
          writeln(' - ', sec, ' сек. - ');
          if pisk = false then
          Begin
               if (sec mod timer) = 0 then
                  sound(2000);
               if (sec - bud) = 0 then
               Begin
                    write('Включение будильника!');
                    sound(1000);
                    pisk := true;
               End;
          End
          else
          if (sec - bud - timePisk) = 0 then
          Begin
               nosound;
               write('Отключение будильника');
               pisk := false;
               sec := 0;
          End;
     End;
     if ((sec mod timer) = 0) and (time > tik) and (pisk = false) then
     Begin
          nosound;
     End;
     Key;
End;

[min@y™]

А происходит-то чего?
Я гляжу, это обработчик прерывания.
Резидентная прога под DOS?
Это чо ваще? Если это лаба, то как звучит задание в оригинале?

Одни вопросы...

[Bugrimov]

min@y™ без паники!
Это консольный будильник. Тикает и в определенное время срабатывает пищалка, но как я уже говорил спустя 9 сек замолкает, хотя этот параметр у меня регулируется.

[Serge_Bliznykov]

Bugrimov, не скромничайте, выкладывайте программу целиком.
Тут же и половины нет.
Вот, например, процедура key() - она для чего? пробовали её закомментить?

[Bugrimov]

Что-то вроде этого...

{$M $1000, 0, 0}
Program Budilnick;
 
Uses Crt, Dos;
 
Const
     takt = 20;
     tik = 0.5;      { Длительность звуового сигнала - "ТИКАНЬЯ" = 0.5 доли секунды }
     timePisk = 20;  { Время "писка" }
 
Var     Key            : Procedure;
        pisk           : Boolean;
        code1, code2   : Integer;
          t, b           : String;
          time, sec, timer     : Integer;
        bud            : Real;
 
{$F+}
Procedure Budiln;
Interrupt;
Begin
     time := time + 1;
     if time > takt then
     Begin
          time := 0;
          sec := (sec + 1);
          writeln(' - ', sec, ' сек. - ');
          if pisk = false then
          Begin
               if (sec mod timer) = 0 then
                  sound(2000);
               if (sec - bud) = 0 then
               Begin
                    write('Включение будильника!');
                    sound(1000);
                    pisk := true;
               End;
          End
          else
          if (sec - bud - timePisk) = 0 then
          Begin
               nosound;
               write('Отключение будильника');
               pisk := false;
               sec := 0;
          End;
     End;
     if ((sec mod timer) = 0) and (time > tik) and (pisk = false) then
     Begin
          nosound;
     End;
     Key;
End;
Begin
  writeln;
	write(' Введите временной интервал (наприм. 1-2 сек.): ');
	readln(t);
  val(t, timer, code1);

  write(' Введите время через которое срабат. БУДИЛЬНИК (наприм. 2 мин. или 0.5 мин): ');
	readln(b);
  val(b, bud, code2);

  { Проверка на корректность введенных данных }
  if (timer <= 0) or (bud <= 0) or (code1 <> 0) or (code2 <> 0) then
	Begin
		writeln(' Введены ошибочные данные!');
		exit;
	End;

  time := 0;
  sec := 0;
  pisk := false;
  bud := bud * 60;

	{ $8 - прерывание таймера }
	GetIntVec($8, @Key);
	{ Переназначаем стандартный обработчик на процедуру Budiln }
	SetIntVec($8, Addr(Budiln));
	Keep(0);
End.

[Serge_Bliznykov]

логика работы вашего обработчика пока мне не понятно (уж как-то очень сложно).
Но сразу могу сказать, то, что не понравилось.
Зачем Вы трогаете прерывание 8h ?!
Для пользовательских программ есть специальное прерывание INT 1Ch, которое вызывается из 8h (например, тыц)
Я бы повесился на него...

второе.
а почему у Вас takt = 20;
таймер же срабатывает 18.2 раза в секунду. takt = 18 поточнее будет...

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

function GetTickCount: longint;
var
  Ticks: LongInt absolute 0: $46C;
begin
  GetTickCount := Ticks
end;

достаточно к текущему значению прибавить секунды * 18.2 - и получить время выключения звука.
я не прав?

[min@y™]

Лучше давайте спросим аффтара про самое главное!
Зачем ему именно резидентный будильник именно под голый DOS?
Чото подозрительно!

Аффтар, колись, негодник, что за монстра пишешь и зачем!

[Bugrimov]

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

достаточно к текущему значению прибавить секунды * 18.2 - и получить время выключения звука.
я не прав?

Вы правы, навели на интересную мысль. Слишком намудрил. НЕСЕТ......
Сложновато, согласен. Ваш вариант решения в общем понятен.

[Bugrimov]

Сообщение от min@y™

Лучше давайте спросим аффтара про самое главное!
Зачем ему именно резидентный будильник именно под голый DOS?
Чото подозрительно!

Аффтар, колись, негодник, что за монстра пишешь и зачем!

Скажем так, спортивный интерес.

[min@y™]

Скажем так, спортивный интерес.