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

Вниз

Как заставить в 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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c