网络技术基础实验报告(华北电力大学).docVIP

课程设计(综合实验)报告 ( 2011—2012年度第 2学期) 名 称：网络通信实验与设计 题 目：VB6.0、网线制作、路由器配置及组网、网络通信综合实验 院 系：电子与通信工程系 班 级：通信0903 学 号： 学生姓名： 指导教师：李然 陈智雄 贾惠彬 王雅宁 设计周数：2周 成 绩： 日期：2012年 5月 19日 PAGE 华 北 电 力 大 学 (科 技 学 院) 实 验 报 告 PAGE 第 PAGE 7 页 华 北 电 力 大 学 实 验 报 告 第 PAGE 1 页 实验环境 VB 6.0 实验名称 实验一：熟悉VB环境及UDP通信实验程序的设计 实 验 目 的 1．通过实验熟悉VB语言开发平台。 2．通过实验进一步理解UDP通信协议，掌握UDP通信协议的特点。 实 验 原 理 在TCP/IP模型中，UDP为网络层以上和应用层以下提供了一个简单的接口。UDP只提供数据的不可靠传递，它一旦把应用程序发给网络层的数据发送出去，就不保留数据备份（所以UDP有时候也被认为是不可靠的数据报协议）。UDP在IP数据报的头部仅仅加入了复用和数据校验（字段）。 用户数据文报协议 ? (UDP) ? 是一个无连接协议。跟 ? TCP ? 的操作不同，计算机并不建立连接。另外，UDP应用程序可以是客户机，也可以是服务器。 应用层 UDP TCP IP 各种网络接口 传输层 为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机计算机只需将RemoteHost设置为需要聊天的计算机的Internet地址，并将RemotePort属性设置为跟需要聊天的计算机的LocalPort属性相同的端口，并调用SendData方法来发送信息。最后，本台计算机使用 DataArrival事件内的 GetData 方法来获取对方计算机已发送的信息。 实 验 内 容 实验步骤： 用自己的名字建立子目录。 进入VB6.0，双击StandardEXE。 出现标准窗体，调整窗体大小到适当尺寸。 工程名改为UdpTest,窗体名改为FrmMain, 窗体的caprion属性改为“聊天程序”。 添加TextBox控件，名字改为IPAdr,Text属性为空，用以输入聊天对象的IP地址。 添加两个Lable控件，一个作为背景色，一个作为前景色，属性改为对方“IP地址”，为了使文字在lable的正中央，调整两个lable的叠放位置。 添加CommandButton控件，Caption属性改为“确定”，用以确定IP地址。 PAGE 华 北 电 力 大 学 实 验 报 告 PAGE 第 PAGE 28 页 华 北 电 力 大 学 实 验 报 告 第 PAGE 1 页 实 验 内 容 添加TextBox控件，名字改为TextRecieve，Text属性为空，MultiLine属性为True,ScrollBars属性为2，用以显示接受聊天内容。 添加TextBox控件，名字改为TextSend,Text属性为空，MultiLine属性为True,Scrollballs属性为2，用以显示发送聊天内容。 添加CommandButton控件，Caption属性改为“发送”，用以发送聊天内容。 添加Winsock控件，名字改为UdpSocket. 存盘，存盘路径为自己建立的子目录。 程序代码： Private Sub Command1_Click() UdpSocket.Protocol = sckUDPProtocol 选择UDP协议 UdpSocket.RemoteHost = IPAdr 远方IP地址 UdpSocket.RemotePort = 2012 远方端口 UdpSocket.Bind 2012 本地端口 End Sub Private Sub Command2_Click() UdpSocket.SendData TextSend.Text Dim strData1 As String Dim strData2 As String strData1 = TextSend.Text strDa