2022年打砖块程序 3.pdf
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《2022年打砖块程序 3.pdf》由会员分享,可在线阅读,更多相关《2022年打砖块程序 3.pdf(9页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、打砖块程序作者:贾胜华更新时间: 2005-05-12 刚编的一个打砖块程序,有雏形了!这里公布原代码,希望大家一起改进。请编译前在主目录下建立一个文本文件(xia.txt)内容为: 0 0 0 0 0 哈哈#include #include #include #include union REGS regs; unsigned int zhuan5; int Msinit(); void Setmouse(int left,int right,int top,int buttom); int Msread(int *xp,int *yp,int *bup); void Draw(int x,
2、int y,int sizex,int sizey); main() int mode=VGAHI,driver=VGA; unsigned int l; int i,gi,gj,j,flag=1;/*i,j是循环变量 ,flag是标记变量 ,-1: 向 x 负半轴移动 ,+1: 向 x 正半轴名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页,共 9 页 - - - - - - - - - double qx,qy,k,b=0.0,speech=0.4,x,y; double
3、r=2.0,bx=60.0,byy=270.0; double pianx=100.0,piany=100.0,tx=20.0,ty=10.0,jx=2.0,jy=2.0; int mx=0,my=0,mb,sum;/*sum纪录砖块的数目 */ FILE * p; if(p = fopen(xia.txt, r) = NULL) printf(The file cannot open!n); exit(1); initgraph(&driver,&mode,tcBGI); Msinit(); Setmouse(int)(pianx+1+bx/2),(int)(tx+jx)*8+pianx-1
4、-bx/2),(int)byy+piany,(int)byy+pstar:cleardevice();/*程序重载的介入点 */ sum=0; qx=100.0+pianx-10;qy=180.0+pianx-10;k=0.33; setcolor(7); rectangle(int)(pianx-2),(int)(piany-2),(int)(tx+jx)*8+2+pianx),302+piany); setcolor(1); rectangle(int)(pianx-1),(int)(piany-1),(int)(tx+jx)*8+1+pianx),301+piany); /* 读取盘面情
5、况 */ for(i=0;i5;i+) fscanf(p,%x ,&zhuani); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页,共 9 页 - - - - - - - - - /*画砖块 */ for(i=0;i5;i+) l=1; for(j=0;j16;j+) if(zhuani&l)=0) Draw(int)(jx+tx)*(16*i+j)%8)+pianx+jx),(int)(jy+ty)*(int)(16*i+j)/8)+piany(int)tx,(int)t
6、y); sum+=1; l=l*2; for(;) setfillstyle(1, 0); bar(mx-bx/2,my,mx+bx/2,my+5); Msread(&mx, &my, &mb); Draw(mx-bx/2,my,bx,5); setcolor(0); circle(qx,qy,r); /*判断求是否反弹 */ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页,共 9 页 - - - - - - - - - if(qx-r=(tx+jx)*8+pianx-1)
7、flag=-flag;k=-k; if(qy-r=piany+1) k=-k; for(gi=0;gi5;gi+) l=1; for(gj=0;gj=y-ty/2 & qy=y+ty/2 &(pow(qx+r-x+tx/2,2)1 | pow(qx-r-x-tx/2,2)=x-tx/2 & qx=x+tx/2 &(pow(qy+r-y+ty/2,2)1 | pow(qy-r-y-ty/2,2)1) k=-k; zhuangi=zhuangi|l; sum-=1; if(sum=0) printf(Win!n);getch();goto star; setfillstyle(1, 0); bar
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022年打砖块程序 2022 砖块 程序
![提示](https://www.taowenge.com/images/bang_tan.gif)
限制150内