国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

簡(jiǎn)單飄雪程序

2019-11-17 05:35:42
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

  背景音樂只是隨便寫了寫,具體的可以改數(shù)組里的數(shù)字.有點(diǎn)閃的效果還是不太好看.
#include<stdlib.h>
#include<graphics.h>
strUCt Snow/*雪的一些參數(shù)*/
{
 int x;
 int y;
 int speed;
}snow[100];
int snownum=0;/*雪的個(gè)數(shù)*/
int size;/*保存區(qū)域的大小*/
int change=10;/*變顏色有關(guān)*/
void *save1,*save2;/*保存空間*/
void Copy();/*保存區(qū)域*/
void DrawSnow();/*具體實(shí)現(xiàn)*/
void PR();/*輸出字體以及發(fā)聲音*/
void main(void)
{int gd=DETECT,gm;
 initgraph(&gd,&gm,"c://tc");
 Copy();
 DrawSnow();
 getch();
 closegraph();
}
void Copy()
{
 setcolor(0);
 setfillstyle(SOLID_FILL,15);
  fillellipse(200,200,4,4);
 size=imagesize(196,196,204,204);
 save1=malloc(size);
 save2=malloc(size);
 getimage(196,196,204,204,save1);
 getimage(96,96,104,104,save2);
}
void Pr()
{
 int s[15]={0,100,150,200,150,200,250,150,250,300,250,150,100,250,350};/*這里可以自己編調(diào)子*/
 setcolor(change/10);
 settextstyle(0,0,4);
 outtextxy(100,200,"Merry Christmas");
 sound(s[change/10]);
}
 void DrawSnow()
{int i;
 int sx[62];
 randomize();
 for(i=0;i<62;i++)
  sx[i]=(i+2)*10;
 cleardevice();
 while(!kbhit())
 {
  Pr();
  if(snownum!=100)
  {
   snow[snownum].speed=2+random(5);
   i=random(62);
   snow[snownum].x=sx[i];
   snow[snownum].y=10-random(100);
  }
  for(i=0;i<snownum;i++)/*去雪*/
   putimage(snow[i].x,snow[i].y,save2,COPY_PUT);
   Pr();
  if(snownum!=100)
   snownum++;
  /*delay(300);*/
  setfillstyle(SOLID_FILL,15);/*畫雪*/
  for(i=0;i<snownum;i++)
   {
    snow[i].y+=snow[i].speed;
    putimage(snow[i].x,snow[i].y,save1,COPY_PUT);
    if(snow[i].y>500)
    snow[i].y=10-random(200);
   }
  change++;
  if(change==140)/*和顏色的變化有關(guān)*/
  change=10;
  }
  nosound();
}

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 济源市| 抚宁县| 沿河| 西和县| 张北县| 牙克石市| 莎车县| 罗源县| 宜兴市| 邓州市| 宣威市| 德钦县| 香格里拉县| 赣榆县| 陆良县| 敦化市| 故城县| 临武县| 南雄市| 兴隆县| 青岛市| 怀安县| 即墨市| 裕民县| 清河县| 文登市| 贞丰县| 英吉沙县| 滨海县| 石柱| 焉耆| 比如县| 车致| 屯门区| 湛江市| 鞍山市| 那坡县| 金堂县| 林口县| 鱼台县| 西平县|