- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
使用VB设计聊天室 多点对多点网络程序设计
课 程 设 计 任 务 书
9.多点对多点网络程序设计,根据网络数据传输原理设计聊天室软件,具体要求:
1) 学习计算机网络连接原理;
2) 学习网络数据传输的基本原理;
3) 学习网络连接的底层协议;
4) 设计聊天室软件;
5) 面向用户的操作界面;
6) 具有文件共享功能。
目录
一、设计目的 1
二、设计任务与要求 1
三、开发软件介绍 1
四、设计内容 4
1、设计框架 4
2、设计程序 5
3、运行结果 12
五、设计总结 15
六、设计心得 16
七、参考文献 16
一、设计目的
通过本课程设计的学习,学生将复习所学的专业知识,使课堂学习的理论知识应用于实践,通过本课程设计的实践使学生具有一定的实践操作能力,为学生完成毕业设计任务打下基础。
二、设计任务与要求
多点对多点网络程序设计,根据网络数据传输原理设计聊天室软件,具体要求:
1) 学习计算机网络连接原理;
2) 学习网络数据传输的基本原理;
3) 学习网络连接的底层协议;
4) 设计聊天室软件;
5) 面向用户的操作界面;
6) 具有文件共享功能。
三、开发软件介绍
微软公司的Visual Basic 6.0是Windows应用程序开发工具,使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程人员的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效率和可靠性。故而,实现本系统VB是一个相对较好的选择。
在 Visual Basic 中,可通过属性、方法和事件来说明和衡量一个对象的特征事件(Event)
事件是指发生在某一对象上的事情。事件又可分为鼠标事件和键盘事件。例如,在命令按钮(Command Button)这一对象上可能发生鼠标单击(Click)、鼠标移动(Mouse Move)、鼠标按下(Mouse Down)等鼠标事件,也可能发生键盘按下(Key Down)等键盘事件。总之,事件指明了对象“什么情况下做?”,常用于定义对象发生某种反映的时机和条件。方法(Method)
方法是用来控制对象的功能及操作的内部程序。例如,人具有说话、行走、学习、睡觉等功能,在visual Basic中,对象所能提供的这些功能和操作,就称作“方法”。以窗体为例,它具有显示(show)或隐藏(hide)的方法。总之,方法指明了对象“能做什么?”,常用于定义对象的功能和操作。属性(Property)
属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。可以通过属性改变对象的特性。
有些属性可以在设计时通过属性窗口来设置,不用编写任何代码;而有些属性则必须通过编写代码,在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性,只能读取的属性成为只读属性。总之属性指明了对象“是什么样的?”,常用于定义对象的外观。
如同上面的内容所描述的,不论您使用UDP协议或是TCP协议,Winsock控件都可以允许与远程的设备连接,并且在相互之间交换数据。因此,依据上面的面熟而言,不论您使用的是哪一种协议都可以扮演主机端和客户端的角色。
同时,当您在使用Winsock控件的过程中,这个控件不会显示在正在执行的窗体之中。换句话说,Winsock控件是在后台运行的一种控件。在执行过程之中,不会具有任何选用、可见的控件。那么该如何使用Winsock控件呢?它可以被应用在那些类型的应用程序之中呢?以下所列出的内容,是这个控件可以应用的大致范围:
将客户端所收集的数据,传送给主机端。
聊天和文件传输室应用程序。
电子公告栏。
voip(voice over TCP/ip)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 Sub
Private Sub Command2_Click()
Dim For
文档评论(0)