| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 908 人关注过本帖
标题:记录写过的小效果
只看楼主 加入收藏
if_exist
Rank: 2
等 级:论坛游民
帖 子:86
专家分:41
注 册:2009-4-20
结帖率:100%
收藏
 问题点数:0 回复次数:1 
记录写过的小效果
win-tc下编译通过
效率,或者其他的等等方面,希望各位不吝赐教。


第一楼,彩色方块排成的缎带。
程序代码:
#include "graphics.h"
#define closegr closegraph

void initgr(void)
{
  int gd = DETECT, gm = 0;
  registerbgidriver(EGAVGA_driver);
  initgraph(&gd, &gm, "");
}

int main(void)
{
  void func(int xend,int cut,int sure);
  initgr(); /* BGI初始化 */
  outtext("Please wait...");
  sleep(2);
  while (1)
  {
    func(10,200,1);
    func(9,0,-1);
  }
  getch();
  closegr();
  return 0;
}


void func(int xend,int cut,int sure)
{
  int i,fo,xnow,xnowb;
  for (i=-xend;i<=xend;i++)
  {
    if (kbhit()) exit(1);
    setcolor(i%15+1);
    xnow=cut-sure*(i*i+1);
    rectangle(xnow*3,300,xnow*3+30,350);
    setfillstyle(1,i%15+1);
    floodfill(xnow*3+1,300+1,i%15+1);
    xnowb=i+20;
    rectangle(300,xnowb*15,330,xnowb*15+28);
    floodfill(300+1,xnowb*15+1,i%15+1);
    for (fo=0;fo<=1000;fo++) {delay(5);}
    printf("\n\n");
  }
}




[ 本帖最后由 if_exist 于 2009-10-17 18:42 编辑 ]
搜索更多相关主题的帖子: 效果 记录 
2009-10-17 18:38
幸运之星
Rank: 4
来 自:吉林
等 级:业余侠客
帖 子:275
专家分:239
注 册:2009-6-5
收藏
得分:0 
呵呵 我的电脑看不了啊 汗
2010-02-25 19:26
快速回复:记录写过的小效果
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023857 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved