windows程序设计 扫雷源码(非MFC)

#include<windows.h>
#include<stdlib.h>
#include"resource.h"
int XUNIT = GetSystemMetrics(SM_CXICON);
int YUNIT = GetSystemMetrics(SM_CYICON);
int NUM  = 80;
int CXNUM   =       20;
int CYNUM   =       20;
int Dead = 0 ;
//只能设置成全局变量
static  int minestate[100][100], mineflag[100][100] ;
HDC     hdc, hdcmem3;/*hdcmem1,hdcmem2, hdcmem4;*/
int x,y;
int cxmine , cymine;
static int      cySource3, cxSource3;// cxSource1,cxSource2,cxSource3,cxSource4,
//  cySource1,cySource2,cySource3,cySource4;
int     width = CXNUM*XUNIT;
int     hight = CYNUM*(YUNIT) + +13+GetSystemMetrics(SM_CYBORDER);
LRESULT CALLBACK MineProc (HWND, UINT, WPARAM, LPARAM);
int WINAPI WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
PSTR szCmdLine,
int iCmdShow)
{
static TCHAR szMineName [] = TEXT ("mineswap");
HWND        hwnd;
MSG     msg;

WNDCLASS        wc;
wc.cbClsExtra       =   0;
wc.cbWndExtra       =   0;
wc.hbrBackground        =   (HBRUSH)GetStockObject (GRAY_BRUSH);
wc.hCursor      =   LoadCursor (NULL, IDC_ARROW);
wc.hIcon        =   LoadIcon (hInstance, MAKEINTRESOURCE(10));
wc.hInstance        =   hInstance;
wc.lpfnWndProc      =   MineProc;
wc.lpszClassName        =   szMineName ;
wc.lpszMenuName     =   szMineName;

wc.style        =   CS_HREDRAW | CS_VREDRAW;

//  RegisterClass(&wc);
if (!RegisterClass (&wc))
{
MessageBox (NULL, TEXT ("Program requires Windows NT!"),
szMineName, MB_ICONERROR) ;
return 0  ;
}

hwnd =  CreateWindow(szMineName,
TEXT("MINESWAP"),
WS_OVERLAPPED |
WS_DLGFRAME | WS_SYSMENU  | WS_MINIMIZEBOX,
CW_USEDEFAULT,CW_USEDEFAULT,
width, hight,
//XUNIT*CXNUM,YUNIT*(CYNUM + 1)+13+GetSystemMetrics(SM_CYBORDER),
NULL,NULL,hInstance,NULL);

ShowWindow(hwnd,iCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage (&msg);
DispatchMessage (&msg);
}
return msg.wParam;
}

