Форум: "Потрепаться";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
ВнизКак заставить в LPT на штырек подавать 1/0 Найти похожие ветки
← →
VEG (2003-08-05 19:03) [0]с определенной частотой. Пробовал так:
Program Beeep;
uses
crt;
const
port_address =$378; { Select Printer PORT 1 }
status_address=$379; { only reading - status of printer }
var
FTD:LongInt;
begin
For FTD:=1 to 1000000 do
begin
port[port_address]:=$81;
{ Delay(1);}
port[port_address]:=$80;
{ ( 1)с определенной частотой. Пробовал так:
Program Beeep;
uses
crt;
const
port_address =$378; { Select Printer PORT 1 }
status_address=$379; { only reading - status of printer }
var
FTD:LongInt;
begin
For FTD:=1 to 1000000 do
begin
port[port_address]:=$81;
{ Delay(1);}
port[port_address]:=$80;
{ Delay(1); }
end;
port[port_address]:=$00;
end.
Но я знаю, что это белеберда не рабочая. Как нужно???
← →
dataMaster (2003-08-05 19:22) [1]Да как.. как. Пишешь мне письмо и я дам тебе классную библиотеку.
← →
VEG (2003-08-05 20:55) [2]Срочно. Мыло глючит...
← →
VEG (2003-08-05 20:55) [3]СРОЧНО!!!
← →
dataMaster (2003-08-05 21:28) [4]Удалено модератором
Примечание: Личная переписка
← →
VEG (2003-08-05 21:35) [5]У меня есть эта библиотека. Получается очеь медленно - больше 100 герц не получается!
Windows, когда ищет аппаратуру, посылает сигналы частотой около 2500 герц!
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c