vc6++纯c语言编写俄罗斯方块

1、:/:=2013年7月1日20:15:03开始编写=vc6+重新编写俄罗斯方块=/=2013年7月6日15:04:27完成编写=/=已经测试，没有问题。=/=新建的时候，选择Win32application。直接复制就可以=/:/：#includevwindows.h#includevstdio.h#include/=数据定义=/structCooPoint坐标结构体intx;inty;constCooPointShape44=/7种图形，4个方向，4个方块的相对点位坐标121,1,2,1,2,0,0,0,1,1,1,021,121,1,2,1,2,0,0,0,1,1,1,021,1,1,1,

2、0,2,1,2,0,1,1,1,021,2,0,1,1,1,021,2,0,1,1,1,021,2,0,0,0,1,020,3,0,2,322,2,1,2,0,0,0,1,020,3,0,2,3,2,221,2,0,1,1,1,021,3,1,122,2,2,1,2,0,0,0,1,021,2,0,121,1,1,0,2,0,1,121,2,0,3,1,1,122,2,1,2,0,1,122,2,1,3,1,2,2,2,120,3,1,1,1,1,022,2,1,1,1,2,1,2,0,3,0,1,1,1,022,2,1,1,121,2,0,3,0,0,1,1,121,2,0,1,022,2,

3、1,2,0,1,1,1,020,3,0,121,1,1,0,2,2;structBruColor三色素结构体intRed;intGreen;intBlue;constBruColorRColor10=/10种颜色的三色素值0,0,0,0,255,255,73,213,73,221,37,12,216,232,0,229,106,50,64,0,207,100,200,150,150,20,170,54,21,200;intRec922;/保存所有方格是否存在方块，有为1intColor922;保存所有方格的颜色，没有为0intWhich=0;/哪一个图形intDir=0;/图形的哪一个方向in

4、tWhichColor=1;/图形的颜色intNextWhich=0;/下一个图形intNextDir=0;下一个图形的方向intNextWhichColor=1;下一个图形的颜色intSpeed=650;记录定时时间intScore=0;记录分数intRank=1;/记录等级intIsPause=0;/0为初始，1为正在游戏，2为游戏暂停CooPointPos=3,0;记录4宫格图形左上角的绝对坐标=函数申明=/LRESULTCALLBACKMainProc(HWNDhwnd,UINTuMsg,WPARAMwParam,LPARAMlParam);/消息处理函数voidShow(intx,i

5、nty,intwhich,intdir,intwhichcolor,HWNDhwnd);/显示图形BOOLCouldMove(intx,inty,intdir);判断是否能够移动intSave(intx,inty,intwhich,intdir,intwhichcolor);不能移动时，保存数据，开始下一个图形intSum(inti);计算1+2+.+i的值intWINAPIWinMain(HINSTANCEhInstance,/handletocurrentinstanceHINSTANCEhPrevInstance,/handletopreviousinstanceLPSTRlpCmdLi

6、ne,/pointertocommandlineintnCmdShow/showstateofwindow)WNDCLASSwndclass;wndclass.cbClsExtra=0;wndclass.cbWndExtra=0;wndclass.hbrBackground=(HBRUSH)GetStockObject(2);wndclass.hCursor=LoadCursor(NULL,IDC_APPSTARTING);wndclass.hIcon=LoadIcon(NULL,IDI_APPLICATION);wndclass.hInstance=hInstance;wndclass.lp

