Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Как электрикой правильно выставить значение на LPT   Найти похожие ветки 

 
dimon_programmer ©   (2004-10-09 22:02) [0]

Здраствуйте!
Помогите с такой проблемой: как писать на LPT порт я нашел/сделал :-), а вот как на LPT
выставлять какое-то значение(читать с него), чето не въезжаю-может так:
плюс 3..3.5 V к земле а минус черес резистор к DataIn, или как? Не охота материку сжечь!


 
dimon_programmer ©   (2004-10-10 07:26) [1]

???


 
Jel ©   (2004-10-10 08:43) [2]

Минус к земле, плюс через токоограничительный резистор на DataIn. Номинал резистрора выбирать исходя из принципа чем больше, тем лучше. Как минимум 1 кОм.


 
magdelphi   (2004-10-10 16:49) [3]

Зайди на magdelphi.boom.ru там найдёшь схему и программу.


 
now_aleks ©   (2004-10-10 20:10) [4]

Установи http://ln.ua/~real/avreal/p95nt.zip

импорт процедур из DLL

implementation

{$R *.dfm}

Function DlPortReadPortUchar (Port:LongWord):Byte;    stdcall;external "dlportio.dll";
Function DlPortReadPortUshort(Port:LongWord):Word;    stdcall;external "dlportio.dll";
Function DlPortReadPortUlong (Port:LongWord):LongWord;stdcall;external "dlportio.dll";

procedure DlPortWritePortUchar (Port:LongWord;Value:Byte);    stdcall;external "dlportio.dll";
procedure DlPortWritePortUshort(Port:LongWord;Value:Word);    stdcall;external "dlportio.dll";
procedure DlPortWritePortUlong (Port:LongWord;Value:LongWord);stdcall;external "dlportio.dll";


пример использования :

Edit1.Text:=IntToStr(DlPortReadPortUchar($378));// $378 номер LPT порта

подключение как писал Jel , но лучше использовать шинный формирователь н.п. LS244.
(посмотри Схема переходника программирования "STK200/300" на
http://ln.ua/~real/avreal/adapters.html )



Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.079 c
3-1098264700
GALIM
2004-10-20 13:31
2004.11.21
Как добавить записи в dbf-таблицу запросом Insert через ADO


4-1097596116
F1
2004-10-12 19:48
2004.11.21
Как рисовать прямо на экране?


14-1099299946
savva
2004-11-01 12:05
2004.11.21
Где можно "пробить" машину на угон?


1-1099484746
dolphin
2004-11-03 15:25
2004.11.21
Создание курсора


8-1092571296
god
2004-08-15 16:01
2004.11.21
распознание изображений (BMP)(GIF)(PNG)