end;

end;

procedure TForm1.comboBox3Change (Sender: TObject);

begin

if (Form1. sComboBox1. text<>'') and (Form1. sComboBox2. Text<>'') and (Form1.comboBox2. text<>'')

and (Form1.comboBox3. text<>'') then

begin

Form1. Button2. Enabled: =true;

Form1. BitBtn1. Enabled: =true;

end

else

begin

Form1. Button2. Enabled: =false;

Form1. BitBtn1. Enabled: =False;

end;

end;

procedure TForm1.comboBox4Change (Sender: TObject);

begin

if (Form1. sComboBox1. text<>'') and (Form1. sComboBox2. Text<>'') and (Form1.comboBox2. text<>'')

and (Form1.comboBox3. text<>'') then

begin

Form1. Button2. Enabled: =true;

Form1. BitBtn1. Enabled: =true;

end

else

begin

Form1. Button2. Enabled: =false;

Form1. BitBtn1. Enabled: =False;

end;

end;

procedure TForm1. BitBtn1Click (Sender: TObject);

var podset_count: Currency;

users,metr,kabel, hubs,hubsM, prcards, HubsU, konnektori, prcripper, PrHubs,Prkoms, koms,koms1,podset: integer;

prkabel,prkonnektori: real;

typ: string [50];

begin

Form1. ProgressBar1. Visible: =true;

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Clear;

Form1. RichEdit1. DeFAttributes. Color: =clblue;

Form1. RichEdit1. DeFAttributes. Size: =10;

Form1. RichEdit1. Lines. Add ('Условия: ');

Form1. RichEdit1. SelAttributes. Size: =10;

if (strtoint (Form1.comboBox2. text) *8) <strtoint (Form1. sComboBox1. text) then

users: =strtoint (Form1.comboBox2. text) *8

else

users: =strtoint (Form1. sComboBox1. text);

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('MAX число пользователей: '+inttostr (users) + ' человек');

Form1. RichEdit1. Lines. Add ('');

METR: = 100* STRTOINT (Form1.comboBox2. text) + STRTOINT (Form1.comboBox3. text) div users;

if metr > strtoint (Form1.comboBox3. text) then

metr: = strtoint (Form1.comboBox3. text);

Form1. RichEdit1. Lines. Add ('MAX расстояние между пользователями: '+inttostr (METR) +' метров');

if strtoint (Form1. sComboBox2. text) >24 then typ: ='Работа с БД';

if (strtoint (Form1. sComboBox2. text) <24) and (strtoint (Form1. sComboBox2. text) >8) then typ: ='Офисная сеть';

if (strtoint (Form1. sComboBox2. text) <8) then typ: ='Домашняя сеть';

Form1. RichEdit1. Lines. Add ('Предполагаемое использование сети: '+typ);

Form1. RichEdit1. SelAttributes. Color: =clGreen;

if CheckBox1. Checked = true then Form1. RichEdit1. Lines. Add ('Выход в интернет: Модем');

Form1. ProgressBar1. StepIt;

Form1. ProgressBar1. Visible: =False;

Form1. ProgressBar1. Position: =0;

end;

procedure TForm1. Button2Click (Sender: TObject);

var hubs,hubsM, prcards, HubsU, konnektori, prcripper, PrHubs,Prkoms, koms,koms1,podset, kabel: integer;

prkabel,prkonnektori: real;

filertf: textfile;

str: string;

begin

Form1. ProgressBar1. Visible: =true;

Form1. ProgressBar1. StepIt;

Form1. Cursor: =crhourglass;

Form1. RichEdit1. Clear;

Form1. RichEdit1. DeFAttributes. Color: =clblue;

Form1. RichEdit1. DeFAttributes. Size: =10;