int IsInMineArea(int row,int col)//查看有没超出范围
{
return (row >= 0 && row < CXNUM && col >= 0 && col < CYNUM);
}
int GetAroundNum(int row, int col)//得到周围个数，
{
int i, j;
int around = 0;
int minRow = ( row == 0 ) ? 0 : row  - 1;
int maxRow = row + 2;
int minCol = ( col == 0 ) ? 0 : col - 1 ;
int maxCol = col + 2;
for (i = minRow; i < maxRow; i++)
{
for (j = minCol; j < maxCol; j++)
{
if (minestate[i][j] == 5) around++;
}
}
return around;
}
void ExpandMines(int row, int col)//扫描，如果是已经被按下且雷数为0，显示它周围的八个格，c参见程序一
{
int i, j;
int minRow = (row == 0) ? 0 : row - 1;
int maxRow = row + 2;
int minCol = (col ==  0) ? 0 : col - 1;
int maxCol = col + 2;
int around = GetAroundNum(row, col);
if (mineflag[row][col] == 1)   //标志是1才赋值
{
minestate[row][col] = 15 - around;
}
//对周围一个雷都没有的空白区域
if (around == 0)
{
for (i = minRow; i < maxRow; i++)
{
for (j = minCol; j < maxCol; j++)
{//对于周围可以拓展的区域进行的规拓展

if ((!(i == row && j == col) )&& (minestate[i][j] == 0) && mineflag[x][y] == 1)
{
if (!IsInMineArea (i, j) )continue;
ExpandMines(i, j);

}
}
}
}
}
LRESULT CALLBACK MineProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
PAINTSTRUCT     ps;
HINSTANCE   hInstance;
static HBITMAP  hBm3;   //hBm1,hBm2,hBm3,hBm4;
BITMAP  bitmap3;//  bimap1,bitmap2,bitmap3,bitmap4;
//若设置此函数的全局变量，没个WM_结束后不会值改变，其实是局部变量
//因为该函数其实就是下面的变形
/*
int fun ()
{
int a, b , c;
int num ;
switch()
{

}
return NUM ;
}
*/
int j;
HMENU   hmenu ;
static int Select = ID_FIRST;
switch(message)
{

case    WM_CREATE:
hInstance       =       ((LPCREATESTRUCT)lParam)->hInstance;

//hBm1  =   LoadBitmap (hInstance, MAKEINTRESOURCE(1));
//hBm2  =   LoadBitmap (hInstance, MAKEINTRESOURCE(2));
hBm3    =   LoadBitmap (hInstance, MAKEINTRESOURCE(3));
//hBm4  =   LoadBitmap (hInstance, MAKEINTRESOURCE(4));

//GetObject(hBm1,sizeof(BITMAP),&bitmap1);

//GetObject(hBm2,sizeof(BITMAP),&bitmap2);

GetObject(hBm3,sizeof(BITMAP),&bitmap3);
cxSource3   =   bitmap3.bmWidth;
cySource3   =   bitmap3.bmHeight/16;

for (x = 0 ; x < CXNUM ; x ++)
for (y = 0 ; y < CXNUM ; y ++)
{
minestate[x][y] = 0 ;   //初始化雷区状态
mineflag[x][y] = 1;// 初始化标志
}
//随机布雷
srand((unsigned)GetCurrentTime());
for( j = 1; j <= NUM; )
{
cxmine = abs (rand()%(400));
cymine = abs (rand()%(400));

if ( cxmine < CXNUM && cymine < CYNUM &&  minestate[cxmine][cymine] != 5 )
{
minestate[cxmine][cymine] = 5 ;//属性置雷
j++;
}
else continue ;
}
//GetObject(hBm4,sizeof(BITMAP),&bitmap4);
return  0 ;

case  WM_PAINT:
hdc = BeginPaint (hwnd, &ps) ;
hdcmem3 = CreateCompatibleDC (hdc) ;
SelectObject (hdcmem3, hBm3) ;

//画初始化的雷和重画的雷
for (x = 0 ; x < CXNUM ; x ++)
{
for (y = 0 ; y < CYNUM ; y ++)
{

switch (minestate[x][y])
{
case  0 :
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, (mineflag[x][y] - 1)*cySource3,cxSource3, cySource3, MERGECOPY);
continue ;
case  2 :
case  4 :
case  3 :
case 6 :
case  7 :
case  8 :
case  9 :
case  10 :
case  11:
case  12:
case  13 :
case  14:
case  15:
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, minestate[x][y] * cySource3,cxSource3, cySource3, MERGECOPY);
continue ;

case  5 :
switch(Dead)
{
case 0 :
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, (mineflag[x][y] - 1)*cySource3,cxSource3, cySource3, MERGECOPY);
continue;
case 1 :
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, 5*cySource3,cxSource3, cySource3, MERGECOPY);
continue;
}
}

}
}
DeleteDC (hdcmem3) ;
EndPaint (hwnd, &ps) ;
return 0 ;
case    WM_LBUTTONDOWN:
x = LOWORD(lParam)/XUNIT;
y = HIWORD(lParam)/YUNIT;

//雷属性赋值
if(Dead == 1)break;//结束置dead为一
else
{
hdc = GetDC(hwnd);
hdcmem3 = CreateCompatibleDC (hdc) ;
SelectObject (hdcmem3, hBm3) ;
if(mineflag[x][y] == 1)
{
switch (minestate[x][y] )
{
case 0 :
if(GetAroundNum (x, y) == 0 )
{
ExpandMines(x, y);//周围无雷时扩展无雷区

}
else
{
minestate[x][y] = 15 - GetAroundNum (x, y);
}
break;

case 5: //失败的时候
Dead = 1;
minestate[x][y] = 4 ;
break;
case 1:
case 2:
case 4:
case 3:
case 6:
case 7:
case 8:
case 9:
case 10:
case 11:
case 12:
case 13:
case 14:
case 15:
break ;
}
}
//画雷
for (x = 0 ; x < CXNUM ; x ++)
{
for (y = 0 ; y < CYNUM ; y ++)
{

switch (minestate[x][y])
{
case  0 :
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, (mineflag[x][y] - 1)*cySource3,cxSource3, cySource3, MERGECOPY);
continue ;
case  3 :
case  2 :
case  4 :
case 6 :
case  7 :
case  8 :
case  9 :
case  10 :
case  11:
case  12:
case  13 :
case  14:
case  15:
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, minestate[x][y] * cySource3,cxSource3, cySource3, MERGECOPY);
continue ;

case  5 :
switch(Dead)
{
case 0 :
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, (mineflag[x][y] - 1) * cySource3,cxSource3, cySource3, MERGECOPY);
break ;
case 1:
if(mineflag[x][y]== 1)
StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, 5 * cxSource3,cxSource3, cySource3, MERGECOPY);
else StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, (mineflag[x][y] - 1) * cxSource3,cxSource3, cySource3, MERGECOPY);
break;
return 0;
}
}
}

}
//此处必须这样，放外面会使重画时失效
DeleteDC (hdcmem3) ;
ReleaseDC(hwnd, hdc);

}

