网站大量收购闲置独家精品文档,联系QQ:2885784924

使用VB设计聊天室 多点对多点网络程序设计.doc

使用VB设计聊天室 多点对多点网络程序设计.doc

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档