长沙方块编程(加工中心铣方块编程)

2023-11-08 15:37:29 数码极客 bianji01

 

求一份用C语言编写的俄罗斯方块的源代码!

俄罗斯方块C源代码

#include

#include

#include

#include

#defineZL4//坐标增量,不使游戏窗口靠边

#defineWID36//游戏窗口的宽度

#defineHEI20//游戏窗口的高度

inti,j,Ta,Tb,Tc;//Ta,Tb,Tc用于记住和转换方块变量的值

inta[60][60]={0};//标记游戏屏幕各坐标点:0,1,2分别为空、方块、边框

intb[4];//标记4个"口"方块:1有,0无,类似开关

intx,y,level,score,speed;//方块中心位置的x,y坐标,游戏等级、得分和游戏速度

intflag,next;//当前要操作的方块类型序号,下一个方块类型序号

voidgtxy(intm,intn);//以下声明要用到的自编函数

voidgflag();//获得下一方块序号

voidcsh();//初始化界面

voidstart();//开始部分

voidprfk();//打印方块

voidclfk();//清除方块

voidmkfk();//制作方块

voidkeyD();//按键操作

intifmov();//判断方块能否移动或变体

voidclHA();//清除满行的方块

voidclNEXT();//清除边框外的NEXT方块

intmain()