Form1. RichEdit1. Lines. Add ('РЕЗУЛЬТАТЫ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. SelAttributes. Size: =10;

Form1. RichEdit1. Lines. Add (datetimetostr (now));

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('______________________________');

Form1. RichEdit1. SelAttributes. Size: =10;

Form1. RichEdit1. Lines. Add ('');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Lines. Add ('Общие данные');

Form1. RichEdit1. Lines. Add ('__________________________');

Form1. RichEdit1. SelAttributes. Size: =10;

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Топология сети - Ethernet');

If Form1. sComboBox2. text = 'Домашняя сеть' then podset: =10;

If Form1. sComboBox2. text = 'Офисная сеть' then podset: =20;

If Form1. sComboBox2. text = 'Работа с БД' then podset: =5;

Form1. RichEdit1. Lines. Add ('Пропускная способность - 10 Мегабит в секунду');

Form1. RichEdit1. Lines. Add ('Пользователей в подсети - '+inttostr (podset));

Form1. RichEdit1. Lines. Add ('__________________________');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. SelAttributes. Size: =10;

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('Необходимое оборудование');

Form1. RichEdit1. Lines. Add ('__________________________');

Form1. RichEdit1. SelAttributes. Size: =10;

if Form1. sComboBox2. text <> 'Работа с БД' then

begin

Form1. RichEdit1. Lines. Add ('Активные концентраторы (HUBs): ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Тип: 10 мегабитные концентраторы - 8 портов +1 порт выделенный под UPLINK');

Form1. RichEdit1. Lines. Add ('Рекомендуемые Фирмы изготовители: Compex inc, D-Link, 3Com');

hubsM: = strtoint (Form1.comboBox2. Text) div 100 - 1;

If (strtoint (Form1.comboBox2. Text) /100) = (strtoint (Form1.comboBox2. Text) div 100) then

HubsM: = strtoint (Form1.comboBox2. Text) div 100 - 1

else

HubsM: = strtoint (Form1.comboBox2. Text) div 100;

If (strtoint (Form1.comboBox3. Text) /8) = (strtoint (Form1.comboBox3. Text) div 8)

then

HubsU: = strtoint (Form1.comboBox3. Text) div 8

else

HubsU: = strtoint (Form1.comboBox3. Text) div 8 +1;

IF hubsM > HubsU then

hubs: =HubsM

else

hubs: =HubsU;

If Hubs =0 then hubs: =1;

Form1. RichEdit1. Lines. Add ('Количество штук: '+ inttostr (hubs));

Form1. RichEdit1. Lines. Add ('Средняя цена за штуку: - 35$');

Form1. RichEdit1. Lines. Add ('Итоговая цена - ' + inttostr (35*hubs) +'$');

PrHubs: =35*hubs;

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('Коммутаторы (Swiches): ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Тип: '+ Form1. sComboBox1. text+' портовые, неуправляемые коммутаторы. Возможно наличие двухскоростных портов автоматически распознающих скорость подключенного сегмента сети либо 10 либо 100 мегабит');

Form1. RichEdit1. Lines. Add ('Рекомендуемые Фирмы изготовители: Compex inc, D-Link, 3Com');

If (strtoint (Form1.comboBox3. Text) /podset) = (strtoint (Form1.comboBox3. Text) div podset) then

koms1: = strtoint (Form1.comboBox3. Text) div podset

else

koms1: = strtoint (Form1.comboBox3. Text) div podset +1;

Form1. ProgressBar1. StepIt;

If koms1/strtoint (Form1. sComboBox1. text) = koms1 div strtoint (Form1. sComboBox1. text) then

koms: = koms1 div strtoint (Form1. sComboBox1. text)

else

koms: = koms1 div strtoint (Form1. sComboBox1. text) +1;

If strtoint (Form1.comboBox3. text) <= podset then koms: =0;

Form1. RichEdit1. Lines. Add ('Количество штук: '+inttostr (koms));

Form1. RichEdit1. Lines. Add ('Средняя цена за штуку: '+ inttostr (strtoint (Form1. sComboBox1. text) *25) +'$');

Prkoms: =strtoint (Form1. sComboBox1. text) *25*koms;

Form1. RichEdit1. Lines. Add ('Итоговая цена: '+ inttostr (prkoms) +'$');

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Lines. Add ('Кабель: ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Тип: Витая пара (UTP) 5-й категории. Провод состоит из четырех пар скрученных внутри проводников');

Form1. RichEdit1. Lines. Add ('Рекомендуемые фирмы производители: Alcatel, PCnet');

kabel: =60*strtoint (Form1.comboBox3. text) +60* (hubs-1) +koms1*40;

Form1. RichEdit1. Lines. Add ('Количество метров: '+ inttostr (kabel));

Form1. RichEdit1. Lines. Add ('Средняя цена за метр: 0,24$');

prKabel: =kabel*0.24;

Form1. RichEdit1. Lines. Add ('Итоговая цена: '+floattostr (prkabel) +'$');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('Коннекторы: ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Тип: Коннекторы RG 45 под обжим витой пары');

konnektori: =2*strtoint (Form1.comboBox3. text) +2* (hubs-1) +koms1*2;

Form1. RichEdit1. Lines. Add ('Количество штук: '+ inttostr (konnektori));

Form1. RichEdit1. Lines. Add ('Средняя цена за штуку: 0,2$');

prkonnektori: =konnektori*0.2;

Form1. RichEdit1. Lines. Add ('Итоговая цена: '+floattostr (prkonnektori) +'$');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('Инструмент: ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Тип: Инструмент для обжима коннекторов для витой пары (Cripper) ');

Form1. RichEdit1. Lines. Add ('Количество штук: 1');

Form1. RichEdit1. Lines. Add ('Средняя цена за штуку: 20$');

prcripper: =20;

Form1. RichEdit1. Lines. Add ('Итоговая цена: 20$');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. SelAttributes. Color: =clBlack;

Form1. RichEdit1. Lines. Add ('Сетевые адаптеры: ');

Form1. RichEdit1. SelAttributes. Color: =clGray;

Form1. RichEdit1. Lines. Add ('Тип: 10/100 мб двухскоростные внутренние сетевые адаптеры для уcтановки в компьютер ');

Form1. RichEdit1. Lines. Add ('Рекомендуемые фирмы производители: Realtek, 3Com, Genius, Compex, D-Link');

Form1. RichEdit1. Lines. Add ('Количество штук: '+Form1.comboBox3. text);

Form1. RichEdit1. Lines. Add ('Средняя цена за штуку: 12$');

prcards: =strtoint (Form1.comboBox3. text) *12;

Form1. RichEdit1. Lines. Add ('Итоговая цена: '+inttostr (prcards) +'$');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. SelAttributes. Color: =clGreen;

if CheckBox1. Checked = true then Form1. RichEdit1. Lines. Add ('Выход в интернет: Модем');

Form1. RichEdit1. Lines. Add ('__________________________');

Form1. RichEdit1. SelAttributes. Color: =clblack;

Form1. RichEdit1. SelAttributes. Size: =10;

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. Lines. Add ('Итоговая цена сети: '+ floattostr (prkabel+prcripper+PrHubs+Prkoms+prkonnektori+prcards) +'$');

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. Lines. Add ('');

Form1. RichEdit1. Lines. Add ('__________________________');

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. ReadOnly: =false;

Form1. RichEdit1. Lines. BeginUpdate;

Form1. RichEdit2. SelectAll;

Form1. RichEdit2. CopyToClipboard;

Form1. RichEdit2. clear;

Form1. ProgressBar1. StepIt;

Form1. RichEdit1. PasteFromClipboard;

Form1. RichEdit1. Lines. EndUpdate;

Form1. RichEdit1. ReadOnly: =true;;

Form1. Cursor: =crdefault;

Form1. ProgressBar1. StepIt;

Form1. ProgressBar1. Visible: =False;

Form1. ProgressBar1. Position: =0;

end;

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

Label5. Caption: =timetostr (time);

Label6. Caption: =datetostr (date);

end;

procedure TForm1. sComboBox1Change (Sender: TObject);

begin

if (Form1. sComboBox1. text<>'') and (Form1. sComboBox2. Text<>'') and (Form1.comboBox2. text<>'')

and (Form1.comboBox3. text<>'') then

begin

Form1. Button2. Enabled: =true;

Form1. BitBtn1. Enabled: =true;

end

else

begin

Form1. Button2. Enabled: =false;

Form1. BitBtn1. Enabled: =False;

end;

end;

procedure TForm1. sComboBox2Change (Sender: TObject);

begin

if (Form1. sComboBox1. text<>'') and (Form1. sComboBox2. Text<>'') and (Form1.comboBox2. text<>'')

and (Form1.comboBox3. text<>'') then

begin

Form1. Button2. Enabled: =true;

Form1. BitBtn1. Enabled: =true;

end

else

begin

Form1. Button2. Enabled: =false;

Form1. BitBtn1. Enabled: =False;

end;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

Form2. show;

Form1. RichEdit3. Show;

end;

procedure TForm1. N2Click (Sender: TObject);

begin

Form3. show;

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Form1. Close;

end;

procedure TForm1. N10Click (Sender: TObject);

begin

Form4. show;

end;

end.

2.8.2 Описание модуля Unit2

Модуль Unit2. dfm является второй формой, предназначенный для отображения "Графики ЛВС".

Листинг 2

unit Unit2;

interface

uses

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

Dialogs, jpeg, ExtCtrls, StdCtrls, ExtDlgs, Buttons, ImgList,

ComCtrls, Menus, ToolWin;

type

TDrawingTool = (dtLine, dtRectangle, dtEllipse, dtRoundRect, dtBezier);

TForm2 = class (TForm)

Image1: TImage - Image66: Timage - компоненты для отображения изображения

Button1: TButton, Button2: TButton, Button3: TButton, Button4: TButton, Button5: TButton, Button6: TButton - кнопки

MainMenu1: TMainMenu - меню

SaveDialog1: T SaveDialog1 - компонент сохраняет проект

PrintDialog1: T PrintDialog1 - компонент выводит на печать

N2: TMenuItem - меню, N3: TMenuItem, N4: TMenuItem, N5: TMenuItem, N6: TMenuItem, N6: TMenuItem - меню

Процедуры:

procedure TForm2. Button1Click (Sender: TObject) - процедура добавляет рабочие станции форме;

procedure TForm2. Button2Click (Sender: TObject) - процедура добавляет коммутаторы на форме;

procedure TForm2. Button3Click (Sender: TObject) - процедура добавляет коммутаторы 32 на форме;

procedure TForm2. Button4Click (Sender: TObject) - процедура добавляет разделяющую среду на форме;

procedure TForm2. Button5Click (Sender: TObject) - процедура добавляет шлюз на форме;

procedure TForm2. Button6Click (Sender: TObject) - процедура выводит информацию о проектируемой сети;

procedure TForm2. N6Click (Sender: TObject) - процедура создаёт новый проект;

procedure TForm2. N2Click (Sender: TObject) - процедура сохраняет проект;

procedure TForm2. N4Click (Sender: TObject) - процедура выводит на печать;

procedure TForm2. N5Click (Sender: TObject) - процедура закрывает Form2;

procedure TForm2. N8Click (Sender: TObject) - процедура очистки линий;

procedure TForm2. Image1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer) - процедура рисования линии, когда кнопка мыши нажата;

