Delphi版俄罗斯方块-前奏

最新推荐文章于 2024-07-20 15:09:07 发布
最新推荐文章于 2024-07-20 15:09:07 发布
阅读量313 收藏
点赞数
文章标签： java 数据库 游戏
原文链接：http://www.cnblogs.com/coder163/p/11438321.html
版权
前言

基础知识讲了很多，但是并没有串联起来，所以我最近一直在准备个小项目，但是这个项目的要求不含有数据库部分，也就是数据持久存储的功能，此外不能含有网络功能，它只是对基础知识的一个总结，最后一点是这个项目可以后期进行扩展，加上网络和数据库部分，所以最终选择俄罗斯方块这个小游戏作为基础知识总结的结课项目，因为这个小游戏可以扩展成为双人或者多人对战，同时保存每个人的对战信息

素材准备

我们的课程一直使用的是VCL，VCL原生的窗口太丑，所以需要做一点美化,准备一些图片，不至于让做出来的东西自己都不想看

1305098-20190831110945280-1778981861.png

这张图片是用来画窗口的，它将来的功能就是将整个游戏窗口划分为不同的功能区块，需要注意的是它的背景是透明的，至于大小到时候使用代码对图片进行切割，最终可以让我们绘制任意大小的窗口，本来就没什么时间，加上自己数学又不好，这个切边的问题让我鼓捣好几天.....，具体的计算方式如下：

1305098-20190831111044541-472191673.png

1305098-20190831111105333-1088046885.jpg

这张图片是用于拼装图形的，同样的是代码进行切割，每一个方块的大小为32*32像素

1305098-20190831111123345-849365069.png

这张图片有意思了，用于经验条显示的，也就是随着玩家消除的行数增加，经验条也增加，当经验条满了之后则进行升级，我们这里的升级需要做两个事情，一个是增加方块的下落速度，另一个是更换整个游戏的背景，当然今天用不到这张图

代码编写

为了后期方便扩展，我们需要整理出一个比较规范的代码编写，因为我并不清楚Delphi实际开发的情况是什么样子的，所以我沿用了Java代码设计的思路，我想在这方面每个语言都应该是相同的，我将整个项目划分为了视图、业务和数据，存放的方式以单元为单位

数据单元

这个单元目前来讲只需要存放一个类，用于存储方块图形数据

  • 我之所以将初始化图形的数据放在initialization块内，主要是我想通过类方法直接调用，而在类内部貌似没有办法定义类似于类方法的类变量

  • getRandomSquare函数返回值的问题，它的返回值是一个数组，但是Delphi里面貌似没有办法直接返回数组，所以我将其定义为了一个类型，在调用该方法的时候用于接收的变量类型为uEntity.TArrayPoint。

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<TArrayPoint>;
{ TGameData }

{*------------------------------------------------------------------------------

  根据指定的索引获取一个方块
  @param RandowIndex    索引
  @return   方块的做信息
-------------------------------------------------------------------------------}
class function TGameData.getRandomSquare(RandowIndex: Integer): TArrayPoint;
begin

    Result := TypeConfig.Items[RandowIndex];
    Exit;
end;

