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

1. Блэк Ю. Сети ЭВМ: протоколы, стандарты, интерфейсы. М., Мир, 1990.

2. Протоколы информационно-вычислительных сетей: Справочник/ С.А.Аничкин, С.А.Белов, А.В.Берштейн и др.; Под. ред. И.А Мизина, А.П.Кулешова. - М.: Радио и связь, 1990. - 504с.:ил.

Приложение (Листинг программы)

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ScktComp, ComCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Edit3: TEdit;

Label3: TLabel;

Memo1: TMemo;

Label4: TLabel;

Edit5: TEdit;

Label5: TLabel;

Edit6: TEdit;

Label7: TLabel;

GroupBox2: TGroupBox;

RichEdit1: TRichEdit;

OpenDialog1: TOpenDialog;

Button1: TSpeedButton;

Button3: TSpeedButton;

SpeedButton1: TSpeedButton;

LabeledEdit1: TLabeledEdit;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioGroup1: TRadioGroup;

RadioGroup2: TRadioGroup;

Memo2: TMemo;

SpeedButton2: TSpeedButton;

GroupBox3: TGroupBox;

Memo3: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

kl:boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure perev1016(sr:string;var se:string);

var chis:real;

begin

chis:=strtofloat(sr);

se:=inttohex(trunc(chis),24);

end;

procedure perev210(sr:string;var se:string);

var j,chis,i,pol:integer;

begin

chis:=0;

pol:=length(sr);

j:=0;

for i:=pol downto 1 do

begin

if sr[i]='1' then

chis:=chis+trunc(exp(j*ln(2)));

j:=j+1;

end;

se:=inttostr(chis);

end;

procedure perev162(sr:string;var se:string);

var chis:real;i,p:integer;so:string;

begin

p:=length(sr);

se:='';

for i:=1 to p do

begin

case sr[i] of

'0':se:=se+'0000';

'1':se:=se+'0001';

'2':se:=se+'0010';

'3':se:=se+'0011';

'4':se:=se+'0100';

'5':se:=se+'0101';

'6':se:=se+'0110';

'7':se:=se+'0111';

'8':se:=se+'1000';

'9':se:=se+'1001';

'A':se:=se+'1010';

'B':se:=se+'1011';

'C':se:=se+'1100';

'D':se:=se+'1101';

'E':se:=se+'1110';

'F':se:=se+'1111';

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var st:string;

begin

if InputQuery('Введите IP адрес первичной станции','Адрес вторичной станции',st) then

begin

 edit2.Text:='1010010101';

end;

end;

procedure Delay(msecs : Longint);

var

FirstTick : Longint;

begin

FirstTick := GetTickCount;

repeat

Application.ProcessMessages;

until GetTickCount - FirstTick >= msecs;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

 if opendialog1.Execute then

 begin

 kl:=true;

 LabeledEdit1.Text:=OpenDialog1.FileName;

 memo3.Lines.LoadFromFile(OpenDialog1.FileName);

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

var st6,st5,st3,st2,st1,st,st4:string;kol,k,i,j,im:integer;f:file of char;ch:char;

begin

if kl=true then

begin

kl:=false;

assignfile(f,OpenDialog1.filename);

reset(f);

form2.Memo3.Lines.Clear;

while not eof(f) do

 begin

im:=0;

form2.Memo2.Lines.Clear;

edit3.Text:='10100000';

memo2.Lines.Add('Команда RR - готов к приему');

memo2.Lines.Add('---------------------------');

Radiogroup1.itemindex:=0;

RichEdit1.Lines.Clear;

RichEdit1.Lines.Add('011111101010010101100000000000000001111110');

RadioGroup2.ItemIndex:=1;

delay(2000);

form2.RadioGroup1.ItemIndex:=0;

form2.RadioGroup2.ItemIndex:=1;

form2.memo1.Lines.Clear;

form2.memo1.Lines.Add('011111101010010101100000000000000001111110');

form2.Show;

delay(2000);

form2.Memo1.Lines.Clear;

form2.Memo1.Lines.Add('011111101010010101110000000000000001111110');

form2.RadioGroup1.itemindex:=1;

form2.RadioGroup2.ItemIndex:=1;

delay(2000);

form2.Hide;

edit3.Text:='10101000';

memo2.Lines.Add('Ответ RR - готов к приему');

memo2.Lines.Add('-------------------------');

RichEdit1.Lines.Clear;

RichEdit1.Lines.Add('011111101010010101110000000000000001111110');

RadioGroup1.itemindex:=1;

RadioGroup2.ItemIndex:=1;

st:='';

st:='011111101010010101';

i:=0;

st3:='';

RichEdit1.Lines.Clear;

memo2.Lines.Add('Передача');

memo2.Lines.Add('-------------------------');

st4:='';

st4:=st4;

st5:='';

st6:='';

while (not eof(f))and (i<=512) do

begin

read(f,ch);

st6:=st6+ch;

perev1016(inttostr(ord(ch)),st3);

perev162(st3,st3);

st4:=st4+st3;

kol:=0;

for k:=1 to length(st3) do

begin

if st3[k]='1' then kol:=kol+1;

if kol=6 then begin insert('0',st3,k);kol:=0;end

end;

i:=i+1;

st5:=st5+st3;

end;

memo1.Lines.Clear;

memo1.Lines.Add(st4);

//closefile(f);

st5:=st5+'000000000000000001111110';

RichEdit1.Lines.Add(st5);

RadioGroup2.ItemIndex:=0;

edit3.Text:='00000000';

delay(2000);

//////

form2.RadioGroup1.ItemIndex:=0;

form2.RadioGroup2.ItemIndex:=0;

form2.memo1.Lines.Clear;

form2.memo1.Lines.Add(st5);

form2.Show;

delay(2000);

form2.Memo2.Lines.Clear;

form2.Memo2.Lines.Add(st4);

form2.RadioGroup1.itemindex:=0;

form2.RadioGroup2.ItemIndex:=0;

delay(2000);

form2.Memo3.Lines.Add(st6);

form2.RadioGroup1.itemindex:=0;

form2.RadioGroup2.ItemIndex:=0;

delay(2000);

form2.Hide;

 end;

closefile(f);

//ClientSocket1.Socket.SendText('#End');

MessageDlg('Передача данных закончилась',mtInformation,[mbOk],0);

end

else

MessageDlg('Введите информацию',mtError,[mbOk],0);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

kl:=false;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

halt;

end;

end.

Министерство Образования и Культуры

Кыргызской Республики

Кыргызский Технический Университет

им. И. Раззакова.

Кафедра Информатики и Вычислительной Техники

Курсовой Проект

по курсу «Вычислительные комплексы, системы и сети»

на тему: «Разработка протокола канального уровня HDLC»

Выполнил: ст. гр. ЭВМ-1-99

 Ыйсаев У.Б.

Приняла: доц. Токмергенова А.З.

Бишкек, 2003 г.