还是画图的问题 — 编程爱好者社区

主题：还是画图的问题

feimao2002 [专家分：90] 发布于 2005-03-02 00:49:00

File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║                                                                              ▲
║{Bar.PAS}                                                                     ■
║                                                                              ▒
║{Sample code for the Bar procedure.}                                          ▒
║                                                                              ▒
║uses                                                                          ▒
║ crt,Graph;                                                                   ▒
║                                                                              ▒
║var                                                                           ▒
║ Gd, Gm, I, Width: Integer;                                                   ▒
║begin                                                                         ▒
║ clrscr;                                                                      ▒
║ Gd := Detect; InitGraph(Gd, gm,' ');                                         ▒
║ if GraphResult <> grOk then Halt(1);                                         ▒
║ Width := 10;                                                                 ▒
║ for I := 1 to 5 do                                                           ▒
║   Bar(I*Width, I*10, Succ(I)*Width, 200);                                    ▒
║ ReadLn;                                                                      ▒
║ CloseGraph;                                                                  ▒
║end.                                                                          ▒
║                                                                              ▼
╚═☼═════ 8:26 ════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘
F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu

上面这个程序没有结果，也不报任何错误，我看不到任何图象，

还有，我用画图语句的时候出现这样的错误BGI Error: Graphics not initialized (use InitGraph)，我不知道是怎么回事，有谁能指点的吗？谢谢了

这几天天天学画图，可是还没有画出一个图象，难过死了

本帖地址： http://bbs.pfan.cn/post/64172.html

回复列表（共3个回复）

沙发

jtchang [专家分：5370] 发布于 2005-03-02 18:51:00

别急嘛，慢慢来！呵呵！我看你也够背的，画个图，先是碰到Crt的bug，接着又出了找不到图形驱动，明明文件就是你盘上。呵呵！
记住了：启动图形模式，“当前目录”下,最好存在以下两个文件：
Egavga.bgi
Graph.tpu

“当前目录”是指：你进入Tp7后，点主菜单：
File - Change dir... 后，所看到的Directory name目录。

比如：我看到的是：
Directory name
F:\TP7\BIN

那么，在F:\TP7\BIN下，必须有这两个文件。

最简单的一种方法：把这两个的文件，复制到当前目录。(你找找，它们在TP的其它子目录下面)
第二种方法：指定路径。
这句：
InitGraph(Gd, m,' ');
改成：InitGraph(Gd, m,'F:\Tp7\BGI');

目录名根据你实际存放Egavga.bgi这个文件的目录名。

第三种：改当前目录，用File - Change dir... 改到Egavga.bgi这个文件的目录下。

我喜欢第一种方法：复制文件到当前目录下。原因：编成exe后可以在其它机上运行，不用改程序。

给你个扑克牌显示程序：
http://jtchang.51.net/data/cards.zip

运行方法：
解压所有文件，到一个新建目录，比如：C:\ABC
进入tp7，用File - Change dir...转当前目录到C:\ABC
打开Card.pas运行。
厉害吧？呵呵！

板凳

feimao2002 [专家分：90] 发布于 2005-03-02 22:58:00

非常，非常感谢你不厌其烦的给我讲解，我终于看到了自己画的第一个图象，非常的激动，你给我看的扑克牌程序我无法下载，以后有问题还要向您请教哦，可不要不理我

3 楼

绿步甲 [专家分：1610] 发布于 2005-12-02 20:21:00

请问:你是怎么是牌动起来的?

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：还是画图的问题

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：还是画图的问题

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）