initialization
    //组装俄罗斯方块的7中图形，这里面存储的实际是方块的x，y坐标
    TypeConfig := TList<TArrayPoint>.create;
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(6, 0);

    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(4, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(3, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(5, 0);
    ArrayPoint[2] := TPoint.create(3, 1);
    ArrayPoint[3] := TPoint.create(4, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(5, 0);
    ArrayPoint[2] := TPoint.create(4, 1);
    ArrayPoint[3] := TPoint.create(5, 1);
    TypeConfig.Add(ArrayPoint);

    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(5, 0);
    ArrayPoint[3] := TPoint.create(5, 1);
    TypeConfig.Add(ArrayPoint);
    ArrayPoint[0] := TPoint.create(4, 0);
    ArrayPoint[1] := TPoint.create(3, 0);
    ArrayPoint[2] := TPoint.create(4, 1);
    ArrayPoint[3] := TPoint.create(5, 1);
    TypeConfig.Add(ArrayPoint);

end.
业务功能单元

这个单元主要存放，方块控制的一些功能，例如绘制方块、方块下落等等

其中最复杂的一个方法就属于CreateWindow了，其实它并不复杂，只是稍微有点麻烦，我们需要切割图片，所以需要计算一下切割的坐标是多少

DrawImage(img, MakeRect(x, y,Width, Height), ix, iy, iw ,ih , UnitPixel);

这个函数稍微复杂一点，不过并不是太难理解，这个也是我们整个游戏界面的核心函数，它的具体含义是将图片的某一部分绘制到目标窗口的指定位置

x, y,Width, Height：为图片在窗口上显示的x,y坐标以及大小

ix, iy, iw ,ih：为获取图片的那一部分

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;
工具函数单元

该单元我一般用来存放一些不好分类或者调用频率比较高的函数，一般是类方法(换成Java的说法是静态方法，我不知道在Delphi中具体的称呼)

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.
最后

来一张效果图，我个人觉得还不错，虽然功能还没有做完

1305098-20190831111157584-1672987608.png

转载于:https://www.cnblogs.com/coder163/p/11438321.html

aide2955
关注
俄罗斯方块源码（Delphi版）
10-22
Delphi写的俄罗斯方块小游戏，FMX框架写的，在android,windows平台测试可用。纯原生控件没有应用任何第三方控件，用的是XE7版本写的。可设置最高等级，每级分数，下落速度等。
多库俄罗斯方块之一(Delphi)
fim的专栏
07-08 594
这是作者最喜欢的编程语言，虽然已经转向Web开发，但是对第一次使用的语言多少有些偏好，何况Delphi曾经是如此的优秀 开发环境：Delphi7 源程序下载地址：http://download.csdn.net/detail/fim/4417629
Delphi俄罗斯方块.rar
07-10
Delphi代码版的俄罗斯方块游戏，彩色有立体感的俄罗斯积木游戏，带带有音效，大家见的多了，也玩的多了，对Delphi编程的朋友来说，闲暇时可参考借鉴一下本游戏的编写步骤，别的不多介绍了。
delphi版的俄罗斯方块
07-08
多库俄罗斯方块的Delphi版本，有注释
DELPHI版 俄罗斯方块
09-07
学了一个月DELPHI ，尝试用面向对象的思维写的一个俄罗斯方块消游戏。
俄罗斯方块-C语言-详注版
findhappy117的博客
03-12 4006
代码地址如下：http://www.demodashi.com/demo/14818.html 俄罗斯方块-C语言-详注版 概述 本文详述了C语言版俄罗斯方块游戏的原理以及实现方法,对游戏代码进行了详细的分析和注释,通过本文能够让大家对WIN32编程框架有一个大致了解,对C语言运用有一定提高,同时也能给大家提供一个C语言小游戏编程的思路,也能完全够通过自己的实力去编写一个属于自己的游戏. 游戏...
python俄罗斯方块教程-100行代码
最新发布
R5463995的博客
07-20 1280
使用tkinter库实现基础窗体，不加入任何功能只需如下三行代码运行代码生成的窗口如下接下来我们需要在窗体里面，添加一个画布容器用来“装”俄罗斯方块，就是让这个画布作为面板，俄罗斯方块的移动和绘制均在这个画板上实现。这里我们设定一些俄罗斯方块游戏参数行数为R（取20）列数为C（取12）俄罗斯方块的边长为cell_size（取30）通过tkinger的画布类Canvas实现的代码如下运行代码生成的窗口如下，此时界面的长宽就变成我们所需要的了接下来在画板上绘制俄罗斯方块空白位。
俄罗斯方块-微信小游戏-项目源码
05-11
这是一个微信小游戏项目源码，是经典怀旧的俄罗斯方块游戏，适合新手入门参考学习，下面还有↓ ...② 俄罗斯方块-单机游戏-微信小程序项目开发入门https://blog.csdn.net/zs1028/article/details/128383343
俄罗斯方块-人工+AI-版.zip
06-28
俄罗斯方块c语言 采用C++与WinAPI方式实现，分为普通玩家模式与AI模式 思维导图 尚未测得，目前测试环境下，测试时间以及消除行数大约为12小时60W行，最终人为停止测试。 This algorithm is part of a project I was...
Delphi版俄罗斯方块网络对战版源代码
05-07
《Delphi版俄罗斯方块网络对战版源代码》是一个基于Delphi开发的网络游戏项目，主要涉及了游戏编程和网络编程两大技术领域。这个项目旨在实现一个标准的、支持多人在线对战的俄罗斯方块游戏，它包含了服务器端和...
delphi编写的俄罗斯方块(含源码)
02-23
delphi编写的俄罗斯方块，游戏界面可自己定义，新功能等等。
俄罗斯方块(Delphi7源码)
01-11
用delphi7写的，很经典的一款小游戏
Delphi版俄罗斯方块
01-04
用Delphi开发的俄罗斯方块，附源码。
Delphi 俄罗斯方块
04-23
Delphi 俄罗斯方块 喜欢的可以看看
Delphi编写的俄罗斯方块游戏源码
04-16
Delphi编写的俄罗斯方块游戏源码，不同的风格，更好玩，更有趣，仅供参考。
多库Delphi版俄罗斯方块源码游戏
05-01
摘要:Delphi源码,游戏编程,俄罗斯方块　多库版俄罗斯方块游戏源码，运行Delphi语言所写，游戏功能不算多，直接编译可生成EXE,运行截图如上所示，从功能上来说，仅实现了基本的俄罗斯方块游戏的基本模块，更多功能...
俄罗斯方块-改进版
06-28
《俄罗斯方块-改进版》是一款经典的休闲益智游戏，基于原始的俄罗斯方块玩法进行了多项功能升级。在这个完成版本的DEMO中，玩家不仅可以体验到原汁原味的方块堆积乐趣，还能够享受到一系列增强游戏体验的新特性。 ...
没事做的Delphi版的俄罗斯方块游戏Demo
dengshisha4819的博客
01-18 227
源代码下载 转载于:https://www.cnblogs.com/tulater/p/10286353.html
delphi fmx 俄罗斯方块,超爽
锄禾日当午
12-14 374
可windows，android编译运行。
C++代码实现Linux版俄罗斯方块
"这篇文章主要介绍了如何使用C++在Linux环境下实现俄罗斯方块游戏。作者提供了主程序RussiaBlock.cpp的核心代码，涉及到多线程、互斥锁以及文件操作等技术。" 在C++实现俄罗斯方块的Linux版本中，开发者通常会关注...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值