procedure TForm2. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) - процедура рисования линии, при перемещении курсора мыши;

procedure TForm2. Image1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer) - процедура рисования линии, когда кнопка мыши не нажата;

procedure TForm2. Image1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Drawing: = True;

Image1. Canvas. MoveTo (X, Y);

Origin: = Point (X, Y);

MovePt: = Origin;

end;

procedure TForm2. Image1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if FNowDraw then

Image1. Canvas. FillRect (rect ( (X div 5) *5+1, (y div 5) *5+1, (X div 5) *5+5, (y div 5) *5+5));

if Drawing then

begin

DrawShape (Origin, MovePt, pmNotXor);

MovePt: = Point (X, Y);

DrawShape (Origin, MovePt, pmNotXor);

end;

end;

procedure TForm2. Image1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Drawing then

begin

DrawShape (Origin, Point (X, Y), pmCopy);

Drawing: = False;

end;

end;

procedure TForm2. N6Click (Sender: TObject);

var

Bitmap: TBitmap;

begin

Form1. RichEdit1. Clear;

end;

procedure TForm2. N2Click (Sender: TObject);

begin

if SaveDialog1. Execute then

begin

CurrentFile: = SaveDialog1. FileName;

N3Click (Sender);

end;

end;

procedure TForm2. N4Click (Sender: TObject);