7、fnWndProc=MainProc;wndclass.lpszClassName=youxi;类名wndclass.lpszMenuName=NULL;wndclass.style=NULL;/CS_HREDRAW|CS_VREDRAW;RegisterClass(&wndclass);HWNDhwnd;hwnd=CreateWindow(youxi/*类名，必须与前面的类名一样*/,俄罗斯方块，WS_OVERLAPPEDIWS_CAPTIONIWS_SYSMENU/*WS_THICKFRAMEI*/WS_MINIMIZEBOX/*|WS_MAXIMIZEBOX*/,500,150,320,

8、485,NULL,NULL,hInstance,NULL);ShowWindow(hwnd,SW_SHOWNORMAL);UpdateWindow(hwnd);inti,j;for(j=0;j22;j+)for(i=0;i0)这里需要大于0,有可能会为-1，如不大于0,则关闭时进程会留下TranslateMessage(&msg);DispatchMessage(&msg);return0;LRESULTCALLBACKMainProc(HWNDhwnd,/handletowindowUINTuMsg,/messageidentifierWPARAMwParam,/firstmessagepa

9、rameterLPARAMlParam/secondmessageparameter)switch(uMsg)caseWM_PAINT:HDCP_hdc;PAINTSTRUCTps;P_hdc=BeginPaint(hwnd，&ps);HBRUSHhBrush;hBrush=CreateSolidBrush(RGB(0,0,0);HPENhPen;hPen=CreatePen(PS_SOLID,2,RGB(255,0,0);SelectObject(P_hdc,hPen);SelectObject(P_hdc,hBrush);Rectangle(P_hdc,7,5,193,453);Recta

10、ngle(P_hdc,205,25,295,115);DeleteObject(hPen);DeleteObject(hBrush);RECTre;inti,j,whichcolor;HBRUSHhbrush_Show;hPen=CreatePen(PS_SOLID,2,RGB(0,0,0);SelectObject(P_hdc,hPen);for(i=0;iv9;i+)for(j=0;jv22;j+)if(Recij=1)re.left=i*20+10;re.right=re.left+19;re.top=j*20+10;re.bottom=re.top+19;whichcolor=Colo

11、rij;hbrush_Show=CreateSolidBrush(RGB(RColorwhichcolor.Red,RColorwhichcolor.Green,RColorwhichcolor.Blue);SelectObject(P_hdc,hbrush_Show);/FillRect(P_hdc，&re,hBrush);Rectangle(P_hdc,re.left,re.top,re.right,re.bottom);DeleteObject(hBrush);if(IsPause0)hbrush_Show=CreateSolidBrush(RGB(RColorNextWhichColo

12、r.Red,RColorNextWhichColor.Green,RColorNextWhichColor.Blue);SelectObject(P_hdc,hbrush_Show);for(i=0;ihInstance,NULL);CreateWindow(button,重新开始，WS_CHILDIWS_VISIBLEIBS_PUSHBUTTON,215,360,80,20,hwnd,(HMENU)2,(LPCREATESTRUCT)lParam)-hInstance,NULL);CreateWindow(static,分数：0,WS_CHILDIWS_VISIBLE,215,250,80,

13、20,hwnd,(HMENU)3,(LPCREATESTRUCT)lParam)-hInstance,NULL);CreateWindow(static,等级：1,WS_CHILDIWS_VISIBLE,215,280,80,20,hwnd,(HMENU)4,(LPCREATESTRUCT)lParam)-hInstance,NULL);break;caseWM_COMMAND:switch(LONG)wParam)case1:if(IsPause=0)SetWindowText(GetDlgItem(hwnd,l),暂停);SetFocus(hwnd);IsPause=1;SetTimer(

14、hwnd,O,Speed,NULL);Show(Pos.x,Pos.y,Which,Dir,WhichColor,hwnd);NextWhich=(Which+1)%7;NextDir=(Dir+1)%4;NextWhichColor=(WhichColor+1)%9+1;Show(10,1,NextWhich,NextDir,NextWhichColor,hwnd);elseif(IsPause=1)KillTimer(hwnd,O);IsPause=2;SetWindowText(GetDlgItem(hwnd,1),继续)；SetFocus(hwnd);elseif(IsPause=2)

15、IsPause=1;SetTimer(hwnd,O,Speed,NULL);SetWindowText(GetDlgItem(hwnd,1),暂停);SetFocus(hwnd);break;case2:inti_Again,j_Again;RECTre_Again;HBRUSHhbrush_Again;HDChdc_Again;KillTimer(hwnd,0);EnableWindow(GetDlgItem(hwnd,1),TRUE);hdc_Again=GetDC(hwnd);hbrush_Again=CreateSolidBrush(RGB(0,0,0);SelectObject(hdc_Again,hbrush_Again);for(j_Again=0;j_Again22;j_Again+)for(i_Again=0;i_Again=pow(2,Rank-l)*100)Rank+;if(Rank8IIPos_X21IIPos_Y0)returnFALSE;if(RecPos_XPos_Y=1)returnFALSE;returnTRUE;intSave(intx,inty,intwhich,intdir,intwhichcolor)inti,j,k,t;in