首页
社区
课程
招聘
这些代码怎么运行就黑屏了,跟书上运行的结果截然不同....
发表于: 2010-7-16 15:09 3455

这些代码怎么运行就黑屏了,跟书上运行的结果截然不同....

2010-7-16 15:09
3455
#include"graphics.h"
void field();
void plane();
main()
{

  int driver=DETECT,mode=0;
  initgraph(&driver,&mode,"c:\\tc");
  cleardevice();
  field();
  plane();
  getch();
  setcolor(YELLOW);
  setbkcolor(BLACK);
  cleardevice();
  closegraph();
}
void field()
{
setcolor(12);
circle(320,400,50);
setfillstyle(SOLID_FILL,LIGHTRED);
floodfill(320,375,12);
setbkcolor(7);
setfillstyle(SOLID_FILL,GREEN);
bar(0,380,639,479);
setcolor(14);
line(0,380,639,380);
line(0,390,639,390);
line(0,410,639,410);
line(0,440,639,440);
line(0,479,639,479);
line(0,400,60,380);
line(0,430,130,380);
line(0,479,200,380);
line(120,479,245,380);
line(210,479,280,380);
line(280,479,310,380);
line(320,479,320,380);
line(360,479,330,380);
line(430,479,360,380);
line(520,479,395,380);
line(639,479,450,380);
line(639,430,520,380);
line(639,400,590,380);
getch();
}
void plane()
{
int i;
for(i=0;i<115;i++)
{
setcolor(15);
line(50+5*i,50,100+5*i,50);
line(80+5*i,40,95+5*i,50);
line(80+5*i,60,95+5*i,50);
line(45+5*i,45,50+5*i,50);
delay(500);
setcolor(getbkcolor());
line(50+5*i,50,100+5*i,50);
line(80+5*i,40,95+5*i,50);
line(80+5*i,60,95+5*i,50);
line(45+5*i,45,50+5*i,50);
}

  }

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (5)
雪    币: 2362
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
能编译运行就是奇迹了
2010-7-17 17:29
0
雪    币: 271
活跃值: (86)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
能把你的开发环境说下吗?
2010-7-17 19:55
0
雪    币: 160
活跃值: (29)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
4
好像DOS下的TC程序  
在 一 个 久 远 的 年 代   人 们 还 住 在 树 上   ...

装个虚机,安装DOS3~DOS6任一版本。安Borland公司的TC。然后编译运行你的代码,书上的效果就一样了。
第一句其实是选定显卡驱动和显卡的模式,其后指定驱动及目录,初始化驱动和设颜色号,清缓冲,设填充风格,填充,画框,画线,等用户敲入任意字符退出。

开始的时候是黄帝大战赤尤,后来。。。记不太清,反正都是传说了。

(对 不 起 是 BORLAND而 不 是 BLAND公 司  改 一 下 改 一 下 别 笑 话 )
2010-7-17 20:39
0
雪    币: 246
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
5
找一个纯dos的环境就好了,如win98、DOS7.1等,XP下的DOS不是纯DOS,是虚拟实模式下的DOS, 对XP可装1KEY Ghost或,虚拟软盘(vfloppy)启动纯DOS. 有些TC程序在高版本DOS也不能正常运行,但一般在DOS6.22下没有问题,在不行就是DOS3.31了,这些版本一般都能下到,
2010-7-17 20:51
0
雪    币: 4
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
没事了,是电脑的问题,我换了机子就能看到图画了.......
2010-7-18 09:20
0
游客
登录 | 注册 方可回帖
返回
//