begin

Form2. PrintScale: = poPrintToFit;

Visible: = True;

if PageSetupDialog1. Execute then

Form2. Print;

Visible: = True;

end;

procedure TForm2. N5Click (Sender: TObject);

begin

Form2. Close;

end;

procedure TForm2. N8Click (Sender: TObject);

var

Bitmap: TBitmap;

begin

SaveStyles;

Image1. Picture. Graphic: = Bitmap;

SaveStyles;

RestoreStyles;

CurrentFile: = EmptyStr;

end;

procedure TForm2. Button6Click (Sender: TObject);

begin

Form1. Show;

end;

end.

2.8.3 Описание модуля Unit3

Модуль Unit3. dfm является третьей формой, предназначенный для создания отчёта в M. Word.

Листинг 3

interface

uses

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

Dialogs, StdCtrls, WordXP, OleServer;

type

TForm3 = class (TForm)

Button1: TButton; - кнопка

Edit1: TEdit; - окна ввода данных

Edit2: TEdit; - окна ввода данных

Edit3: TEdit; - окна ввода данных

Edit4: TEdit; - окна ввода данных

Label7: TLabel, Label8: TLabel, Label9: TLabel, Label10: TLabel - метки

WordDocument1: TWordDocument1, WordApplication1: TWordApplication1 - компоненты для передачи в M. Word

procedure Edit1Change (Sender: TObject); - процедура отображения окна редактирования данных

procedure Edit2Change (Sender: TObject); - процедура отображения окна редактирования данных

procedure Edit3Change (Sender: TObject); - процедура отображения окна редактирования данных

procedure Edit4Change (Sender: TObject); - процедура отображения окна редактирования данных

TForm3. Button1Click (Sender: TObject) - процедура сохраняет отчёт в M. Word;

procedure

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *. dfm}

procedure TForm3. Button1Click (Sender: TObject);

var

Template, s: OleVariant;

begin

Template: =ExtractFilePath (Application. EXEName) +'Отчёт. dot';

WordApplication1. Connect;

WordApplication1. Documents. Add (Template, EmptyParam,EmptyParam,EmptyParam);

WordDocument1. ConnectTo (WordApplication1. ActiveDocument);

WordApplication1. Options. CheckSpellingAsYouType: =False;

WordApplication1. Options. CheckGrammarAsYouType: =False;

WordDocument1. ActiveWindow. Caption: ='Отчёт';

s: ='Имя';

WordApplication1. ActiveDocument. Bookmarks. Item (s). Range. Text: =edit1. Text;

s: ='Фамилия';

WordApplication1. ActiveDocument. Bookmarks. Item (s). Range. Text: =edit2. Text;

s: ='Отчество';

WordApplication1. ActiveDocument. Bookmarks. Item (s). Range. Text: =edit3. Text;

s: ='Название';

WordApplication1. ActiveDocument. Bookmarks. Item (s). Range. Text: =edit4. Text;

s: ='а';

WordApplication1. ActiveDocument. Bookmarks. Item (s). Range. Text: =Form1. RichEdit3. Text;

WordApplication1. ActiveDocument. Bookmarks. Item (s). Range. Text: =Form1. RichEdit1. Text;

WordApplication1. Visible: =true;

WordApplication1. Disconnect;

end;

procedure TForm3. Edit1Change (Sender: TObject);

begin

Button1. Enabled: = Edit1. Text<>'';

Button1. Enabled: = Edit2. Text<>'';

Button1. Enabled: = Edit3. Text<>'';

Button1. Enabled: = Edit4. Text<>'';

Edit2. Enabled: = Edit1. Text<>'';

end;

procedure TForm3. Edit2Change (Sender: TObject);

begin

Button1. Enabled: = Edit1. Text<>'';

Button1. Enabled: = Edit2. Text<>'';

Button1. Enabled: = Edit3. Text<>'';

Button1. Enabled: = Edit4. Text<>'';

Edit3. Enabled: = Edit2. Text<>'';

end;

procedure TForm3. Edit3Change (Sender: TObject);

begin

Button1. Enabled: = Edit1. Text<>'';

Button1. Enabled: = Edit2. Text<>'';

Button1. Enabled: = Edit3. Text<>'';

Button1. Enabled: = Edit4. Text<>'';

Edit4. Enabled: = Edit3. Text<>'';

end;

procedure TForm3. Edit4Change (Sender: TObject);

begin

Button1. Enabled: = Edit1. Text<>'';

Button1. Enabled: = Edit2. Text<>'';

Button1. Enabled: = Edit3. Text<>'';

Button1. Enabled: = Edit4. Text<>'';

end;

end.

2.8.4 Описание модуля Unit4

Модуль Unit4. dfm является третьей формой, предназначенный для создания отчёта в M. Word.

