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

《华北电力大学___网络通信实验与设计实验报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程设计(综合实验)报告(2013-2014年度第2学期)名称：网络通信实验与设计题目：网线的制作、路由器配置及组网网络通信综合实验、VB6.0实验院系：电子与通信工程系班级：通信1101学号：学生姓名：指导教师：设计周数：成绩：日期华北电力大学(科技学院)实验报告实验环境VB6.0实验名称实验一：熟悉VB环境及UDP通信实验程序的设计实验目的1．通过实验熟悉VB语言开发平台。2．通过实验进一步理解UDP通信协议，掌握UDP通信协议的特点。实验原理在TCP/IP模型中，UDP为网络层以上和应用层以下提供了一个简单的接口。UDP只提供数据的不可靠传递，它一旦把应用程序发给

2、网络层的数据发送出去，就不保留数据备份。UDP在IP数据报的头部仅仅加入了复用和数据校验字段。UDP是一个无连接协议。跟TCP的操作不同，计算机并不建立连接。另外，UDP应用程序可以是客户机，也可以是服务器。UDP所在位置如下：应用层UDP（传输层）TCP（传输层）IP各种网络接口为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机计算机只需将RemoteHost设置为需要聊天的计算机的IP地址，并将RemotePort属性设置为跟需要聊天的计算机的LocalPort属性相同的端口，并调用SendData方法来发送信息。最后，本台计算机使用DataArriva

3、l事件内的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

4、控件，其caption属性分别改为：“聊天对象（IP地址）：”、“聊天记录：”、“我要说：”，用以说明其下面的TextBox的作用。6.添加三个CommandButton控件，Caption属性分别改为“确定”、“发送”、“退出”，名称分别为：Cmd_sure、Cmd_send、Cmd_exit。其作用分别为：确定第2页华北电力大学实验报告实验内容IP地址、发送内容、退出聊天程序。1.添加Winsock控件，名字改为Winsock_udp。2.执行，判断所编程序的正确性。3.若程序执行正确，则存盘。程序代码：PrivateSubCmd_exit_Click()Unloa

5、dMeEndSubPrivateSubCmd_send_Click()Dimstrdata1AsStringDimstrdata2AsStringIfText_send.Text=""ThenMsgBox"请输入要发送的话！",vbOKOnly+vbExclamation'警告信息EndIfstrdata1=Text_send.Textstrdata2="发送："Text_record.Text=Text_record&Chr(13)&Chr(10)Text_record.Text=Text_record&strdata2&strdata1Winsock_udp.Sen

6、dDataText_send.TextText_send.Text=""EndSubPrivateSubCmd_sure_Click()Winsock_udp.Protocol=sckUDPProtocolWinsock_udp.RemoteHost=Text_IP.TextWinsock_udp.RemotePort=2010'远程端口Winsock_udp.Bind2010'绑定本地端口EndSubPrivateSubText_send_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenWinsock_u

7、dp.SendDataText_send.TextText_send.Text=""EndIfEndSubPrivateSubWinsock_udp_DataArrival(ByValbytesTotalAsLong)Dimstrdata3AsStringDimstrdata4AsStringWinsock_udp.GetDatastrdata4strdata3="接收："Text_record.Text=Text_record&Chr(13)&Chr(10)'回车加换行Text_record.Text=Text_record&strda