Работа с LPT

[oboldei]

Есть сенсорная клавиатура 16 клавиш. Подключается к LPT порту. Нужно после нажатия выводить звук до, ре, ми.... как я понял это частоты нот 262; //до 294; // ре Mi = 330; // ми.

Вопросы следующие:
Как отследить код нажатой клавиши? PS: keypressed не ловит эти клавиши.
Какой командой отправить код звука после нажатия на клавишу, например до(262)?

[Вадим Мошев]

Как отследить код нажатой клавиши? PS: keypressed не ловит эти клавиши.

Может, KeyDown попробовать?

Какой командой отправить код звука после нажатия на клавишу, например до(262)?

Может в обработчике KeyDown написать что-то вроде

case Key of
	{код клавиши}: {играть ноту до};
	{код другой клавиши}: {играть ноту ре};
	....
end;

[Stilet]

keypressed не ловит эти клавиши.

Верно. Придется написать ассемблерную вставку, обращающуюся к LPT порту $60 кажись, сканирующую с него информацию.
Поинтересуйся какой номер LPT порта и как работает команда in ассемблера

[raxp]

Есть сенсорная клавиатура 16 клавиш. Подключается к LPT порту.
...
Как отследить код нажатой клавиши?

зависит от того, в каком виде это все приходит на LPT. А может там программный I2C на один из DATA, а? То-то же. Прежде всего, поднимаешь документацию на свою сенсорную клаву и читаешь, а если хошь чтобы и тут не телепатировали, то и в тему доку вкинешь и название оборудования не помешает.

Верно. Придется написать ассемблерную вставку, обращающуюся к LPT порту $60

без доков гадание на кофейной гуще ...ассемблера не надо

Какой командой отправить код звука после нажатия на клавишу

...а под какой вы средой и осью? Тема то в студентах, больше никаких данных.

midiOutShortMsg() можно использовать, если под Win.

[Defunate]

ну там порты вообщето 888-890dec в выходе 24 разьёма,по 8 бит на каждый порт,а для клавы будут использоваться 888-889

[oboldei]

Приложил всю информацию что есть... Есть схема, есть теоретические сведения. Но не одного примера нет(( Кто в теме. Исходя из документации, хотя бы простейшие примеры напишите на Pascal. Особенно интересен вопрос как же отловить эти злосчастные клавиши...

[raxp]

..что могу сказать по данной выдержке:

Электронная схема пересылает импульс стробирования от порта принтера на сенсорную площадку и одновременно он попадает на вход сброса в ноль «триггера чтения», который фиксирует нажатие клавиши.

не соответствует схеме:


Как я не присматривался, но так и не увидел, каким образом сигнал строба с принтера попадает на клавиатуру . Вижу только ее соединение с функциональными входами 0...15 (ВХОДАМИ!) мультиплексора КП1, устанавливаемыми заданием адреса А с весами 1,2,4,8. Далее с выхода мультиплексора КП1 сигнал поступает на один из входов внутренней схемы 2ИЛИ-НЕ одновибратора АГ1, который стробируется одновременно с мультиплексором низким уровнем (на inv Е). Прилагаю даташиты полных функциональных аналогов мультиплексора и одновибратора (хотя на самом деле эти отечественные являются аналогами), чтобы вы ознакомились:




Ладно, оставим это на совести составителей лабораторной и допустим, что каким то чудесным образом с сенсорной клавиатуры к нам уже поступает сигнал. Тогда нам нужно задавать адрес на регистре DATA D0..D3 (pin.2...5, бит 0...3), формировать строб на регистре контроля С0 (pin.1, бит 0) и считывать данные с регистра статуса S3 (pin.15, бит 3).

Базовый адрес регистра DATA = $378
Базовый адрес регистра STATUS = $379
Базовый адрес регистра CONTROL = $37A

хотя бы простейшие примеры напишите на Pascal

DELPHI

Как считать:

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';

Как записать:

function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

PASCAL

const BA = $378; //базовый адрес LPT
       BR = BA+1; //регистр статуса
       BU = BA+2; //регистр контроля $37A

Function getbit(data,num:byte): boolean;
 begin
  result:= data and num = num
 end;

function FInByte(Index:Word):Byte;
begin
 asm
  mov dx,Index
  in al,dx
  mov Result,al
 end;
end;

function FInWord(Index:Word):Word;
begin
 asm
  mov dx,Index
  in ax,dx
  mov Result,ax
 end;
end;

function FInLong(Index:Word):LongWord;
begin
 asm
  mov dx,Index
  in eax,dx
  mov Result,eax
 end;
end;

procedure FOutByte(Index:Word;Value:Byte);
begin
 asm
  mov dx,index
  mov al,Value
  out dx,al
 end;
end;

procedure FOutWord(Index:Word;Value:Word);
begin
 asm
  mov dx,Index
  mov ax,Value
  out dx,ax
 end;
end;

procedure FOutLong(Index:Word;Value:LongWord);
begin
 asm
  mov dx,Index
  mov eax,Value
  out dx,eax
 end;
end;

//////////////////////////

 // регистр обмена-
 function GetDataLPT: byte;
 begin
  result:= FInByte(BA)
 end;

 procedure SetDataLPT(data: byte);
 begin
  FOutByte(BA,data)
 end;

 // регистр статуса-
 function GetStatusLPT: byte;
 begin
  result:= FInByte(BR)
 end;

 procedure SetStatusLPT(data: byte);
 begin
  FOutByte(BR,data)
 end;

 // регистр контроля-
 function GetControlLPT: byte;
 begin
  result:= FInByte(BU)
 end;

 procedure SetControlLPT(data: byte);
 begin
  FOutByte(BU,data)
 end;

C битами то разберетесь?

[oboldei]

raxp, спасибо огромное! Постараюсь разобраться.