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

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

( 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所在位置如下：

应用层

UDP（传输层）TCP（传输层）

IP

各种网络接口

为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机

计算机只需将RemoteHost设置为需要聊天的计算机的IP地址，并将RemotePort属性设置为跟需要聊天的计算机的LocalPort属性相同的端口，

并调用SendData方法来发送信息。最后，本台计算机使用 DataArrival事件

内的 GetData 方法来获取对方计算机已发送的信息。

本实验中聊天界面的编写采用VB语言。

实验内容实验步骤：

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的作用。

6.添加三个CommandButton控件，Caption属性分别改为“确定”、“发送”、“退

出”，名称分别为：Cmd_sure、Cmd_send、Cmd_exit。其作用分别为：确定

实验内容IP地址、发送内容、退出聊天程序。

7.添加Winsock控件，名字改为Winsock_udp。

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

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

程序代码：

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 Integer, Shift As Integer) If KeyCode = 13 Then

Winsock_udp.SendData Text_send.Text

Text_send.Text = ""

End If

End Sub

Private Sub Winsock_udp_DataArrival(ByVal bytesTotal As Long)

Dim strdata3 As String

Dim strdata4 As String

Winsock_udp.GetData strdata4

strdata3 = "接收："

Text_record.Text = Text_record & Chr(13) & Chr(10) '回车加换行

Text_record.Text = Text_record & strdata3 & strdata4

End Sub