华北电力大学---网络通信实验与设计实验报告.docVIP

课程设计(综合实验)报告

(2013-2014年度第2学期)

名称：网络通信实验与设计

题目：网线的制作、路由器配置及组网

网络通信综合实验、VB6.0实验

院系：电子与通信工程系

班级：通信1101

学号：

学生姓名：

指导教师：

设计周数：

成绩：

日期

实验环境

VB6.0

实验名称

实验一：熟悉VB环境及UDP通信实验程序的设计

实验目的

1．通过实验熟悉VB语言开发平台。

2．通过实验进一步理解UDP通信协议，掌握UDP通信协议的特点。

实验原理

在TCP/IP模型中，UDP为网络层以上和应用层以下提供了一个简单的接口。UDP只提供数据的不可靠传递，它一旦把应用程序发给网络层的数据发送出去，就不保留数据备份。UDP在IP数据报的头部仅仅加入了复用和数据校验字段。

UDP是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外，UDP应用程序可以是客户机，也可以是服务器。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。

执行，判断所编程序的正确性。

若程序执行正确，则存盘。

程序代码：

PrivateSubCmd_exit_Click()

UnloadMe

EndSub

PrivateSubCmd_send_Click()

Dimstrdata1AsString

Dimstrdata2AsString

IfText_send.Text=Then

MsgBox请输入要发送的话！,vbOKOnly+vbExclamation警告信息

EndIf

strdata1=Text_send.Text

strdata2=发送：

Text_record.Text=Text_recordChr(13)Chr(10)

Text_record.Text=Text_recordstrdata2strdata1

Winsock_udp.SendDataText_send.Text

Text_send.Text=

EndSub

PrivateSubCmd_sure_Click()

Winsock_udp.Protocol=sckUDPProtocol

Winsock_udp.RemoteHost=Text_IP.Text

Winsock_udp.RemotePort=2010远程端口

Winsock_udp.Bind2010绑定本地端口

EndSub

PrivateSubText_send_KeyDown(KeyCodeAs