31.05.2013, 14:25 | #1 (permalink) |
Member
Регистрация: 28.11.2010
Сообщений: 728
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 45
|
Работаю с LPT-портом
вот чать кода которую я составил: iprocedure TForm1.Timer2Timer(Sender: TObject); begin if d0=0 then begin d0:=1; d0:=2; d0:=4; d0:=8; d0:=16; d0:=32; d0:=64; d0:=128; Out32(888, d0+d1+d2+d3+d4+d5+d6+d7); end else if d0=1 then begin d0:=0; d0:=0; d0:=0; d0:=0; d0:=0; d0:=0; d0:=0; d0:=0; Out32(888, d0+d1+d2+d3+d4+d5+d6+d7); end; end; Где ошибка? |
31.05.2013, 14:25 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же множество полезной для вас информации вы сможете найти по этим ссылкам Сабвуфер на 75ГДН со щелевым портом Работа с последовательным портом Проблема со звуков и портом для микрофона на панели корпуса Проблема со звуковым портом на материнке. |
31.05.2013, 20:17 | #3 (permalink) |
Member
Регистрация: 28.11.2010
Сообщений: 728
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 45
|
я извиняюсь конечно.делал в попыхах.изменил d0 на d1,d2 и так далее.всё работает, светодиоды мигают
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|