blua tigro
Gebruiker
- Lid geworden
- 21 apr 2009
- Berichten
- 48
ik heb beeld
maar :
mijn scherm is niet zwart / fulscreen
mijn ellipse is niet geel
voor de rest werkt t
instructies :
gebruik cursor key's om de ellipse te bewegen
maar :
mijn scherm is niet zwart / fulscreen
mijn ellipse is niet geel
voor de rest werkt t
instructies :
gebruik cursor key's om de ellipse te bewegen
Code:
// bluatigro 31 okt 2017
// win game 1
#if defined(UNICODE) && !defined(_UNICODE)
#define _UNICODE
#elif defined(_UNICODE) && !defined(UNICODE)
#define UNICODE
#endif
#include <tchar.h>
#include <windows.h>
bool key[ 256 ] ;
int playerx , playery , winx , winy ;
#define FRAME_TIMER 1
/* Declare Windows procedure */
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);
/* Make the class name into a global variable */
TCHAR szClassName[ ] = _T("CodeBlocksWindowsApp");
int WINAPI WinMain (HINSTANCE hThisInstance,
HINSTANCE hPrevInstance,
LPSTR lpszArgument,
int nCmdShow)
{
HWND hwnd; /* This is the handle for our window */
MSG messages; /* Here messages to the application are saved */
WNDCLASSEX wincl; /* Data structure for the windowclass */
/* The Window structure */
wincl.hInstance = hThisInstance;
wincl.lpszClassName = szClassName;
wincl.lpfnWndProc = WindowProcedure; /* This function is called by windows */
wincl.style = CS_DBLCLKS; /* Catch double-clicks */
wincl.cbSize = sizeof (WNDCLASSEX);
/* Use default icon and mouse-pointer */
wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
wincl.lpszMenuName = NULL; /* No menu */
wincl.cbClsExtra = 0; /* No extra bytes after the window class */
wincl.cbWndExtra = 0; /* structure or the window instance */
/* Use Windows's default colour as the background of the window */
wincl.hbrBackground = (HBRUSH)BLACK_BRUSH;
/* Register the window class, and if it fails quit the program */
if (!RegisterClassEx (&wincl))
return 0;
/* The class is registered, let's create the program*/
hwnd = CreateWindowEx (
0, /* Extended possibilites for variation */
szClassName, /* Classname */
_T("Game 1"), /* Title Text */
WS_OVERLAPPEDWINDOW | WS_MAXIMIZE , /* default window */
CW_USEDEFAULT, /* Windows decides the position */
CW_USEDEFAULT, /* where the window ends up on the screen */
800, /* The programs width */
600, /* and height in pixels */
HWND_DESKTOP, /* The window is a child-window to desktop */
NULL, /* No menu */
hThisInstance, /* Program Instance handler */
NULL /* No Window Creation data */
);
/* Make the window visible on the screen */
ShowWindow (hwnd, nCmdShow);
/* Run the message loop. It will run until GetMessage() returns 0 */
while (GetMessage (&messages, NULL, 0, 0))
{
/* Translate virtual-key messages into character messages */
TranslateMessage(&messages);
/* Send message to WindowProcedure */
DispatchMessage(&messages);
}
/* The program return-value is 0 - The value that PostQuitMessage() gave */
return messages.wParam;
}
/* This function is called by the Windows function DispatchMessage() */
LRESULT CALLBACK WindowProcedure (HWND hwnd,
UINT message, WPARAM wParam, LPARAM lParam)
{
PAINTSTRUCT paint ;
HDC hdc = BeginPaint( hwnd , &paint ) ;
RECT rect ;
HBRUSH brush =
CreateSolidBrush( RGB(255,255,0) ) ;
HPEN pen =
CreatePen( PS_SOLID ,
0 ,
RGB(255,255,0) ) ;
switch (message) /* handle the messages */
{
case WM_CREATE :
playerx = 100 ;
playery = 100 ;
SetTimer( hwnd
, FRAME_TIMER
, 40 , NULL ) ;
break ;
case WM_KEYDOWN :
key[ wParam ] = true ;
switch( wParam )
{
case VK_ESCAPE :
PostQuitMessage( 0 ) ;
break ;
default : ;
}
break ;
case WM_KEYUP :
key[ wParam ] = false ;
break ;
case WM_TIMER :
switch( wParam )
{
case FRAME_TIMER :
if ( key[ VK_UP ] ) playery-- ;
if ( key[ VK_DOWN ] ) playery++ ;
if ( key[ VK_LEFT ] ) playerx-- ;
if ( key[ VK_RIGHT ] ) playerx++ ;
if ( playery > winy ) playery = 0 ;
if ( playery < 0 ) playery = winy ;
if ( playerx > winx ) playerx = 0 ;
if ( playerx < 0 ) playerx = winx ;
InvalidateRect( hwnd , NULL , true ) ;
break ;
default : ;
}
break ;
case WM_PAINT :
GetClientRect( hwnd , &rect ) ;
winx = rect.right ;
winy = rect.bottom ;
Ellipse( hdc ,
playerx - 20 ,
playery - 20 ,
playerx + 20 ,
playery + 20 ) ;
EndPaint( hwnd , &paint ) ;
break ;
case WM_DESTROY :
PostQuitMessage( 0 ) ; /* send a WM_QUIT to the message queue */
break ;
default : /* for messages that we don't deal with */
return DefWindowProc (hwnd, message, wParam, lParam);
}
return 0 ;
}