Timer1: TTimer - компонент таймер

procedure TForm4. FormCreate (Sender: TObject) - процедура загрузки рисунка;

procedure TForm4. Timer1Timer (Sender: TObject) - процедура таймер;

procedure FormCreate (Sender: TObject) - процедура обработки событий;

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm4 = class (TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *. dfm}

const

HB = 210;

HR = 260;

var

pic: TBitMap;

sRect,dRect: TRect;

t: integer;

procedure TForm4. FormCreate (Sender: TObject);

begin

pic: = TBitMap. Create;

pic. LoadFromFile ('baner. bmp');

dRect: = Bounds (6,10,pic. Width,HB);

sRect: = Rect (50,50,pic. Width,HR);

t: =0;

end;

procedure TForm4. Timer1Timer (Sender: TObject);

begin

Canvas. CopyRect (dRect,pic. Canvas,sRect);

inc (t);

if t = HR

then t: =0;

sRect: = Bounds (0,t,pic. Width,HB);

end;

end.

3. Охрана труда и техника безопасности

3.1 Источники опасности

В проектируемой локальной вычислительной сети могут содержаться оборудование, представляющее потенциальную опасность для здоровья человека. Например, оборудование:

источники бесперебойного питания (ИБС);

активное коммутационное оборудование;

оптоволоконные трансиверы и конвертеры.

Оптоволоконные трансиверы и конвертеры генерируют монохроматическое остронаправленное излучение с длиной волны = 1300 нм.

Возможные воздействия на организм человека могут быть следующие:

оптическое излучение непосредственно из лазера;

возможность поражения электрическим током.

Очень важным и сложным является вопрос электромагнитного излучения видеомонитора. Все большее число специалистов признают, что они не обладают достаточным запасом знаний, чтобы с уверенностью говорить о безопасности излучения дисплея.

Спектр излучения компьютера включает в себя рентгеновскую, ультрафиолетовую и инфракрасную области спектра, а также широкий диапазон электромагнитных волн других частот. Опасность рентгеновских лучей считается сейчас специалистами пренебрежимо малой, поскольку этот вид лучей поглощается веществом экрана. Внимание исследователей в настоящее время привлекают биологические эффекты низкочастотных электромагнитных полей, которые до недавнего времени считались абсолютно безвредными.

Очень важным, волнующим и сложным является вопрос электромагнитного излучения видеомонитора. Все большее число специалистов признают, что они не обладают достаточным запасом знаний, чтобы с уверенностью говорить о безопасности излучения дисплея.

Спектр излучения компьютера включает в себя рентгеновскую, ультрафиолетовую и инфракрасную области спектра, а также широкий диапазон электромагнитных волн других частот. Опасность рентгеновских лучей считается сейчас специалистами пренебрежимо малой, поскольку этот вид лучей поглощается веществом экрана. Внимание исследователей в настоящее время привлекают биологические эффекты низкочастотных электромагнитных полей, которые до недавнего времени считались абсолютно безвредными [15].

От оптического квантового генератора (лазера) излучение составляет = 0,2 - 1000 мкм. Особенности лазерного излучения - монохроматичность; острая направленность пучка; когерентность. Свойства лазерного излучения: высокая плотность энергии: 10¹⁰-10¹² Дж/см² и высокая плотность мощности 10²⁰-10²² Вт/см². По виду излучение лазерное излучение подразделяется:

прямое излучение;

рассеянное;

зеркально-отраженное;

диффузное.

По степени опасности:

Неопасные для человека;

Опасные.

3.2 Требования безопасности при эксплуатации лазерных изделий

Под лазерными изделиями в последующем понимаем электронно-оптические и оптические элементы, допускающие возможность выхода лазерного излучения наружу.

Наиболее безопасными как по своей природе (ПДУ облучения никак не может быть превышен), так и по конструктивному исполнению являются лазерные приборы класса 1. В связи с таким двойным подходом допустимые пределы излучения (ДПИ) лазерных приборов класса 1 в спектральной области от 0.4 до 1.4 мкм, для которой возможно как точечное, так и протяженное повреждение сетчатки, характеризуются значениями в двух аспектах - энергетическом (в ваттах или джоулях) и яркостном. В таблице 2, указаны нормы излучения.

Таблица 2. Нормы излучения

Длина волны	Мощность излучения
мкм	Вт	Вт м - 2
1,3	5*10 - 2	103

Размещение лазерных изделий в каждом конкретном случае производится с учётом класса опасности изделий, условий и режима труда персонала, особенностей технологического процесса, подводка коммуникаций.

Траектория прохождения лазерного пучка должна быть заключена в оболочку из несгораемого материала или иметь ограждение, снижающие уровень лазерного излучения до ДПИ и исключающие попадание лазерного пучка на зеркальную поверхность. Открытые траектории в зоне возможного нахождения человека должны располагаться значительно выше уровня глаз. Минимальная высота траектории 2,2 м.

Рабочее место должно быть организовано таким образом, чтобы исключать возможность воздействия на персонал лазерного излучения или чтобы его величина не превышала ДПИ для первого класса.

Рабочее место обслуживающего персонала, взаимное расположение всех элементов (органов управления, средств отображения информации и другое.) должна обеспечивать рациональность рабочих движений и максимально учитывать энергетические, скоростные, силовые и психофизические возможности человека.

