Turbo Pascal图形编程教程.docVIP

Turbo Pascal图形编程教程 　　Pascal是一款有很强图形功能的开发工具，它可以编制各种图形窗口,并且听说还支持鼠标.但是时过境迁，在vb,vc一统天下的今天，关于Pascal图形操作的书已经像古董一样难于寻找了，我现在将Tp 7.0的Help文件中的一些有关图形操作的过程与函数整理了一下，并自己写了一些例子,加入了一些自己的看法,便得到了这篇教程.其中如有错误，望各位不吝赐教。阅读之前希望大家做好准备，比如：找一些食品放在跟前，因为你可能因为钻研一个函数而耗费大量的时间，还有你可能因为初始化无法完成而大动肝火。 ? 第一章 使用Pascal进行图形操作前的准备 　　在 Turbo Pascal 中有一个 CRT 单元及一个 GRAPH 单元，简单的说 crt 单元是为了实现字符的显示与处理，另外的那个称为 GRAPH 单元是专门用来处理图形的。我们看到的有关图形的程序往往都要用到。所以若是要在 Turbo Pascal 中实现图形操作，就必须要调用 CRT 单元及 GRAPH 单元。那么怎么样来调用 CRT 及 GRAPH 单元呢？现在线来介绍一下单元调用语句： USES USES的语法： USES 单元表识符，……，单元表识符； 说明： 扩展名为*.TPW是Windows下的单元文件，*.TPU是DOS下的单元文件。 位置：变量说明var之前。 讲到这里，我还是要顺便提一下什么是单元？是这样的：我们在编程序的时候，要用到 procedure 或者 function ，中文名称一个是过程另一个是函数。做不同的程序时，往往要用到一些相同的过程或者相同的函数。如果统统放到程序中，程序会硕大无比，比例与调试与编译，并且在过去“惜ｋｂ如金”的年代里，这样的程序也很浪费。于是，简单的讲，人们把它们做成“包”－－我们称之为单元。一来，免去很多重复的痛苦，大家共享代码也很简单，另外，很多不愿意让别人看到源程序的人也很乐于如此－－－－这只是我的杜撰。生产 pascal 语言的公司也提供一些做好的单元，放在安装盘上方便实用。 crt ，graph 即使如此，还有 dos ，system 等等。 ? 第二章 Pascal图形模式的初始化及退出 初始化 Pascal的图形操作在使用之前必须先进行初始化。如果说你编写图形程序中出现问题，十有八九是卡在这里了。 这也是非常令我头疼的问题。 用过程 initgraph(GraphDriver,GraphMode,PathToDriver) 其中 GraphDriver , GraphMode 为整形变量, PathToDriver为字符串变量, GraphDriver为图形驱动器,GraphMode为图形模式 , PathToDriver指定的路径名中建筑图形驱动程序(以.BGI为后缀)。initgraph使 用方法见下例: program t001 (input,output); uses crt,graph; var gd:gm:integer; {定义GraphDriver,GraphMode变量} begin gd:=detect; initgraph(gd,gm,); {调用initgraph过程,PathToDriver缺省则表示在当前目录中寻找《－－－－－－－这个很重要，一般也可以写成　initgraph(gd,gm,c:\tp\bgi); 当然如果你是如此安装的话。} bar(100,100,200,200); {画一个以(100,100),(200,200)为顶点的矩形，这是一个标准过程，你在后面还会看到一个名为bar3d的东东，那个是画立体矩形的} delay(1000); {将此图形保留一秒，10000就是10秒，依此类推} end. 退出 Closegraph过程 功能:退出图形模式. 在图形模式下如果使用 write 等等文本输出可能会出问题－－－比如无法看到等等。好像还可能引起显示上的问题，反正养成一个好习惯也没什么不好的。这里有一个技巧，当你发现无论如何调整都无法显示图形时，你可以调用自带的例子，用来测试，看看是否是程序本身的问题。注意，这里有一个不属于图形的，但是非常容易遇到的问题。前面我们说过，在图形编程使用 graph 单元的时候，我们也常常会使用crt单元，这就有一个问题：crt 单元在主频高的机器上无法正常运行。会出现 200 号错误！！！请下载补丁，在我们的网站上就有。还有一种情况，就是出了问题没有提示!表现是运行程序什么反应也没有。如果你出现这种情况，首先检查程序，如果没有问题，非常有可能使这种情况，也请下载补丁！据报告奔腾180以上的机器具都不同程度存在这种问题！ ? 第三章 基本几何图形的绘