Работа с клавиатурой, событие нажатия и отжатия клавиши Опции

[Capitan Nemo]

Кому не трудно, выделите , пожалуйста, минут 10-15 своего времени...
с этим вопросом уже обращался, с тех пор вычитал немерено разной инфы, скачал много модулей, но недостаточно моих знаний, чтоб это понять! а курсовик сделать надо...
нужно сделать, чтоб при нажатии клавиши клавиатуры воспроизводился звук, например sound(200), а при отпускании клавиши прекращался...

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

вот модули, в которых это есть:
http://forum.sources.ru/index.php?showtopic=84101
http://www.ishodniki.ru/list/info.php?id=3889


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

[volvo]

Scan := Port[ $60 ] - здесь что-то инициализируется?

Здесь Скан-код нажатой (или отпущенной) клавиши записывается в переменную Scan... Все, его можно анализировать! Только делать это желательно в основной программе, и уж тем более включать/выключать звук - это довольно длительные действия, а процедура обработки прерывания должна как можно быстрее возвращать управление...

Поэтому переменную Scan описывай глобально, и как только действия по нажатию/отпусканию произведены (т.е., ты поймал момент и включил/выключил звук), Scan обнуляй... Сейчас покажу...

Добавлено через 15 мин.
Вот, смотри:

uses dos, crt;
Var
  wasShift, isRight: boolean;
  isCtrl, isAlt, do_exit: boolean;
  Old_09: Pointer;
  KbdIntVec: procedure;

Var
  Scan: Byte;

{$f+}
{ Ну, это - собственно процедура - обработчик прерывания, здесь все понятно }
Procedure New9; Interrupt;
  Begin
    Scan := Port[ $60 ]; { запоминаем скан-код нажатой клавиши в глобальной переменной }
    do_exit := (scan = $01); { и смотрим, не нажат ли Escape, для выхода из программы }

    Inline( $9C ); { здесь - вызываем старый обработчик прерывания }
    KbdIntVec;
  End;
{$f-}

var
  checked: boolean;

BEGIN
  { запоминаем вектор прерывания 9H... причем, это делаем дважды: }
  GetIntVec($9, @KbdIntVec); { Здесь - для удобного вызова с использованием процедурного типа }
  GetIntVec($9, Old_09); { а здесь - чтобы потом иметь возможность восстановить текущее значение }
  SetIntVec($9, Addr(New9)); { заменяем стандартную процедуру обработки на свою }

  Scan := 128; checked := false; { начальные значения }

  repeat
    { проверяем значения scan-кода }
    case scan of
      1 .. 127: { если здесь - то кнопка нажата }
	  begin
        {
          для того, чтобы не производить лишних действий - 
          если кнопка ДО ЭТОГО еще не была нажата, то устанавливаем флажок,
          и производим необходимое действие один раз...
          Если же факт нажатия кнопки уже зафиксирован установленным флагом -
          то ничего не надо делать, только сбросить Scan в начальное значение
        }
        if not checked then begin
          checked := true;
          writeln('key pressed ... ');
          { sound(200); }
        end;
        Scan := 128;
      end;
      129 .. 255: { если здесь - то клавиша была отпущена (скан-код увеличен на 128) }
	  begin
        {
          в принципе, эту проверку можно было бы и не производить, но я уже сделал
          по аналогии с обработкой нажатия клавиши...
        }
        if checked then begin
          checked := false;
          writeln('key released ... ');
	  { nosound; }
        end;
        Scan := 128;
      end;
    end;

  until do_exit; { цикл закончится только тогда, когда будет нажата кнопка Escape }

  { восстанавливаем ранее сохраненный вектор прерывания перед выходом из программы }
  SetIntVec($9, Old_09);
END.

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

P.S. Могут быть проблемы с F11, F12 - у них разные скан-коды на разных клавиатурах...

Сообщение отредактировано: volvo - 6.06.2007 22:50