Помощь - Поиск - Пользователи - Календарь
Полная версия: светодиод
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Catty
5.0 - Период автоповтора

1000 - задержка автоповтора

ScrollLock- Наименование светодиода
Короче, надо сделать, что бы этот светодиод мигал (отключался и включался попеременно)
:rose:
volvo
Catty,
все очень просто: есть байт по адресу $0:$417, его 4 бит (вес 16) как раз устанавливает состояние светодиода на ScrollLock (бит = 1 - включено, бит = 0 - выключено)... Как это надо сделать? По таймеру?
Altair
uses crt;

Procedure ScrollON_OFF;
var b:byte absolute $0000:$0417;
begin
b:=b xor 16;
end;

begin
repeat
scrollON_OFF;
delay(200);
until keypressed;
end.

Я не делал по заданию задаржку, просто пример процедуры вкл. и выкл. при повторном вызове нужный светодиод.

замечаени - XP и 2000 не дадут сделать это
FreeMan
Цитата
замечаени - XP и 2000 не дадут сделать это

а если хорошо попросить????

А вот еще одно такое сообщение и будет наказание!
Catty
сделайте как хотите, только что бы по -проще и мигало!!!! smile.gif
Altair
Я тебе же сделал!
только в WIN2000 и WinXP все равно не будет работать!
Catty
спасибо Олежик! Но как же я это преподу объясню? Ему ведь до лампочки, если не мигает, значит иди и делай так что бы мигало!! sad.gif
Altair
А как ты ему показывала резидента? помнишь была задача с резидентом? там тоже были проблеммы.
А показать можно так - загрузхи ДОС (с дискет ынапример) или WIN 98-ME
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.