Следует предусматривать наличие мест для размещения съемных деталей, переносной измерительной аппаратуры, хранения заготовок, готовых изделий [16].

3.3 Электробезопасность

Электрические установки, к которым относится все оборудование ПЭВМ, представляют для человека потенциальную опасность. Воздействие тока может привести к электрической травме, то есть повреждению организма электрическим током или электрической дугой. Исключительно важное значение для предотвращения электрического травматизма имеет правильная организация обслуживания действующих электрических установок, установленная "Правилами технической эксплуатации электроустановок потребителей" (ПТЭ) и "Правилами устройства электроустановок" (ПУЭ). Помещения, где находятся рабочие места операторов, относятся к категории помещений без повышенной опасности, оборудование относится к классу до 1000 В. Оператор работает с оборудованием на 220 В. Наиболее часты бывают случаи касания рукой или другими частями тела корпусов компьютеров и дисплеев. Для предотвращения электротравматизма необходимо применять наиболее дешевый и эффективный способ защиты, которым является защитное заземление. Принцип действия заземления заключается в многократном уменьшении тока, протекающего через человека в случае утечки. Человек-оператор должен быть обучен правилам эксплуатации электрооборудования и оказанию первой помощи при поражении электрическим током.

В помещении необходимо обеспечить приток свежего воздуха, количество которого определяется технико-экономическим расчетом и выбором схемы вентиляции. Минимальный расход воздуха определяется из расчета 30-50 куб. м/ч, но не менее двукратного воздухообмена в час. Вентиляция - организованный воздухообмен, заключающийся в удалении из рабочего помещения загрязненного воздуха и подаче вместо него свежего наружного или очищенного воздуха. В зависимости от назначения, вентиляция бывает:

приточная;

вытяжная.

В зависимости от способа перемещения воздуха вентиляция бывает:

естественная;

принудительная.

Параметры воздуха, поступающего в приемные отверстия и проемы местных отсосов технологических и других устройств, которые расположены в рабочей зоне, следует принимать в соответствии с ГОСТ 12.1.005-76. При размерах помещения 8 на 5 метров и высоте 3 метра, его объем 120 куб. м. Следовательно, вентиляция должна обеспечивать расход воздуха в 240 куб. м/час. В летнее время следует предусмотреть установку кондиционера с целью избежания превышения температуры в помещении для устойчивой работы оборудования. Необходимо уделить должное внимание количеству пыли в воздухе, так как это непосредственно влияет на надежность и ресурс эксплуатации ЭВМ [15].

3.4 Освещение

Освещение рабочего места - важнейший фактор создания нормальных условий труда. Правильно спроектированное и выполненное освещение обеспечивает высокий уровень работоспособности, оказывает положительное психологическое воздействие на работающего, способствует повышению производительности труда. Для ВЦ о важности вопросов производственного освещения говорит и тот факт, что условия деятельности операторов в системе "человек-машина" связаны с явным преобладанием зрительной информации - до 90% общего объема. В таблице 3 представлена норма освещения, на рабочем месте, нормируется следующим образом:

Таблица 3. Норма освещения

Характеристика зрительной работы	Контраст	Фон	Освещенность, Лк
Мин. объект различения 0,3-0,5 мм	Средний	Средний	300

Таким образом, освещенность должна быть не менее 300 лк. По конструктивному выполнению искусственное освещение может быть общим или комбинированным. При общей освещенности все рабочие места получают рабочее освещение от общей установки. Комбинированное освещение наряду с общим включает местное освещение рабочего места. Исходя из требований отсутствия бликов и равномерности освещения, целесообразно выбрать общее искусственное освещение.

Для предотвращения образования и защиты от статического электричества необходимо использовать нейтрализаторы и увлажнители, а полы должны иметь антистатическое покрытие. Защита должна проводиться в соответствии с Санитарно-гигиеническими нормами допускаемой напряженности электростатического поля - ее уровень не должен превышать 20 кВ в течение часа [18].

3.5 Организация рабочего места и режима работы

Какую бы тревогу не вызывали некоторые из отчетов и статистических данных, следует иметь ввиду, что многие болезни, связанные с работой на персональном компьютере, можно предотвратить. Ознакомившись с наиболее распространенными причинами компьютерных "напастей" можно избежать их, коренным образом изменив устройство рабочего места и привычный ритм работы.

Сегодня специалисты в области эргономики уже поняли, что нельзя найти идеальное положение, в котором можно пребывать и работать в течение всего дня. Для большинства людей комфортабельным рабочим местом должно быть такое, которое можно приспособить не менее чем для 2 позиций. При этом положение кресла, монитора и клавиатуры должны каждый раз соответствовать характеру выполняемой работы, антропологическим данным и привычкам работника и исключать неудобные позы и длительные напряжения. Например, многие считают, что для работы на компьютере больше всего подходит вертикальное положение со слегка наклоненным вперед сидением.

