实现一对一聊天程序.docVIP

实现一个一对一的聊天程序 一 实习题目 实现一个一对一的聊天程序。其基本过程如下：服务器首先启动，创建套接字后等待客户的连接；客户启动以后，创建套接字，然后和服务器建立连接；连接建立后，客户机和服务器可以通过建立的套接字连接进行通信。服务器和客户端可以是一台电脑上的两个进程，也可以分别部署在两台电脑上。 二 原理概述 本题是一个简单的聊天室程序，采用客户/服务器模式，分为客户端程序和服务器端程序。由于服务器只能支持一个客户，实际上是一个点对点通信的程序。客户端程序和服务器程序通过网络交换聊天字符串内容，并在窗口的列表框中显示。重点是流式套接字对象的使用，处理网络事件的方法。本此课程设计是利用网络聊天程序的基本设计思想，并按照网络通信的协议设计出来的一个基于UDP的网络聊天程序。端口号拼接到IP地址即构成了套接字（socket）））”。这个调用的实际效果是请求操作系统把网络通信所需要的一些资源分配给该应用进程。操作系统为这些资源的总和用一个叫做套接字描述符的号码来表示，然后把这个套接字描述符返回给应用进程。此后，应用进程所进行的网络操作都必须使用这个套接字描述符。 三 设计方案 1 问题分析： 本次计算机网络与通信实习的任务是设计一个一对一的聊天程序。根据课程设计要求程序采用客户/服务器模式，分为客户端程序和服务器端程序。其基本过程如下：服务器首先启动，创建套接字后等待客户的连接；客户启动以后，创建套接字，然后和服务器建立连接；连接建立后，客户机和服务器可以通过建立的套接字连接进行通信。服务器和客户端可以是一台电脑上的两个进程，也可以分别部署在两台电脑上。客户端程序和服务器程序通过网络交换聊天字符串内容，并在窗口的列表框中显示。重点是流式套接字对象的使用，处理网络事件的方法。 2 设计思路： 程序采用VB语言编写，运用UDP面向无连接数据报协议完成实验，程序的核心是运用的空间为VB网络编程中的Winsock控件。数据之前不必建立连接，只需要将Winsock绑定到一个端口上，其他无连接协议的Winsock若想向此处发送数据，需要指明地址和端口。 （1）将 RemoteHost 属性设置为另一台计算机的名称或者IP地址。 （2）将 RemotePort 属性设置为另一台计算机Winsock控件所绑定的 LocalPort 属性。 （3）调用 Bind 方法，指定使用的LocalPort。 3 系统模块结构： 根据程序设计要求，设计出整个网络聊天程序的设计框图。 服务器 客户端 系统总设计流程图 主程序 服务器端主流程图 客户端主流程图 四 程序编写 1 通过建立工程，设计出网络服务器程序，其设计过程及源程序代码如下。 （1）创建一个新的Standard EXE 工程。 （2）将缺省的窗体的名称修改为PeerA。 （3）将窗体的标题修改为“服务器”。 （4）在窗体中放入一个 Winsock 控件，并将其命名为 UDPSever。 （5）在Winsock 控件的“属性”页上，单击“Protocol”属性，并将该属性值修改为 UDPProtocol。 （6）在窗体中添加两个TextBox控件。将第一个命名为 txtSend，第二个命名为 txtOutput。 （7）为窗体增加如下的代码。 UDP聊天服务器程序： Private Sub Combo1_Click() TxtSend.Font.Name = Combo1.Text End Sub Private Sub Check1_Click() 设置隶书字体 If Check1.Value = 1 Then TxtSend.FontName = 隶书 Else TxtSend.FontName = 宋体 End If End Sub Private Sub Check2_Click() 设置下划线字体 If Check2.Value = 1 Then TxtSend.FontUnderline = True Else TxtSend.FontUnderline = False End If End Sub Private Sub Check3_Click() 设置斜体字体 If Check3.Value = 1 Then TxtSend.FontItalic = True Else TxtSend.FontItalic = False End If End Sub Private Sub Check4_Click()