[分享]45分钟教你学会编制俄罗斯方块

ovxyz

dF6OFgWr.rar (25.7 KB, 下载次数: 3189)

2008-5-28 16:29 上传

点击文件名下载附件
[分享]45分钟教你学会编制俄罗斯方块

[此贴子已经被作者于2008-5-28 18:17:52编辑过]

ovxyz

第一；程序架构

我们来编写俄罗斯方块这个程序，那我们就先来个庖丁解牛，将俄罗斯反怪分解为我们需要解决的各个

 

1、构建方块，

2、初始化

3、随机生成方块

4、方块进入操作界面

5、判断方块所处环境

6、移动操控的方块

7、变形按键处理

8、消除处理

9、时间处理

10、其余杂项处理

以上就是我们将俄罗斯方块分解后的几个模块，这样，整个程序的架构就基本完成了。

realsoar

   

到这句话报错

SetTimer Application.hWnd, 1, InterTime, AddressOf myOnTime

ovxyz

第二：程序设计

也就是程序的主要部分了，我们可以先新建一个模块，

 

0、公共变量罗列（建议琢磨时间30秒）

我们先把我这个程序涉及到的变量罗列一下，不用刻意去看啥意思。后面我们在每个模块当中都会提到

Public Declare Function SetTimer Lib "user32.dll" (ByVal hWnd As Long, ByVal nIDEvent As Long, _

                        ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32.dll" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

 

''以上两个函数可能有人没见过。是用来设定每隔多少时间执行一个过程的函数。不晓得的话照抄还不会吗？settimer就是设定间隔并生效执行，killtimer就是去除这个设定。

 

Public CurrentBlock, NextBlock, TempBlock     ''CurrentBlock 当前方块  NextBlock 下一个方块  TempBlock 临时方块

Public CurrentColor, NextColor         ''当前方块颜色，下一个方块颜色

Public InterTime  ''间隔时间，就是方块自然下降的速度。他由游戏的难度决定。

Public CStop   ''是否停止，停止游戏

Public Cross   ''关卡

Public Diff(8)   ''难度

这段话放在模块的声明中就行了。

ovxyz

1、构建方块（建议琢磨时间5分钟）

俄罗斯方块，玩过的人都知道。如果你想编这个程序，你最先想到的是什么呢？方块，没错。那我们就先来设计一些方块的模型。EXCEL中的表格给我们提供了最简单的方案、4个方块（即4个单元格）就组成了一个俄罗斯方块

这个过程不需要编程。你把这些你画好的方块放到SHEET2吧，需要抽取的时候我们就从SHEET2拿就行。但为了抽取方便，你得注意一个小技巧。就是把这些方块按顺序摆好。例如本程序，一个方块我们以它是摆放在一个4×4的范围内。相邻2个范围在空一行。具体参考参考我的SHEET2一眼就能看明白了。我就不多费口舌了。

 

有有点需要特别提醒的是：细心的朋友会发现，我设计的每个方块不仅填充了背景色，还在每个填充的单元格里面写入了数值【1】，其实这个1不是乱写的，这个1是整个程序的灵魂。他主要用来判断操作中的方块（单元格）与周边方块或者设定环境的关系，用以决定当前单元格的处理方式，以及当一行的方块填充满了以后是否做消除处理（俄罗斯方块不就是满10个一行就消除嘛！）。

mobility

真的很强大！佩服

ovxyz

2、初始化（建议琢磨时间3分钟）

也就是游戏开始前的准备工作。那就是为游戏者提供一个操作环境、以及后台一些常量的初始化。例如难度，我们本程序设计了8种难度，所以我定义了一个常数变量组Diff(7),至于环境的搭建你就照猫画虎得了。自己动手画几下，再录个宏，copy进去。我想你可以做得比我更好，更漂亮。（ps：本人美工设计甚差。）

 

Sub MyInit()  ''初始化界面

    Diff(0) = "很容易"

    Diff(1) = "容易"

    Diff(2) = "一般"

    Diff(3) = "困难"

    Diff(4) = "恐怖"

    Diff(5) = "噩梦"

    Diff(6) = "魔鬼"

    Diff(7) = "地狱"

 下续

ovxyz

接上：

 Sheet1.Range("a:r").Clear

  ''   创建格式

    Sheet1.Columns("A:R").ColumnWidth = 2

   

    With Sheet1.Range("f1:o27").Borders

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Sheet1.Range("f1:o27").Borders(xlInsideVertical).LineStyle = xlNone

    Sheet1.Range("f1:o27").Borders(xlInsideHorizontal).LineStyle = xlNone

    With Range("E1:E27,F27:O27,P1:P27")

        .Formula = "1"

        .Interior.ColorIndex = 25

        .Interior.Pattern = xlSolid

    End With

 

   

    [s1] = "上手度："

    [t1] = "很容易"

    [s2] = "关数"

    [t2] = " 第 1 关"

    [S3] = "过关条件"

    [t3] = "至少同时消除 1 行方块"

    [s10] = "按键说明：方向键【左右】移动，【下】为加速下移，【上】为变形"

    Range("s1:t3").Interior.ColorIndex = 34

    Range("s1:S3").Font.ColorIndex = 3

    Range("t1:t3").Font.ColorIndex = 5

    Range("s1:t3").Font.Bold = True

    [t14].Select

End Sub

 

本块也需要注意一个问题。就是你也会发现，搭建的环境（游戏的界面）我不仅填充了北京。还写入了数值【1】，大家结合上一个模块中方块中的的数值【1】，能想到些什么吗？当这些环境中的1碰到正在执行中的方块中的【1】，你得告诉他，别过来了。我挡着呢。你没看到吗？至于程序怎么实现的，我们后面在具体讲解。

这步完了以后你可以试着执行

soboiling

实在是高呀，刚开始学习

onlyou888

牛，，看了还有学三年才能到楼主水平