Положение тела обычно соответствует направлению взгляда. Дисплеи, расположенные слишком низко или под неправильным углом, являются основными причинами появления сутулости. Уровень глаз должен приходиться на центр экрана или 2/3 высоты экрана. Линия взора должна быть перпендикулярна центру экрана, и оптимальное ее отклонение в вертикальной плоскости должно находиться в пределах 5 град., допустимое 10 град. Оптимальный обзор в горизонтальной плоскости от центральной оси экрана должен быть в пределах 15 град., допустимый 30 град. При рассматривании информации, находящейся в крайних положениях экрана, угол рассматривания, ограниченный линией взора и поверхностью экрана, должен быть не менее 45 град. Чем больше угол рассматривания, тем легче воспринимать информацию с экрана и меньше будут уставать глаза. Для тех, кто носит очки, угол между направлением прямого взгляда и взгляда на дисплей может быть больше. Расстояние от дисплея до глаз должно лишь немного превышать привычное расстояние между книгой и глазами, т.е. оптимально 60-70 см, допустимо не менее 50 см.

Например, для режима 25 строк по 80 символов на экране монитора персонального компьютера IBM PC XT/AT при S=3 мм минимальное расстояние L должно быть 51.6 см.

Кресло должно иметь подлокотники и подъемно-поворотное устройство для регуляции высоты сидения и спинки, а также угла наклона спинки. Желательно, чтобы рельеф спинки кресла повторял форму спины. Высота поверхности сидения должна регулироваться в пределах 40-50 см., угол наклона спинки - в пределах 90-110 град. Ширина сидения должна быть 40 см, глубина - не менее 38 см. Высота опорной поверхности спинки - не менее 30 см., ее ширина - не менее 38 см.

Материал покрытия должен обеспечивать возможность легкой очистки от загрязнения. Поверхность сидения и спинки должна быть полумягкой, с нескользящим, не электризующимся и воздухонепроницаемым покрытием.

Кресло следует устанавливать на такой высоте, чтобы не чувствовалось давления на копчик (это может быть при низком расположении кресла) или на бедра (при слишком высоком). Хотя большинство операторов ЭВМ предпочитает сидеть несколько откинувшись назад, специалисты по эргономике считают, что угол между бедрами и позвоночником должен составлять 90 град.

Работающий за терминалом должен сидеть прямо, опираясь в области нижних узлов лопаток на спинку кресла, не сутулясь, с небольшим наклоном головы вперед (до 5-7 град.). Предплечья должны опираться на поверхность стола, снимая тем самым статическое напряжение плечевого пояса и рук.

Руки должны располагаться так, чтобы они находились на расстоянии нескольких десятков сантиметров от туловища. Кресло и клавиатура устанавливаются так, чтобы не приходилось далеко тянуться. При изменении положения тела (например, с вертикального на наклонное) обязательно следует переменить и положение клавиатуры. При этом удобно воспользоваться регулируемой подставкой клавиатуры, но можно поставить последнюю и на колени.

Кроме того, многие виды профессиональных заболеваний пользователей компьютеров можно предотвратить, применяя так называемую "переламываемую" клавиатуру, при использовании которой ладони во время работы обращены друг к другу. Ряд исследований, проведенных в ФРГ, показал, что благодаря такой конструкции заметно уменьшается нагрузка, приходящаяся на верхнюю часть тела.

Длина стола (слева направо) должна быть не менее 70 см., ширина должна обеспечивать место перед клавиатурой (не менее 30 см.) для расположения записей, текста программы и др. Поверхность стола, на которой располагаются клавиатура и тетрадь, должна иметь наклон 12-15 град.; допускается и горизонтальная поверхность стола. Высота края стола, обращенного к работающему за видеотерминалом, кресла или стула над полом и ширина пространства для ног под столом должны приниматься в соответствии с ростом программиста. Ширина пространства для ног под столом должна быть не менее 50 см., глубина - не менее 45 см. Удобная высота стола особенно важна в том случае, когда на нем располагается клавиатура. Если стол слишком высок и его высоту нельзя изменить, а у клавиатуры отсутствует или недостаточно высокая подставка, следует повыше поднять сидение кресла, а под ноги подставить скамеечку или что-то другое. Если стол слишком низок, нужно что-нибудь подложить под его ножки.

Согласно "Временным санитарным нормам и правилам для работников вычислительных центров" при вводе данных, редактировании программ, чтении информации с экрана непрерывная продолжительность работы с видеотерминалом не должна превышать 4-х часов (при 8-часовом рабочем дне). Для снижения напряженности труда необходимо по возможности равномерно распределять нагрузку и рационально чередовать характер деятельности [12].

Заключение

В процессе разработки программы была определена структура программы, разработаны блоки (формы) программы автоматизации проектирования сети, позволяющие автоматизировать процесс создания ЛВС.

При помощи модуля "Графика ЛВС" можно построить схему (топологию) сети и рассчитать параметры, после этого создать отчёт в Microsoft Word. При помощи модуля "По условию результат", производится расчёт сети: количество коммутационных устройств, длина кабеля, максимальное число пользователей, цена, рекомендуемые фирмы изготовители.

Программа разработана на языке Object Pascal в среде программирования Borland Delphi.

Программа может получить большое распространение в связи с бесплатным статусом, имеет открытый исходный код, поэтому любой квалифицированный пользователь в состоянии адаптировать программу к ряду функций, которые имеют для него более высокий приоритет. На данный момент существует небольшое количество программных продуктов, позволяющих произвести полный цикл автоматизированного проектирования ЛВС. Это связано с тем, что в области проектирования имеется огромное количество информации, которая не систематизирована и разрознена. Для выбора, например одной только технологии, необходимо учесть множество критериев, которые влияют на решение.

