华北电力大学(保定)(科院)计算机通信与网络实验报告.doc

科 技 学 院课程设计(综合实验)报告( 2016 - 2017 年度第 2学期)名 称： 网络通信实验与设计 院 系： 信息工程系 班 级： 通信14 k1 学 号： 141903010121 学生姓名： 王大礼 指导教师： 陈智雄 李然 王劭龙 设计周数： 2周 成 绩： 日期：2017年 6月 5日华 北 电 力 大 学 (科 技 学 院) 实 验 报 告实验环境VB 6.0、Matlab实验名称实验一：软件编程实 验 目 的1通过实验熟悉VB语言开发平台和Matlab仿真平台。2通过实验进一步理解UDP、TCP、FTP协议通信协议，掌握几种通信协议的特点。实 验 原 理在TCP/IP模型中，UDP为网络层以上和应用层以下提供了一个简单的接口。UDP只提供数据的不可靠传递，它一旦把应用程序发给网络层的数据发送出去，就不保留数据备份。UDP在IP数据报的头部仅仅加入了复用和数据校验字段。UDP是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外，UDP应用程序可以是客户机，也可以是服务器。UDP所在位置如下：应用层UDP（传输层）TCP（传输层） IP各种网络接口 为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机计算机只需将RemoteHost设置为需要聊天的计算机的IP地址，并将RemotePort属性设置为跟需要聊天的计算机的LocalPort属性相同的端口，并调用SendData方法来发送信息。最后，本台计算机使用 DataArrival事件内的 GetData 方法来获取对方计算机已发送的信息。第 7 页华 北 电 力 大 学 (科 技 学 院) 实 验 报 告实 验 内 容1.进入VB6.0，双击StandardEXE。2.出现标准窗体，调整窗体大小到适当尺寸。3.工程名改为工程udp,窗体名改为Frm_udp, 窗体的caprion属性改为“聊天程序”。4.添加三个TextBox控件，名字分别改为Text_ip、Text_record、Text_send，属性均为空，分别用以输入聊天对象的IP地址、显示聊天内容、输入聊天内容。另外Text_record 的scrollbars 属性设置为2_vertical。5.添加三个Lable控件， 其caption 属性分别改为：“聊天对象（IP地址）：”、“聊天记录：”、“我要说：”，用以说明其下面的TextBox的作用。添加三个CommandButton控件，Caption属性分别改为“确定”、“发送”、“退出”，名称分别为：Cmd_sure、Cmd_send、Cmd_exit。其作用分别为：确定IP地址、发送内容、退出聊天程序。7.添加Winsock控件，名字改为Winsock_udp。8.执行，判断所编程序的正确性。9.若程序执行正确，则存盘。实 验 结 果 及 分 析实验结果：1. 运行程序，分别和两个人聊天2. 聊天双方在IPAdr中输入对方IP地址，点确定，开始通信。3. 在TextSend中输入发送信息，点发送，可以在TextReceive中看到对话内容，自己发送的是“发送：”后显示的内容。4. 同理，对方收到信息后，显示在对方TextRecieve中。对方进行同种操作，将可以在本机的TextRecieve中显示。实验环境Mat lab软件实验名称实验二：网络图实 验 目 的利用算法实现网络图的最短路径实 验 原 理Dijkstra算法将网络结点分成3部分：未标记结点、临时标记结点和永久标记结点网络中所有结点首先初始化为未标记结点，在搜索过程中和最短路径中的结点相连通的结点为临时标记结点，每次循环都是从临时标记结点中搜索距源点路径长度最短的结点作为永久标记结点，直至找到目标结点或者所有的结点都成为永久标记结点来结束算法。实 验 内 容 及 步 骤 创建路由矩阵函数：function adj_mat = default_dat()adj_mat(1,:)=0,2,5,1,inf,inf;adj_mat(2,:)=2,0,3,2,inf,inf;adj_mat(3,:)=5,3,0,3,1,5;adj_mat(4,:)=1,2,3,0,1,inf;adj_mat(5,:)=inf,inf,1,1,0,2;adj_mat(6,:)=inf,inf,5,inf,2,0;主要程序：function leng,path = dijkstra(adj_mat , sta , dst)m = length(adj_mat);lengs = linspace(0,0,m);paths = linspace(0,0,m);know = linspace(0,0,m);know(1) = sta;k=1;for i = 1:1:m if i = sta lengs(i) = adj_mat(sta,i); if lengs(i) = inf paths(i) = sta; end endend实 验 内 容 及 步 骤index = 1;for i = 1:1:m if i = sta min = inf; for j = 1:1:m count = isIn(know,j); if count = 0 & lengs(j) = min k = j; min = lengs(j); end end know(index) = k; index = index+1; for j = 1:1:m count = isIn(know,j); if count = 0 & (lengs(i) + adj_mat(i,j) PC1 或PC2=PC1 ）。 表12 TCP 连接建立报文分析 报文号传输方向源端口目的端口序 号确认序号同步位SYN确认位ACK 2）从FTP-学号