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