IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> светодиод
Catty
сообщение 25.04.2005 18:10
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


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

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

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


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 7)
volvo
сообщение 25.04.2005 18:23
Сообщение #2


Гость






Catty,
все очень просто: есть байт по адресу $0:$417, его 4 бит (вес 16) как раз устанавливает состояние светодиода на ScrollLock (бит = 1 - включено, бит = 0 - выключено)... Как это надо сделать? По таймеру?
 К началу страницы 
+ Ответить 
Altair
сообщение 25.04.2005 18:46
Сообщение #3


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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 не дадут сделать это


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
FreeMan
сообщение 25.04.2005 21:14
Сообщение #4


-
****

Группа: Пользователи
Сообщений: 480
Пол: Мужской

Репутация: -  4  +


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

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

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

Сообщение отредактировано: Oleg_Z - 25.04.2005 21:29


--------------------
бб
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Catty
сообщение 26.04.2005 19:01
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


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


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 27.04.2005 17:04
Сообщение #6


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Catty
сообщение 27.04.2005 19:21
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


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


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 27.04.2005 19:51
Сообщение #8


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 2:23
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"