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

begin

d:= true;

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

Pin13:= d;

end;

function TForm1. Pin15: boolean;

var

d: boolean;

begin

d:= true;

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

Pin15:= d;

end;end.

Додаток2

Код програми написаний на мові Delphi для виводу двійкового числа 10000000 на світлодіодні індикатори лабораторного макету із періодом зміни інформації в 1 секунду.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, LPTIO, ExtCtrls, StdCtrls, Spin;

type

TForm1 = class(TForm)

Button1: TButton;

Timer1: TTimer;

SpinEdit1: TSpinEdit;

CheckBox1: TCheckBox;

Label1: TLabel;

Label2: TLabel;

procedure FormCreate (Sender: TObject);