Delphi版俄罗斯方块-前奏
2021-02-05 17:15
标签：send 一个 gen asc 课程 今天 来讲 conf down 基础知识讲了很多，但是并没有串联起来，所以我最近一直在准备个小项目，但是这个项目的要求不含有数据库部分，也就是数据持久存储的功能，此外不能含有网络功能，它只是对基础知识的一个总结，最后一点是这个项目可以后期进行扩展，加上网络和数据库部分，所以最终选择俄罗斯方块这个小游戏作为基础知识总结的结课项目，因为这个小游戏可以扩展成为双人或者多人对战，同时保存每个人的对战信息 我们的课程一直使用的是VCL，VCL原生的窗口太丑，所以需要做一点美化,准备一些图片，不至于让做出来的东西自己都不想看 这张图片是用来画窗口的，它将来的功能就是将整个游戏窗口划分为不同的功能区块，需要注意的是它的背景是透明的，至于大小到时候使用代码对图片进行切割，最终可以让我们绘制任意大小的窗口，本来就没什么时间，加上自己数学又不好，这个切边的问题让我鼓捣好几天.....，具体的计算方式如下： 这张图片是用于拼装图形的，同样的是代码进行切割，每一个方块的大小为32*32像素 这张图片有意思了，用于经验条显示的，也就是随着玩家消除的行数增加，经验条也增加，当经验条满了之后则进行升级，我们这里的升级需要做两个事情，一个是增加方块的下落速度，另一个是更换整个游戏的背景，当然今天用不到这张图 为了后期方便扩展，我们需要整理出一个比较规范的代码编写，因为我并不清楚Delphi实际开发的情况是什么样子的，所以我沿用了Java代码设计的思路，我想在这方面每个语言都应该是相同的，我将整个项目划分为了视图、业务和数据，存放的方式以单元为单位 这个单元目前来讲只需要存放一个类，用于存储方块图形数据 我之所以将初始化图形的数据放在initialization块内，主要是我想通过类方法直接调用，而在类内部貌似没有办法定义类似于类方法的类变量 getRandomSquare函数返回值的问题，它的返回值是一个数组，但是Delphi里面貌似没有办法直接返回数组，所以我将其定义为了一个类型，在调用该方法的时候用于接收的变量类型为uEntity.TArrayPoint。 这个单元主要存放，方块控制的一些功能，例如绘制方块、方块下落等等 其中最复杂的一个方法就属于CreateWindow了，其实它并不复杂，只是稍微有点麻烦，我们需要切割图片，所以需要计算一下切割的坐标是多少 这个函数稍微复杂一点，不过并不是太难理解，这个也是我们整个游戏界面的核心函数，它的具体含义是将图片的某一部分绘制到目标窗口的指定位置 x, y,Width, Height：为图片在窗口上显示的x,y坐标以及大小 ix, iy, iw ,ih：为获取图片的那一部分 其实所谓的视图也就是界面部分的代码，这里主要是调用以及处理一些事件的代码 核心代码 该单元我一般用来存放一些不好分类或者调用频率比较高的函数，一般是类方法(换成Java的说法是静态方法，我不知道在Delphi中具体的称呼) 来一张效果图，我个人觉得还不错，虽然功能还没有做完 Delphi版俄罗斯方块-前奏 标签：send 一个 gen asc 课程 今天 来讲 conf down 原文地址：https://www.cnblogs.com/coder163/p/11438321.html前言
素材准备
代码编写
数据单元
unit uEntity;
interface
uses
Winapi.Windows, System.Generics.Collections;
type
TArrayPoint = array[0..3] of TPoint;
TGameData = class
private
public
class function getRandomSquare(RandowIndex: Integer): TArrayPoint;
published
end;
implementation
//此处定义的变量在其他单元无法引用
var
ArrayPoint: TArrayPoint;
TypeConfig: TList业务功能单元
DrawImage(img, MakeRect(x, y,Width, Height), ix, iy, iw ,ih , UnitPixel);unit UnitGameService;
interface
uses
uEntity, System.Generics.Collections, Vcl.Imaging.pngimage, Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
Vcl.ExtCtrls, Winapi.GDIPOBJ, Winapi.GDIPAPI;
type
TGameService = class
public
procedure DrawBackground(dc: HDC; x, y, width, Height: Integer);
//绘制窗口
procedure CreateWindow(dc: HDC; x, y, Width, Height: Integer);
//绘制图形
procedure DrawActWithImg(dc: HDC; speed: Integer; ArrayPoint: uEntity.TArrayPoint);
end;
implementation
{ TGameService }
procedure TGameService.CreateWindow(dc: HDC; x, y, Width, Height: Integer);
var
img: TGPImage;
Graphics: TGPGraphics;
const
BorderWidth: Integer = 7;
begin
Graphics := TGPGraphics.Create(dc);
img := TGPImage.Create('D:\\Downloads\\BaiduNetdiskDownload\\俄罗斯方块\\Graphics\\window\\window.png');
//左上角
Graphics.DrawImage(img, MakeRect(x, y, BorderWidth, BorderWidth), 0, 0, BorderWidth, BorderWidth, UnitPixel);
//左侧竖线
Graphics.DrawImage(img, MakeRect(x, y + BorderWidth, BorderWidth, Height - BorderWidth), 0, BorderWidth, img.GetWidth - (img.GetWidth - BorderWidth), img.GetHeight - BorderWidth * 2, UnitPixel);
//左下角
Graphics.DrawImage(img, MakeRect(x, y + Height, BorderWidth, img.GetHeight), 0, img.GetWidth - BorderWidth, BorderWidth, img.GetHeight, UnitPixel);
//底部中线
Graphics.DrawImage(img, MakeRect(x + BorderWidth, y + Height, Width - BorderWidth, img.GetHeight), BorderWidth, img.GetHeight - BorderWidth, img.GetWidth - BorderWidth * 2, img.GetHeight, UnitPixel);
//右下角
Graphics.DrawImage(img, MakeRect(x + Width, y + Height, img.GetWidth, img.GetHeight), img.GetWidth - BorderWidth, img.GetHeight - BorderWidth, img.GetWidth, img.GetHeight, UnitPixel);
//右侧竖线
Graphics.DrawImage(img, MakeRect(x + Width, y + BorderWidth, img.GetWidth, Height - BorderWidth), img.GetWidth - BorderWidth, BorderWidth, img.GetWidth, img.GetHeight - BorderWidth * 2, UnitPixel);
//右上角
Graphics.DrawImage(img, MakeRect(x + Width, y, img.GetHeight, BorderWidth), img.GetWidth - BorderWidth, 0, img.GetHeight, BorderWidth, UnitPixel);
//顶部中线
Graphics.DrawImage(img, MakeRect(x + BorderWidth, y, Width - BorderWidth, BorderWidth), BorderWidth, 0, img.GetWidth - BorderWidth * 2, BorderWidth, UnitPixel);
//中间
Graphics.DrawImage(img, MakeRect(x + BorderWidth, y + BorderWidth, Width - BorderWidth, Height - BorderWidth), BorderWidth, BorderWidth, img.GetWidth - BorderWidth * 2, img.GetHeight - BorderWidth * 2, UnitPixel);
Graphics.Free;
end;
type
TArrayPoint = array[0..3] of TPoint;
procedure TGameService.DrawActWithImg(dc: HDC; speed: integer; ArrayPoint: uEntity.TArrayPoint);
var
img: TGPImage;
Graphics: TGPGraphics;
const
//每个方块的大小
SIZE: integer = 32;
var
//显示方块的索引
ActIndex: Integer;
var
x, y: integer;
var
i: Integer;
begin
ActIndex := 1;
img := TGPImage.Create('D:\Downloads\BaiduNetdiskDownload\俄罗斯方块\Graphics\game\方块.jpg');
Graphics := TGPGraphics.Create(dc);
for i := Low(ArrayPoint) to High(ArrayPoint) do
begin
// left是左上角的x坐标
x := ArrayPoint[i].x * SIZE;
// Top是左上角的y坐标
y := ArrayPoint[i].y * SIZE;
Graphics.DrawImage(img, MakeRect(x, y + speed, SIZE, SIZE), ActIndex * 32, 0, img.GetWidth - 32 * 8, img.GetHeight, UnitPixel);
end;
Graphics.Free;
img.Free;
end;
procedure TGameService.DrawBackground(dc: HDC; x, y, width, Height: Integer);
var
Graphics: TGPGraphics;
Img: TGPImage;
begin
Img := TGPImage.Create('D:\\Downloads\\BaiduNetdiskDownload\\俄罗斯方块\\Graphics\\background\\016-ForestTown02.jpg');
Graphics := TGPGraphics.Create(dc);
Graphics.DrawImage(Img, MakeRect(x, y, width, Height), 0, 0, width, Img.GetHeight, UnitPixel);
Graphics.Free;
end;
end.视图
procedure TForm1.Button3Click(Sender: TObject);
var
ArrayPoint: uEntity.TArrayPoint;
GameService: TGameService;
begin
Form1.Repaint;
ArrayPoint := TGameData.getRandomSquare(TPublicUtil.GetRandomNum(0, 6));
GameService := TGameService.create();
//绘制背景
GameService.DrawBackground(Image1.Canvas.Handle, 0, 0, 700, 600);
//绘制窗口
GameService.CreateWindow(Image1.Canvas.Handle, 20, 20, 400, 450);
//绘制图形
GameService.DrawActWithImg(Image1.Canvas.Handle, 100, ArrayPoint);
end;工具函数单元
unit uUtil;
interface
type
TPublicUtil = class
public
class function GetRandomNum(Min, Max: Integer): Integer;
end;
implementation
{ TPublicUtil }
{*------------------------------------------------------------------------------
随机产生一个指定范围内的整数
@param Min 最小值
@param Max 最大值
@return
-------------------------------------------------------------------------------}
class function TPublicUtil.GetRandomNum(Min, Max: Integer): Integer;
begin
randomize;
Result := random(Max) mod (Max - Min + 1) + Min;
Exit;
end;
end.
最后
上一篇：win32框架