{csh();

while(1)

start();

//开始部分

while(1)

prfk();

Sleep(speed);

clfk();

Tb=x;Tc=flag;//临存当前x坐标和序号,以备撤销操作

keyD();

//方块向下移动

if(ifmov()==0){y--;prfk();dlHA();break;}

//不可动放下,删行,跨出循环

for(i=y-2;i

//方块触到框顶

if(j==0){system("cls");gtxy(10,10);printf("游戏结束!");getch();break;}

clNEXT();

//清除框外的NEXT方块

return0;

voidgtxy(intm,intn)//控制光标移动

{COORDpos;//定义变量

pos.X=m;//横坐标

pos.Y=n;//纵坐标

SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),pos);

voidcsh()

//初始化界面

gtxy(ZL+WID/2-5,ZL-2);printf("俄罗斯方块");//打印游戏名称

gtxy(ZL+WID+3,ZL+7);printf("*******NEXT:");//打印菜单信息

gtxy(ZL+WID+3,ZL+13);printf("**********");

gtxy(ZL+WID+3,ZL+15);printf("Esc:退出游戏");

gtxy(ZL+WID+3,ZL+17);printf("↑键:变体");

gtxy(ZL+WID+3,ZL+19);printf("空格:暂停游戏");

gtxy(ZL,ZL);printf("╔");gtxy(ZL+WID-2,ZL);printf("╗");//打印框角

gtxy(ZL,ZL+HEI);printf("╚");gtxy(ZL+WID-2,ZL+HEI);printf("╝");

a[ZL][ZL+HEI]=2;a[ZL+WID-2][ZL+HEI]=2;//记住有图案

for(i=2;i

for(i=2;i

for(i=1;i

for(i=1;i

CONSOLE_CURSOR_INFOcursor_info={1,0};//以下是隐藏光标的设置

SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE),&cursor_info);

level=1;score=0;speed=400;

gflag();flag=next;//获得一个当前方块序号

voidgflag()

//获得下一个方块的序号

srand((unsigned)time(NULL));next=rand()%19+1;

voidstart()

//开始部分

gflag();Ta=flag;flag=next;//保存当前方块序号,将下一方块序号临时操作

x=ZL+WID+6;y=ZL+10;prfk();//给x,y赋值,在框外打印出下一方块

flag=Ta;x=ZL+WID/2;y=ZL-1;//取回当前方块序号,并给x,y赋值

voidprfk()

//打印俄罗斯方块

for(i=0;i<4;i++){b[i]=1;}//数组b[4]每个元素的值都为1

mkfk();//制作俄罗斯方块

for(i=x-2;i<=x+4;i+=2)//打印方块

{for(j=y-2;j<=y+1;j++){if(a[i][j]==1&&j>ZL){gtxy(i,j);printf("□");}}}

gtxy(ZL+WID+3,ZL+1);printf("level:%d",level);//以下打印菜单信息

gtxy(ZL+WID+3,ZL+3);printf("score:%d",score);

gtxy(ZL+WID+3,ZL+5);printf("speed:%d",speed);

voidclfk()

//清除俄罗斯方块

for(i=0;i<4;i++){b[i]=0;}//数组b[4]每个元素的值都为0

mkfk();//制作俄罗斯方块

for(i=x-2;i<=x+4;i+=2)//清除方块

{for(j=y-2;j<=y+1;j++){if(a[i][j]==0&&j>ZL){gtxy(i,j);printf("");}}}

voidmkfk()

//制作俄罗斯方块

a[x][y]=b[0];//方块中心位置状态:1-有,0-无

switch(flag)//共6大类,19种小类型

{case1:{a[x][y-1]=b[1];a[x+2][y-1]=b[2];a[x+2][y]=b[3];break;}//田字方块

case2:{a[x-2][y]=b[1];a[x+2][y]=b[2];a[x+4][y]=b[3];break;}//直线方块:----

case3:{a[x][y-1]=b[1];a[x][y-2]=b[2];a[x][y+1]=b[3];break;}//直线方块:|

case4:{a[x-2][y]=b[1];a[x+2][y]=b[2];a[x][y+1]=b[3];break;}//T字方块

case5:{a[x][y-1]=b[1];a[x][y+1]=b[2];a[x-2][y]=b[3];break;}//T字顺时针转90度

case6:{a[x][y-1]=b[1];a[x-2][y]=b[2];a[x+2][y]=b[3];break;}//T字顺转180度

case7:{a[x][y-1]=b[1];a[x][y+1]=b[2];a[x+2][y]=b[3];break;}//T字顺转270度

case8:{a[x][y+1]=b[1];a[x-2][y]=b[2];a[x+2][y+1]=b[3];break;}//Z字方块

case9:{a[x][y-1]=b[1];a[x-2][y]=b[2];a[x-2][y+1]=b[3];break;}//Z字顺转90度

case10:{a[x][y-1]=b[1];a[x-2][y-1]=b[2];a[x+2][y]=b[3];break;}//Z字顺转180度

case11:{a[x][y+1]=b[1];a[x+2][y-1]=b[2];a[x+2][y]=b[3];break;}//Z字顺转270度

case12:{a[x][y-1]=b[1];a[x][y+1]=b[2];a[x-2][y-1]=b[3];break;}//7字方块

case13:{a[x-2][y]=b[1];a[x+2][y-1]=b[2];a[x+2][y]=b[3];break;}//7字顺转90度

case14:{a[x][y-1]=b[1];a[x][y+1]=b[2];a[x+2][y+1]=b[3];break;}//7字顺转180度

case15:{a[x-2][y]=b[1];a[x-2][y+1]=b[2];a[x+2][y]=b[3];break;}//7字顺转270度

case16:{a[x][y+1]=b[1];a[x][y-1]=b[2];a[x+2][y-1]=b[3];break;}//倒7字方块

case17:{a[x-2][y]=b[1];a[x+2][y+1]=b[2];a[x+2][y]=b[3];break;}//倒7字顺转90度

case18:{a[x][y-1]=b[1];a[x][y+1]=b[2];a[x-2][y+1]=b[3];break;}//倒7字顺转180度

case19:{a[x-2][y]=b[1];a[x-2][y-1]=b[2];a[x+2][y]=b[3];break;}//倒7字顺转270度

voidkeyD()

//按键操作

if(kbhit())

{intkey;

key=getch();

if(key==224)

{key=getch();

if(key==75){x-=2;}//按下左方向键,中心横坐标减2

if(key==77){x+=2;}//按下右方向键,中心横坐标加2

if(key==72)//按下向上方向键,方块变体

{if(flag>=2&&flag<=3){flag++;flag%=2;flag+=2;}

if(flag>=4&&flag<=7){flag++;flag%=4;flag+=4;}

if(flag>=8&&flag<=11){flag++;flag%=4;flag+=8;}

if(flag>=12&&flag<=15){flag++;flag%=4;flag+=12;}

if(flag>=16&&flag<=19){flag++;flag%=4;flag+=16;}}

if(key==32)//按空格键,暂停

{prfk();while(1){if(getch()==32){clfk();break;}}}//再按空格键,继续游戏

if(ifmov()==0){x=Tb;flag=Tc;}//如果不可动,撤销上面操作

else{prfk();Sleep(speed);clfk();Tb=x;Tc=flag;}//如果可动,执行操作

intifmov()

//判断能否移动

if(a[x][y]!=0){return0;}//方块中心处有图案返回0,不可移动

else{if((flag==1&&(a[x][y-1]==0&&a[x+2][y-1]==0&&a[x+2][y]==0))||

(flag==2&&(a[x-2][y]==0&&a[x+2][y]==0&&a[x+4][y]==0))||

(flag==3&&(a[x][y-1]==0&&a[x][y-2]==0&&a[x][y+1]==0))||

(flag==4&&(a[x-2][y]==0&&a[x+2][y]==0&&a[x][y+1]==0))||

(flag==5&&(a[x][y-1]==0&&a[x][y+1]==0&&a[x-2][y]==0))||

(flag==6&&(a[x][y-1]==0&&a[x-2][y]==0&&a[x+2][y]==0))||

(flag==7&&(a[x][y-1]==0&&a[x][y+1]==0&&a[x+2][y]==0))||

(flag==8&&(a[x][y+1]==0&&a[x-2][y]==0&&a[x+2][y+1]==0))||

(flag==9&&(a[x][y-1]==0&&a[x-2][y]==0&&a[x-2][y+1]==0))||

(flag==10&&(a[x][y-1]==0&&a[x-2][y-1]==0&&a[x+2][y]==0))||

(flag==11&&(a[x][y+1]==0&&a[x+2][y-1]==0&&a[x+2][y]==0))||

(flag==12&&(a[x][y-1]==0&&a[x][y+1]==0&&a[x-2][y-1]==0))||

(flag==13&&(a[x-2][y]==0&&a[x+2][y-1]==0&&a[x+2][y]==0))||

(flag==14&&(a[x][y-1]==0&&a[x][y+1]==0&&a[x+2][y+1]==0))||

(flag==15&&(a[x-2][y]==0&&a[x-2][y+1]==0&&a[x+2][y]==0))||

(flag==16&&(a[x][y+1]==0&&a[x][y-1]==0&&a[x+2][y-1]==0))||

(flag==17&&(a[x-2][y]==0&&a[x+2][y+1]==0&&a[x+2][y]==0))||

(flag==18&&(a[x][y-1]==0&&a[x][y+1]==0&&a[x-2][y+1]==0))||

(flag==19&&(a[x-2][y]==0&&a[x-2][y-1]==0

&&a[x+2][y]==0))){return1;}

return0;//其它情况返回0

voidclNEXT()

//清除框外的NEXT方块

flag=next;x=ZL+WID+6;y=ZL+10;clfk();

voidclHA()

//清除满行的方块

intk,Hang=0;//k是某行方块个数,Hang是删除的方块行数

for(j=ZL+HEI-1;j>=ZL+1;j--)//当某行有WID/2-2个方块时,则为满行

{k=0;for(i=ZL+2;i

{if(a[i][j]==1)//竖坐标从下往上,横坐标由左至右依次判断是否满行

{k++;//下面将操作删除行

if(k==WID/2-2)

for(k=ZL+2;k

{a[k][j]=0;gtxy(k,j);printf("");Sleep(1);}

for(k=j-1;k>ZL;k--)

{for(i=ZL+2;i

{if(a[i][k]==1){a[i][k]=0;gtxy(i,k);printf("");a[i][k+1]=1;

gtxy(i,k+1);printf("□");}}

j++;//方块下移后,重新判断删除行是否满行

Hang++;//记录删除方块的行数

score+=100*Hang;//每删除一行,得100分

if(Hang>0&&(score%500==0||score/500>level-1))//得分满500速度加快升一级

{speed-=20;level++;if(speed<200)speed+=20;}

数控编程G代码编程:一个长方块,厚2mm,钻4个孔,直径40,上下偏差均是0.025,要求用子程序编,重谢!

比如说四个孔的座标为x40y0\x0y40\x-40y0\x0y-40

调用子程序的方法也可以,如果用慢的方法可以先钻,再铣,再镗。如果要快点的话直接铣再镗也行!

G40G80G49G69

G54G90G17G0X40Y0

G43H1Z50M8

M3S1000

WHILE(#1LE360)DO1

G68X0Y0R#1

G0G90Z10

M98P0002

#1=#1+90

G0G91G28Z0Y0

(T1直径10铣刀/T2直径40镗刀)

P0002

G1Z-0.3F80

G41G1D1X60

G3I-20Z-1.3

I-20Z-2.6

G40G1X40Y0

G0G90Z150

G54G90G170GX40Y0T1

G43H2Z30

M3S800

G99G81Z-4R5F60

X0Y40

X-40Y0

X0Y-40

G0G90G80Z200

G0G91G28Z0

程序中进给转速可能给的不太合理,其它的应该没问题.镗刀先试镗好,铣刀最好是四刃的)

本回答由提问者推荐

声明:易趣百科所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系315127732@qq.com
广告位招租
横幅广告