网络技术基础实验报告.docxVIP

课程设计(综合实验)报告 ( 2022-- 2022 年度第 2 学期) 名 称： 题 目： 院 系： 班 级： 学 号： 学生姓名： 指导教师： 设计周数： 2 周 成 绩： 日期： 2022 年 6 月 30 日 第 1 页 实 实 验 内 容 华 北 电 力 大 学 实 验 报 告 实验 环境 实验 环境 实验 名称 实 验 目 的 实验一：熟悉 VB 环境及 UDP 通信实验程序的设计 1．通过实验熟悉 VB 语言开辟平台。 2．通过实验进一步理解 UDP 通信协议，掌握 UDP 通信协议的特点。 在 TCP/IP 模型中， UDP 为网络层以上和应用层以下提供了一个简单的接口。 UDP 只提供数据的不可靠传递，它一旦把应用程序发给网络层的数据发送出去， 就不保留数据备份(所以UDP 有时候也被认为是不可靠的数据报协议)。UDP 在 IP 数据报的头部仅仅加入了复用和数据校验(字段)。 用户数据文报协议 (UDP) 是一个无连接协议。跟 TCP 的操作不 同，计算机并不建立连接。此外， UDP 应用程序可以是客户机，也可以是服 务器。 实 应用层 验 TCPUDP TCP 传输层 传输层 IP 理 各种网络接口 为了传输数据，首先要设置本机的使用协议和本机端口号。然后，本机 计算机只需将 RemoteHost 设置为需要聊天的计算机的 Internet 地址，并将 RemotePort 属性设置为跟需要聊天的计算机的 LocalPort 属性相同的端口，并 调用 SendData 方法来发送信息。最后，本台计算机使用 DataArrival 事件内 的 GetData 方法来获取对方计算机已发送的信息。 实验步骤： 1. 用自己的名字建立子目录。 2. 进入 VB6.0，双击 StandardEXE。 3. 浮现标准窗体，调整窗体大小到适当尺寸。 4. 工程名改为 UdpTest,窗体名改为 FrmMain, 窗体的 caprion 属性改为“聊天 程序”。 5. 添加 TextBox 控件，名字改为 IPAdr,Text 属性为空，用以输入聊天对象的 IP 地址。 6. 添加两个 Lable 控件，一个作为背景色，一个作为前景色，属性改为对方“IP 地址”，为了使文字在 lable 的正中央，调整两个 lable 的叠放位置。 7. 添加 CommandButton 控件， Caption 属性改为“确定”，用以确定 IP 地址。 第 1 页 实 实 验 内 容 华 北 电 力 大 学 实 验 报 告 8. 添加 TextBox 控件，名字改为 TextRecieve，Text 属性为空， MultiLine 属性为 True,ScrollBars 属性为 2 ，用以显示接受聊天内容。 9. 添加 TextBox 控件，名字改为 TextSend,Text 属性为空， MultiLine 属性为 True,Scrollballs 属性为 2 ，用以显示发送聊天内容。 10. 添加 CommandButton 控件， Caption 属性改为“发送”，用以发送聊天内容。 11. 添加 Winsock 控件，名字改为 UdpSocket. 12. 存盘，存盘路径为自己建立的子目录。 程序代码： Private Sub Command1_Click() 选择 UDP 协议 远方 IP 选择 UDP 协议 远方 IP 地址 远方端口 本地端口 UdpSocket.RemoteHost = IPAdr UdpSocket.RemotePort = 2022 UdpSocket.Bind 2022 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 TextSend.Text = End Sub Private Sub Form_Load() ‘修改窗体背景颜色为蓝色FrmMain.BackColor = RGB(103, 103, ‘修改窗体背景颜色为蓝色 End Sub