Версия для печати темы

Автор: Catty 25.04.2005 22:10

5.0 - Период автоповтора

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

ScrollLock- Наименование светодиода
Короче, надо сделать, что бы этот светодиод мигал (отключался и включался попеременно)
:rose:

Автор: volvo 25.04.2005 22:23

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

Автор: Altair 25.04.2005 22:46

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 26.04.2005 1:14

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

А вот еще одно такое сообщение и будет наказание!

Автор: Catty 26.04.2005 23:01

сделайте как хотите, только что бы по -проще и мигало!!!!

Автор: Altair 27.04.2005 21:04

Я тебе же сделал!
только в WIN2000 и WinXP все равно не будет работать!

Автор: Catty 27.04.2005 23:21

спасибо Олежик! Но как же я это преподу объясню? Ему ведь до лампочки, если не мигает, значит иди и делай так что бы мигало!!

Автор: Altair 27.04.2005 23:51

А как ты ему показывала резидента? помнишь была задача с резидентом? там тоже были проблеммы.
А показать можно так - загрузхи ДОС (с дискет ынапример) или WIN 98-ME