华北电力大学网络通信实验与设计实验报告详解.doc

课程设计(综合实验)报告 ( 2013-2014年度第 2学期) 名 称： 网络通信实验与设计 题 目： 网线的制作、路由器配置及组网 网络通信综合实验、VB6.0实验 院 系： 电子与通信工程系 班 级： 通信1101 学 号： 学生姓名： 指导教师： 设计周数： 成 绩： 日期实验环境 VB 6.0 实验名称 实验一：熟悉VB环境及UDP通信实验程序的设计 实 验 目 的 1．通过实验熟悉VB语言开发平台。 2．通过实验进一步理解UDP通信协议，掌握UDP通信协议的特点。 实 验 原 理 在TCP/IP模型中，UDP为网络层以上和应用层以下提供了一个简单的接口。UDP只提供数据的不可靠传递，它一旦把应用程序发给网络层的数据发送出去，就不保留数据备份。UDP在IP数据报的头部仅仅加入了复用和数据校验字段。 UDP是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外UDP应用程序可以是客户机，也可以是服务器。 UDP（传输层） TCP（传输层） IP 各种网络接口 为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机计算机只需将RemoteHost设置为需要聊天的计算机的IP地址，并将RemotePort属性设置为跟需要聊天的计算机的LocalPort属性相同的端口，并调用SendData方法来发送信息。最后，本台计算机使用 DataArrival事件内的 GetData 方法来获取对方计算机已发送的信息。 本实验中聊天界面的编写采用VB语言。 实 验 内 容 实验步骤： 进入VB6.0，双击StandardEXE。 出现标准窗体，调整窗体大小到适当尺寸。 工程名改为工程_udp,窗体名改为Frm_udp, 窗体的caprion属性改为“聊天程序”。 添加三个TextBox控件，名字分别改为Text_ip、Text_record、Text_send，属性均为空，分别用以输入聊天对象的IP地址、显示聊天内容、输入聊天内容。 另外Text_record 的scrollbars 属性设置为2_vertical。 添加三个Lable控件， 其caption 属性分别改为：“聊天对象（IP地址）：”、“聊天记录：”、“我要说：”，用以说明其下面的TextBox的作用。 添加三个CommandButton控件，Caption属性分别改为“确定”、“发送”、“退出”，名称分别为：Cmd_sure、Cmd_send、Cmd_exit。其作用分别为：确定 实 验 内 容 IP地址、发送内容、退出聊天程序。 添加Winsock控件，名字改为Winsock_udp。 执行，判断所编程序的正确性。 若程序执行正确，则存盘。 程序代码： Private Sub Cmd_exit_Click() Unload Me End Sub Private Sub Cmd_send_Click() Dim strdata1 As String Dim strdata2 As String If Text_send.Text = Then MsgBox 请输入要发送的话！, vbOKOnly + vbExclamation 警告信息 End If strdata1 = Text_send.Text strdata2 = 发送： Text_record.Text = Text_record Chr(13) Chr(10) Text_record.Text = Text_record strdata2 strdata1 Winsock_udp.SendData Text_send.Text Text_send.Text = End Sub Private Sub Cmd_sure_Click() Winsock_udp.Protocol = sckUDPProtocol Winsock_udp.RemoteHost = Text_IP.Text Winsock_udp.RemotePort = 2010 远程端口 Winsock_udp.Bind 2010 绑定本地端口 End Sub Private Sub Text_send_KeyDown(KeyCode As Integ