Проектування локальної комп’ютерної мережі типу Ethernet, страница 5

      end;

     end;

   close(f2);

 end;

(*рисует 1 этаж*)

procedure Draw_1_etazh (z:mas_1; c:mas_2);

var

 i:byte;

begin

 {прорисовываються трансиверы }

 SetFillStyle(blue, blue);

 bar(z[2,3],   z[2,2],    z[2,3]+4, z[2,2]+6);

 bar(z[2,3],   z[2,2]-2,  z[2,3]+4, z[2,2]);

 bar(z[1,1],   z[1,4],    z[1,1]+6, z[1,4]+4);

 bar(z[3,1]-4, z[3,4]-20, z[3,1],   z[3,4]-14);

 bar(z[4,1]-4, z[4,2],    z[4,1],   z[4,2]+6);

 {оптоволокооный кабель     }

 setcolor(blue);

 line(z[2,3]+2, z[2,2],   z[1,1]+2, z[1,4]+4);

 line(z[2,3]+4, z[2,2]+3, z[3,1]-4, z[3,4]-17);

 line(z[2,3]+4, z[2,2]+3, z[4,1]-4, z[4,2]+3);

 {рабочие станции на  этаже }

 SetFillStyle(blue, white);

 for i:=1 to 16 do

  if c[i,2]=1 then bar(c[i,3]-2,c[i,4]-2,c[i,3]+2,c[i,4]+2);

 {сервер}

 {1} SetFillStyle(blue, green);

     bar(c[17,3]-2,c[17,4]-2,c[17,3]+2,c[17,4]+2);

 {кабель}

 {2} setcolor(12);

     line(c[17,3],c[17,4],c[7,3],c[17,4]);

     line(c[7,3],c[17,4],c[7,3],c[7,4]);

     line(c[7,3],c[7,4],c[8,3],c[8,4]);

 {3} setcolor(13);

     line(z[3,1],z[3,4]-17,c[10,3],z[3,4]-17);

     line(c[10,3],z[3,4]-17,c[10,3],c[12,4]);

     line(c[10,3]+2,c[12,4],c[10,3]+2,c[11,4]);

     line(c[10,3]+2,c[11,4],c[11,3],c[11,4]);

 {повторитель}

 {1} SetFillStyle(blue,9);

     bar(c[7,3]-2,c[17,4]-2,c[7,3]+2,c[17,4]+2);

 {Switch}

 SetFillStyle(blue,3);

 {1} bar(c[17,3]-2,c[17,4]+2,c[17,3]+2,c[17,4]+6);

end;

(*рисует 2 этаж*)

procedure Draw_2_etazh(z:mas_1; c:mas_2);

var

 i:byte;

begin

 {рабочие станции на  этаже }

 SetFillStyle(blue, yellow);

 for i:=1 to 16 do

  if c[i,2]=2 then bar(c[i,3]-2,c[i,4]-2,c[i,3]+2,c[i,4]+2);

 {свитч}

 SetFillStyle(blue,3);

 {1} bar(z[1,1],z[1,4]-5,z[1,1]+5,z[1,4]);

 {3} bar(c[10,3]-2,c[12,4]-2,c[10,3]+3,c[12,4]+3);

 {4} bar(z[4,1],z[4,2],z[4,1]+5,z[4,2]+5);

 {кабель}

 {1} setcolor(13);

     line(c[2,3],c[3,4],c[3,3],c[3,4]);

     line(c[2,3],c[4,4]+2,c[4,3],c[4,4]+2);

 {3} setcolor(13);

     line(c[10,3],c[12,4],c[10,3],c[10,4]);

     line(c[10,3],c[12,4],c[10,3],c[11,4]);

     line(c[10,3],c[11,4],c[12,3],c[11,4]);

     line(c[12,3],c[11,4],c[12,3],c[12,4]);

 {4} setcolor(13);

     line(c[14,3],c[14,4],c[14,3],c[15,4]);

     line(c[14,3],c[15,4],c[16,3],c[16,4]);

     line(c[14,3],c[14,4],c[14,3],c[15,4]-2);

     line(c[14,3],c[15,4]-2,c[15,3],c[15,4]-2);

 {Повторитель}

 SetFillStyle(blue,9);

 {4} bar(c[14,3]-2,c[15,4],c[14,3],c[15,4]+2);

 {3} bar(c[11,3]-2,c[11,4]-2,c[11,3]+2,c[11,4]+2);

end;

(*рисует 3 этаж*)

procedure Draw_3_etazh(z:mas_1; c:mas_2);

var

 i:byte;

begin

 {рабочие станции на  этаже }

 SetFillStyle(blue, red);

 for i:=1 to 16 do

  if c[i,2]=3 then bar(c[i,3]-2,c[i,4]-2,c[i,3]+2,c[i,4]+2);

 {кабель}

 {1} setcolor(13);

     line(c[2,3],c[3,4],c[2,3],c[2,4]);

     line(c[2,3]+2,c[3,4],c[2,3]+2,c[1,4]);

     line(c[2,3]+2,c[1,4],c[1,3],c[1,4]);

 {2} setcolor(12);

     line(c[8,3],c[8,4]-2,c[7,3]+2,c[7,4]-2);

     line(c[7,3]+2,c[7,4]-2,c[6,3]+2,c[6,4]+2);

     line(c[6,3]+2,c[6,4]+2,c[6,3]+2,c[5,4]+2);

     line(c[6,3]+2,c[5,4]+2,c[5,3],c[5,4]+2);

 {3} setcolor(13);

     line(c[10,3],c[12,4],c[10,3],c[10,4]);

     line(c[10,3],c[10,4],c[9,3],c[9,4]);

 {4} line(c[14,3],c[14,4],c[13,3],c[13,4]);

 {Повторитель}

 SetFillStyle(blue,9);

 {1} bar(c[2,3]-1,z[1,2]+29,c[2,3]+3,z[1,2]+33);

 {3} bar(c[11,3]-2,c[9,4]-2,c[11,3]+2,c[9,4]+2);

end;

Procedure Draw_help;

begin

 SetFillStyle(blue,blue);bar(370,10,374,14);outtextxy(385,12,'- Трансивер');

 setcolor(blue);line(370,20,380,20);outtextxy(385,20,' - Оптоволокно');

 setcolor(12);line(370,30,380,30);outtextxy(385,30,' - Коаксиальный');

 setcolor(13);line(370,40,380,40);outtextxy(385,40,' - Витая пара');

 SetFillStyle(blue,9);bar(370,50,374,54);outtextxy(385,52,'- Повторитель');

 SetFillStyle(blue,3);bar(370,60,374,64);outtextxy(385,62,'- Свитч');

 SetFillStyle(blue,green);bar(370,70,374,74);outtextxy(385,72,'- Сервер');

 SetFillStyle(blue,white);bar(370,80,374,84);outtextxy(385,82,'- РС 1 этаж');

 SetFillStyle(blue,yellow);bar(370,90,374,94);outtextxy(385,92,'- РС 2 этаж');

 SetFillStyle(blue,red);bar(370,100,374,104);outtextxy(385,102,'- РС 3 этаж');