return 0;
case    WM_RBUTTONDOWN:
x = LOWORD(lParam)/XUNIT;
y = HIWORD(lParam)/YUNIT;
hdc = GetDC(hwnd);
hdcmem3 = CreateCompatibleDC (hdc) ;
SelectObject (hdcmem3, hBm3) ;

//标志赋值
if((IsInMineArea(x, y) && minestate[x][y] == 0 || minestate[x][y] == 5 )&& Dead == 0)
{
mineflag[x][y] = mineflag[x][y] % 3 + 1;   //实现循环

StretchBlt (hdc, x*XUNIT, y*YUNIT, XUNIT, YUNIT, hdcmem3, 0, (mineflag[x][y] - 1)*cySource3,cxSource3, cySource3, MERGECOPY);
}
else
MessageBeep(0);
DeleteDC (hdcmem3) ;
ReleaseDC(hwnd, hdc);
return 0;
case    WM_COMMAND://command非commend
hmenu = GetMenu (hwnd);
switch(LOWORD (wParam))
{
case ID_FIRST://初级时
CheckMenuItem(hmenu,Select, MF_UNCHECKED);
Select = LOWORD(wParam);
CheckMenuItem(hmenu,Select, MF_CHECKED);
NUM  = 60;
for (x = 0 ; x < CXNUM ; x ++)
for (y = 0 ; y < CXNUM ; y ++)
{
minestate[x][y] = 0 ;   //初始化雷区状态
mineflag[x][y] = 1;
}
//随机布雷
srand((unsigned)GetCurrentTime());
for( j = 1; j <= NUM; )
{
cxmine = abs (rand()%(400));
cymine = abs (rand()%(400));

if ( cxmine < CXNUM && cymine < CYNUM &&  minestate[cxmine][cymine] != 5 )
{
minestate[cxmine][cymine] = 5 ;
j++;
Dead = 0;//重生
}
else continue ;
}
InvalidateRect(hwnd, NULL,TRUE);
break;
case ID_SECOND: //中级
CheckMenuItem(hmenu,Select, MF_UNCHECKED);
Select = LOWORD(wParam) ;// 对于前后要用的值得一用
CheckMenuItem(hmenu, Select, MF_CHECKED);
NUM  = 100;
for (x = 0 ; x < CXNUM ; x ++)
for (y = 0 ; y < CXNUM ; y ++)
{
minestate[x][y] = 0 ;   //初始化雷区状态
mineflag[x][y] = 1;
}
//随机布雷
srand((unsigned)GetCurrentTime());
for( j = 1; j <= NUM; )
{
cxmine = abs (rand()%(400));
cymine = abs (rand()%(400));

if ( cxmine < CXNUM && cymine < CYNUM &&  minestate[cxmine][cymine] != 5)
{
minestate[cxmine][cymine] = 5 ;
j++;
Dead = 0 ;
}
else continue ;
}
InvalidateRect(hwnd, NULL,TRUE);//重画
break;
case ID_MAX://高级
CheckMenuItem(hmenu,Select, MF_UNCHECKED);
Select = LOWORD(wParam) ;// 对于前后要用的值得一用
CheckMenuItem(hmenu, Select, MF_CHECKED);
NUM  = 140;
for (x = 0 ; x < CXNUM ; x ++)
for (y = 0 ; y < CXNUM ; y ++)
{
minestate[x][y] = 0 ;   //初始化雷区状态
mineflag[x][y] = 1;
}
//随机布雷
srand((unsigned)GetCurrentTime());
for( j = 1; j <= NUM; )
{
cxmine = abs (rand()%(400));
cymine = abs (rand()%(400));

if ( cxmine < CXNUM && cymine < CYNUM &&  minestate[cxmine][cymine] != 5 )
{
minestate[cxmine][cymine] = 5 ;
j++;

Dead = 0;
}
else continue ;
}
InvalidateRect(hwnd, NULL,TRUE);
break ;

case ID_EXIT://退出
SendMessage (hwnd, WM_CLOSE, 0, 0) ;
break;

case ID_START://重开始
for (x = 0 ; x < CXNUM ; x ++)
for (y = 0 ; y < CXNUM ; y ++)
{
minestate[x][y] = 0 ;   //初始化雷区状态
mineflag[x][y] = 1;
}
//随机布雷
srand((unsigned)GetCurrentTime());
for( j = 1; j <= NUM; )
{
cxmine = abs (rand()%(400));
cymine = abs (rand()%(400));

if ( cxmine < CXNUM && cymine < CYNUM &&  minestate[cxmine][cymine] != 5 )
{
minestate[cxmine][cymine] = 5 ;
j++;
Dead = 0;
}
else continue ;
}
InvalidateRect(hwnd, NULL,TRUE);
break;
}
return 0 ;

case    WM_DESTROY:

//  DeleteObject(hBm1);
//  DeleteObject(hBm2);
PostQuitMessage(0);
DeleteObject(hBm3);

//  DeleteObject(hBm4);

return  0;
}
return DefWindowProc(hwnd,message, wParam, lParam);
}