Другие предметы \ Системы коммутации

Блок управления для системы кодового контроля с возможностью внутреннего соединения абонентов, страница 23

8.  А.Ю.Гордонов, Ю.Н.Дьяков Большие интегральные схемы запоминающих устройств. М.:"Радио и связь", МРБ,1990.- 292с.

9.  А.Н.Цырульников Z80 Central processor unit. Справочное пособие. Кн.1 ."Центральный процессор Z80CPU". М.:УКИК" Центр",1990.-100с.

10. Y.Taht Ассемблер Z80 М.:"ВА Принт",! 993.-1 2бс.

11. А.Н.Евсеев Радиолюбительские устройства телефонной связи. М..-"Радио и связь", МРБ, 1992.- 80с.

12. Н. Культин Самоучитель Delphi 4. «BHV - Санкт-Петербург» ,1999.-472с.

13. Н. Культин Учебный курс Delphi 4. «BHV - Санкт-Петербург» ,1998.- 446с.

14. А.А. Пономаренко, С.Л. Корякин-Черняк Телефоны, АОНы,     Радиотелефоны. Справочное пособие."Наука и ,  техника" & "СОЛОН", 1996.-198с.


Подпись: ПРИЛОЖЕНИЕ 1


Unit mik1;

Interface

uses

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

StdCtrls, ExtCtrls, Menus;

type

TForm1 = class(TForm)

Shape1: TShape;

Shape2: TShape;

Shape3: TShape;

Shape4: TShape;

Shape5: TShape;

Shape6: TShape;

Shape7: TShape;

Shape8: TShape;

Shape9: TShape;

Shape10: TShape;

Shape11: TShape;

Shapel2: TShape;

Shapel3: TShape;

Shapel4: TShape;

Shape15: TShape;

Shape16: TShape;

Shapel7: TShape;

Shape18: TShape;

Shapel9: TShape;

Shape20: TShape;

Shape21: TShape;

Shape22: TShape:

Shape23: TShape;

Shape24: TShape;

Label 1: TLabel;

Label2: TLabel;

Editl:TEdit;

Bevel I: TBevel;

Edil2:TEdit;

procedure Shape8MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape9MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape10MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape11MouseDown(Sender: TObject; Button:

TmouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shapel2MouseDown(Sendcr: TObject; Button:

TmouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shapel3MouseDown(Sender: TObject; Button:

TMouseBulton;   Shift: TShiftState; X. Y: Integer);

procedure Shape14MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X. Y: Integer);

procedure Shape20MouseDown( Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape17MouseDown( Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X. Y: Integer);

procedure Shape18MouseDown(Sender: TObject; Button:

TmouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape 19MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape21MouseDown( Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape22MouseDown(Sendcr: TObject; Button:

TMouseButton; Shift: TShiftState: X, Y: Integer);

Label3: TLabel;

Edit3: TEdit;

Bevel2: TBevel;

Button 1: TButton:

Label4: TLabel;

Bevel3:TBevel;

Label5: TLabel;

Bevel4: TBevel:

Button5: TButton;

Label6: TLabel;

Bevel5: TBevel;

Button2: TButton;

Button3:TButton;

Button4: TButton;

MainMenu1: TMainMenu;

File1: TMenu1tem;

close1: TMenu1tem;

help1: TMenu1tem;

about1: TMenu1tem;

procedure ShapelMouseDown(Sender: TObject; Button:

TMouse Button;   Shift: TShiftState; X, Y: integer);

procedure Shape2MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape3MouseDown( Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape4MоuseDown( Sender: TObject; Button:

TmouseButton;   Shift: TShiftState; X. Y: Integer);

procedure Shape5MouseDown(Sender: TObject; Button:

TmouseButton;   Shift: TShiftState: X, Y: Integer);

procedure Shape6MouseDown( Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape7MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure Shape23MouseDown(Sender: TObject; Button:

TMouse Button;   Shift: TShiftState; X, Y: Integer);

procedure Shape24MouseDown(Sender: TObject; Button:

TMouseButton;   Shift: TShiftState; X, Y: Integer);

procedure FormActivate(Sender: TObject);

Скачать файл