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

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