globus_ussr
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет.
есть вот такой код
Код: {$M $1000,0,0}
Program ScanCode;
Uses Crt,Dos;
Var
Okey: Procedure;
c,c1 : Byte;
onSound, onSound1 : Boolean;
Dlit, vHz: Integer;
PPr: Boolean;
{$F+}
End. |
Подробнее...
после компиляции, почему то перестает работать, начинает по долгу "думать" и постоянно гудеть, хотя смысл его такой
Цитата: Написать программу, которая должна “озвучивать” клавиатуру, т.е. после запуска этой программы нажатие любой клавиши на клавиатуре будет сопровождаться звуковым сигналом. Клавиатура при этом должна оставаться работоспособной, т.е. продолжать выполнять свои основные функции в нормальном темпе.
Программа должна быть резидентной, т.е. оставаться в памяти после своего завершения.
В качестве пробного варианта длительность звукового сигнала и частоту задать константами в программе. Когда будет получена устойчивая работа программы, изменить её таким образом, чтобы длительность звукового сигнала и его частота задавались в качестве параметров при запуске программы.
Необходимо предоставить пользователю возможность “выключать” и “включать” заново звуковое сопровождение работы клавиш. Использовать для “выключения/включения” звука нестандартную комбинацию клавиш: сочетание нажатой клавиши <Shift> с какой-либо ещё, например, <Shift>+<Esc> …
|
|
Всего записей: 249 | Зарегистр. 06-04-2005 | Отправлено: 05:50 06-02-2012 | Исправлено: globus_ussr, 06:18 06-02-2012 |
|
