《面向对象程序设计实验》指导书(2)

Line控件是绘图控件，它为用户提供一个线型外观，通过设置它的端点坐标值（x1,y2）(x2,y2)来设置它的位置，VB没有提供它的长度参数，不过它的长度可以通过空间两点距离公式求得： 长度＝(x1 x2)2 (y1 y2)2

用户可以设置它的显示颜色以及粗细等信息，其他属性见教材。

Shape控件是绘图控件，它为用户提供一个二维图形外观，可自由设置显示矩形、圆、椭圆等多种显示模型。用户用户可以设置它的显示颜色以及粗细等信息，其他属性见教材。 示例代码见实验课附件

四、实验步骤

1 创建一个工程，名称自拟

2 添加一个窗体，名称自拟

3 在窗体上放置一个Timer控件，一个Shape控件（表盘），三个Line控件（指针）控件名称自拟。

《面向对象程序设计实验》指导书

4 设置Timer的中断属性为1000，设置Shape控件Shape属性为3即circle。BroderWidth属性为5，调整三个Line控件，其中秒针最细长，分针次之，时针粗短，通过设置BroderWidth可调整指针的粗细，通过调整Brodercolor配置指针的颜色，配色方案自拟。

5 在Form_Load事件中填写初始化代码

6 在Timer控件的Timer事件中填写定时修改指针位置的代码。

7选定菜单->文件->保存工程选项，保存工程后，按F5调试程序。

8 打包，发布，异地安装并运行该程序。

9 代码部分自主编写，可参考实验课示例代码。其他可扩展部分自拟，功能应丰富，不拘泥于教师课堂讲授的内容。

五、实验中应注意的问题与思考题：

1 放置Line控件时其初始位置对运行结果有影响吗，如果有如何避免这种影响？

2 如果Timer控件的Interval属性设置过小或过大，会影响显示效果吗，为什么？

3 如果在程序执行过程中，用户修改系统时间，那么显示效果会发生变化吗？如何实现保证显示效果与系统时钟的实时性？

4 π的值定为3.1416。如果取3.14会带来什么样的影响？

5 由于时间偏移持续累加，如果程序长时间运行，会使保存时钟偏移的变量溢出，应该怎样解决这个问题？

六、实验报告内容：

1 实验原理与要求

2 实验步骤截图

3 程序源代码

4 实验结果截图

5 实验中遇到的问题及解决方案。

6 回答思考题。

《面向对象程序设计实验》指导书

实验三 网络通信实验

一 实验目的：

了解并掌握网络通信的基本原理与方法，了解TCP／UDP协议的通信原理与区别，掌握利用TCP／UDP协议的技术特征与编程方法。了解并掌握Winsock控件的使用方法，掌握高层用户通信协议的设计方法。培养编写网络通信程序的实践能力。

二 实验内容：

利用TCP／UDP协议结合Winsock 控件开发点对点、C/S模式通信程序。

三 实验原理：

网络编程基础：

关于TCP和UDP

TCP：传输控制协议，面向连接的网络传输模式，在传输数据前，发送端和接受端必须事先建立连接，然后再进行数据传输。

UDP：用户数据报协议，面向无连接的网络传输模式，发送端发送数据前不必和接受端建立连接，只需直接发送数据即可。

特点：TCP发送数据代价高，需要事先建立连接，但数据传输稳定，可靠。在网络设施不可靠的情况下传输品质好。

UDP：发送成本低，不需要建立连接，数据传输不稳定，不可靠。但在网络设施可靠的情况下，性价比比TCP协议高。

微软为Visual 系列用户提供了使用网络编程功能

Microsoft Visual Basic提供了用于Windows Sockets编程的可用控件——Winsock控件。该控件为用户提供了访问TCP和UDP网络的极其方便的途径。并且适用于Microsoft Access、Visual Basic、Visual C＋＋和Visual FoxPro等多种可视化环境。通过Winsock控件编制C/S程序，程

《面向对象程序设计实验》指导书

序员无须了解TCP或低级Winsock API调用实现的细节，如用户无须考虑网络字节顺序与本机字接顺序便可直接进行数据的传送。用该控件实现网间进程通信极其方便。

Winsock 控件的基本属性

Index LocalPort Remotehost

RemotePort Protocol

Index ：控件数组的下标值。

LocalPort： 设置本地通信的端口。1000以上即可。

Remotehost：设置远程主机名。可以是计算机名，也可

以是IP地址。

RemotePort：设置远程主机的通信端口。

Protocol： 选择协议，TCP／UDP。

.事件：Error 错误 DataArrival 数据到达

ConnectionRequest连接请求 Connect 连接

.方法：

Bind ［本地端口］，［本地IP地址］绑定本地端口。

Accept ［申请号］接受申请号。

Listen 监听网络信号。

Close 关闭网络连接和控件功能。

SendData ［String］发送数据（字符串）。

Connect ［远程主机］，［远程主机端口］ 连接。

使用TCP协议编程

TCP协议即数据传输协议，它允许创建和维护与远程计算机的连接，使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。

在TCP应用中，为了建立一个网络连接实例的服务器端，只需设置本地服务端口号，然后服

《面向对象程序设计实验》指导书

务器调用方法Listen进入阻塞状态，等待来自客户的连接请求。与此对应的客户端不但要将Winsock的属性RemoteHost置为服务器的名称（IP地址或网络代号），还应设置服务器所监听的相应服务的端口号（RemotePort），如FTP服务在21号端口，HTTP在81号端口等。 然后调用方法Winsock.Connect向服务器发出请求。服务器接收到客户请求时，事件

ConnectionRequest将被触发。如服务器愿意提供服务，则可调用Accept方法接受连接。一旦连接建立，两端均可使用SendData或GetData进行数据的发送或接收。事件DataArrival将在另一端数据准备就绪时被触发。

简单的过程如下： S为服务器，C为客户端。

S绑定本地端口，S监听端口，C设置服务器的主机名

或IP地址和远程端口，进行连接，S收到后接受请求，

建立连接，两端进行通信。

利用UDP协议编程方法

UDP协议也称为用户数据报文协议，是一个无连接协议。何谓无连接协议？就是说利用此协议连接时，不必象TCP协议那样：需要服务器端侦听，客户机端请求连接，服务器端建立连接后双方才能通信。另外，UDP应用程序可以是客户机，也可以是服务器程序，而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。

UDP协议通信的过程：UDP协议中，为了在甲乙两机中传输数据，必须先分别设置两机的LocalPort属性；再将甲机的RemoteHost属性设置为乙机的IP地址，RemotePort属性设置为乙机的LocalPort属性值，此时甲机调用SendData方法就可以传送数据了，乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据，只需仿照上面的过程设置即可。

用UDP协议来传输信息较TCP协议来说简单的多，它无须侦听（LISTEN），也无须请求连接（CONNECT），就象我们平时发信一样，只要写好地址及收信人姓名并发送出去即可。 简单的过程如下：

《面向对象程序设计实验》指导书

A、B分别绑定本地端口（LocalPort）

A、B分别设置对方的主机名或IP地址为远程主机名（RemoteHost）

A、B分别设置对方的本地端口号为远程端 …… 此处隐藏：2996字，全部文档内容请下载后查看。喜欢就下载吧 ……