Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)

begin

d:= true;

d:= d and (1 = (1 and Lpt. ReadPort((GetCurrentPort), 0)));

Pin2:= d;

end;

function TForm1. Pin3: boolean;

var

d: boolean;

begin

d:= true;

d:= d and (2 = (2 and Lpt. ReadPort (GetCurrentPort, 0)));

Pin3:= d;

end;

function TForm1. Pin4: boolean;

var

d: boolean;

begin

d:= true;

d:= d and (4 = (4 and Lpt. ReadPort (GetCurrentPort, 0)));

Pin4:= d;

end;

function TForm1. Pin5: boolean;

var

d: boolean;

begin

d:= true;

d:= d and (8 = (8 and Lpt. ReadPort (GetCurrentPort, 0)));

Pin5:= d;

end;

К-во Просмотров: 460
Бесплатно скачать Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)