В данное время программы автоматизации и проектирования компьютерной сети имеют большую актуальность, в связи с распространением локальных и интернет сетей.

Предполагается, что программа может найти применение на малых и средних предприятиях, при отсутствии администратора ЛВС, а также для самообразования обычными пользователями.

Список использованных источников

1. М. Брейер "Автоматизация проектирования вычислительных систем. Языки, моделирование и базы данных" - М.: Мир, 1979. - 264 с.

2. Аппак М.А., "Автоматизированные рабочие места на основе персональных ЭВМ", М.: 'Радио и связь', 1989. - 247 с.

3. Архангельский А.Я. "Программирование в Delphi 7". - Издательство: Бином. Москва 2003. - 1152 с.

4. Баженова И.Ю. "Delphi 7". - Москва 2002. - 638 с.

5. Блэк Ю. "Сети ЭВМ: протоколы стандарты интерфейсы" Москва 1990. - 510 с.

6. Бобровский С.М. "Delphi 7". - Москва 2003. - 736 с.

7. Бойченко Е.В., Кальфа Б., Овчинников В.В. "Локальные вычислительные сети." - М.: Радио и связь, 1985. - 304 с.

8. Велихов А. В, Строчников К. С, Д. Леонтьев Б.К. "Компьютерные сети." - М.: "Москва", 2005. - 127 с.

9. Вишневский В.М. "Теоретические основы проектирования компьютерных сетей." М.: Техносфера, 2003. - 512 с.

10. Гаврилов А.В. "Локальные сети ЭВМ" "Мир" Москва, 1990. - 335 с.

11. Хомоненко А.Д. "Borland Delphi 7". Санкт - Петербург, 2008. - 1200 с.

12. Гетия И.Г., Леонтьева И.Н., Е.Н. Кулемина. Учебное пособие. "Проектирование вентиляции и кондиционирование воздуха, искусственного и естественного освещения в помещении ВЦ", 1995. - 68 с.

13. Глушаков С.В., Емец С.Н., Ломотько Д.В. "Сетевые технологии Windows." - М.: Фолио, 2001. - 34 с.

14. Гроднев И.И., Верник С.М. "Линии связи" Учебник для высших учебных заведений 1988. - 464 с.

15. Ефремова О.С. "Требования охраны труда при работе на персональных электронно-вычислительных машинах (ПК)" 2008. - 176 с.

16. Инюшин В.М. "Лазерный свет и живой организм." - Алма-Ата, 1970. - 46с.

17. Казаков С.И. "Основы сетевых технологий", 1998. - 87 с.

18. Кнорринга Г.М. "Справочная книга для проектирования электрического освещения" под редакцией Ленинград, 1976. - 343 c.

19. Кульгин М. "Технология корпоративных сетей." Энциклопедия. - СПб.: Питер, 2001. - 704 с.

20. Ларионов А.М. "Вычислительные комплексы, системы и сети" Финансы и статистика, Москва 1987. - 354 с.

21. М.М. Бутусов, С.М. Верник, С.Л. Балкин и другие. "Волоконно оптические системы передачи." - М.: Радио и связь, 1992 - 416с.

22. Бычин В.Б., Малинин С. В "Организация и нормирование труда." М., 2005. - 320 c.

23. Мартин Дж. "Вычислительные сети и распределенная обработка данных: Программное обеспечение, методы и архитектура." Т.1. - М.: Финансы и статистика, 1986. - 269 с.

24. Мошак Н.Н., Чугреев О.С. "К вопросу об архитектуре локальных сетей оптической связи. Совершенствование средств автоматической коммутации в ЕАСС." - М.: Радио и связь, 1982. - 83 c.

25. Назаров А.Н., Симонов М.В. "АТМ: технология высокоскоростных сетей." - М.: ЭКО-ТРЕНДЗ, 1997. - 133 c.

26. Нанс Б. "Компьютерные сети" Пер. с англ. - М.: "БИНОМ", 1996. - 400 с.

27. Олифер В.Г., Олифер Н.А. "Компьютерные сети. Принципы. Технологии. Протоколы" 3-е издание. 2006. - 958с.

28. Самарский П.А. "Основы структурированных кабельных систем" ДМК - АйТи 2005 г. - 214 с.

29. Свечникова С.В. и Андрушко Л.М., "Волоконно-оптические линии связи" Справочник. Киев "Тэхника", 1988 - 238 с.

30. Сергеев А.П. "Самоучитель офисные и локальные сети" 2006. - 356 с.

31. Сипсер Р. "Архитектура связи в распределенных системах". Т.1,2. - М.: Мир, 1981. - 421 c.

32. Убайдуллаев Р.Р. "Волоконно-оптические сети" Инженерная энциклопедия "Эко-Трендз" Москва 1998. - 346 с.

33. Фаронов В.В. "Delphi 7". Нолидж, 2001. - 454 с.

34. Флинт Д. "Локальные сети ЭВМ. Архитектура, принципы построения, реализация." - М.: Финансы и статистика, 1986. - 359 с.

35. Фролов А.В., Фролов Г.В. Локальные сети персональных компьютеров. - М.: "ДИАЛОГ-МИФИ", 1993. - 176 с.

36. http://www.cyberguru.ru

37. http://www.mydelphi. info

Размещено на Allbest.ru