《使用VB设计聊天室_多点对多点网络程序的设计说明》由会员分享，可在线阅读，更多相关《使用VB设计聊天室_多点对多点网络程序的设计说明（24页珍藏版）》请在金锄头文库上搜索。
1、. . . .课 程 设 计 任 务 书 9.多点对多点网络程序设计，根据网络数据传输原理设计聊天室软件，具体要求：1) 学习计算机网络连接原理； 2) 学习网络数据传输的基本原理； 3) 学习网络连接的底层协议； 4) 设计聊天室软件； 5) 面向用户的操作界面； 6) 具有文件共享功能。 目录一、设计目的1二、设计任务与要求1三、开发软件介绍1四、设计内容41、设计框架42、设计程序53、运行结果12五、设计总结15六、设计心得16七、参考文献16 . 学习参考 . . . .一、设计目的通过本课程设计的学习，学生将复习所学的专业知识，使课堂学习的理论知识应用于实践，通过本课程设计的实践使
2、学生具有一定的实践操作能力，为学生完成毕业设计任务打下基础。 二、设计任务与要求 多点对多点网络程序设计，根据网络数据传输原理设计聊天室软件，具体要求：1) 学习计算机网络连接原理； 2) 学习网络数据传输的基本原理； 3) 学习网络连接的底层协议； 4) 设计聊天室软件； 5) 面向用户的操作界面； 6) 具有文件共享功能。三、开发软件介绍微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有
3、效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征：事件（Event）事件是指发生在某一对象上的事情。事件又可分为鼠标事件和键盘事件。例如，在命令按钮（Command Button）这一对象上可能发生鼠标单击（Click）、鼠标移动（Mouse Move）、鼠标按下（Mouse Down）等鼠标事件，也可能发生键盘按下（Key Down）等键盘事件。总之，事件指明了对象“什么情况下做？”，常用于定义对象发生某种反映的时机和条件。方法（Method）方法是用来控制对象的功能及操作的内部
4、程序。例如，人具有说话、行走、学习、睡觉等功能，在visual Basic中，对象所能提供的这些功能和操作，就称作“方法”。以窗体为例，它具有显示（show）或隐藏（hide）的方法。总之，方法指明了对象“能做什么？”，常用于定义对象的功能和操作。属性（Property）属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性改变对象的特性。有些属性可以在设计时通过属性窗口来设置，不用编写任何代码；而有些属性则必须通过编写代码，在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性，只能读取的属性成为只读属性。总之属性指明了对象“是什么样的？”，常用于定义对象
5、的外观。如同上面的内容所描述的，不论您使用UDP协议或是TCP协议，Winsock控件都可以允许与远程的设备连接，并且在相互之间交换数据。因此，依据上面的面熟而言，不论您使用的是哪一种协议都可以扮演主机端和客户端的角色。同时，当您在使用Winsock控件的过程中，这个控件不会显示在正在执行的窗体之中。换句话说，Winsock控件是在后台运行的一种控件。在执行过程之中，不会具有任何选用、可见的控件。那么该如何使用Winsock控件呢？它可以被应用在那些类型的应用程序之中呢？以下所列出的内容，是这个控件可以应用的大致范围：*将客户端所收集的数据，传送给主机端。*聊天和文件传输室应用程序。*电子公告
6、栏。*voip（voice over TCP/ip）VB winsock介绍Winsock是Mcrosoft windows提供的网络编程接口,它供了基于TCP/IP协议接口实现方法.通过网络进行的数据通信,需要用地址来表示网络中的主机.TCP/IP协议使用IP地址来作为主机的标识.实现的连接方式是通过IP地址来识别的.通常情况下每台设备运行的不止一个程序,所以为了使用应用程序间的连接,还需要建立一个地址标识.在TCP/IP中使用端口来作为标识号(PORT).IP地址+端口地址.TCP:实现提供双向,有序无从复的数据流服务,流量控制+差错检测+纠错等功能.1.VB控件winsock是个运行中不
7、可件的控件,常用属性如下:byte received 接收到的字节数local hostname 本地机器名Local IP 本地IP地址Local port 本地通信程序的端口Remote host 远程机器名Remote host IP 远程IP地址Remote port 远程通信程序端口Socket handle 提供调用API得句柄参数State 连接得当前状态Protocol 使用协议Bytereceived：反应接收到得数据量，以字节为单位。State:返回当前连接状态0 关闭状态1 打开状态2 监听状态3 连接挂起4 解析域名5 正在连接6 以建立连接7 正在关闭8 出错2.控件
8、accept接受一个连接请求。格式：对象.accept request IDbind：多协议接口下，把接口卡，IP地址捆绑再一起。格式：对象。Bina端口号，ip地址close：关闭连接。格式：对象。Closeconnect：发送连接请求。格式：对象。Connectip，远程端口getdata：取出数据后清除缓冲区。Peekdata：取出数据后不清楚缓冲区。格式：对象。Getdata（peekdata）变量，数据类型，最大长度Listen：侦听。格式：对象。ListenSenddata：发送数据。格式：对象。Senddata3控件事件Close 远程设备关闭连接时触发事件Connect 建立连
9、接，进行通信时触发Connectrequest 有连接请求时触发Data arrival 有数据到达时触发Error 错误时触发Send complete 完成一次数据传送触发Send progress 数据传送进度四、设计内容1、设计框架客户端服务端文件传输消息发送图2 消息文件交互客户端连接端口连接IP服务端图1 建立连接2、设计程序服务端：Option Explicit /强制声明变量Private Sub Command1_Click()If tcp.State = 7 And Text2.Text Then /winsock=7表示已连接 tcp.SendData Text2.Tex
10、t /发送数据 Text1.Text = Text1.Text & 本机： & Text2.Text & vbCrLf /显示自己发送的信息，换行显示 Text2.Text = /文本清空 Text2.SetFocus /设置焦点 End IfEnd SubPrivate Sub Command2_Click()Dim Form2 As New Form2 /定义数据传输窗口Form2.Show /显示数据传输窗口End SubPrivate Sub Form_Load()tcp.LocalPort = 8888 /本地监听端口为8888tcp.Listen /开始监听End SubPriva
11、te Sub tcp_ConnectionRequest(ByVal requestID As Long) /连接请求If tcp.State 0 Then tcp.Close /如果不是关闭状态，关闭跳 tcp.Accept requested /接收请求ID End SubPrivate Sub tcp_DataArrival(ByVal bytesTotal As Long) /对方数据到达Dim strdata As String /定义字符串型 tcp.GetData strdata /获取数据传递给变量strdata Text1.Text = Text1.Text & 客户端： &
12、 strdata & vbCrLf /发送过来的信息，换行显示End Sub图3 编辑服务端主窗口客户端：Option Explicit /强制声明变量Private Sub Command1_Click()If tcp.State = 7 And Text2.Text Then /winsock=7表示已连接 tcp.SendData Text2.Text /发送数据 Text1.Text = Text1.Text & 本机： & Text2.Text & vbCrLf /显示自己发送的信息，换行显示 Text2.Text = /文本清空 Text2.SetFocus /设置焦点End If End SubPrivate Sub Command2_Click()Dim Form2 As New Form2 /定义数据传输窗口Form2.Show /显示数据传输窗口End SubPrivate Sub tcp_DataArrival(ByVal bytesTotal As Lo
