Excel版贪吃蛇sp1

原创 2004年02月29日 13:24:00

上次那个发表的贪吃蛇程序有bug,事实上是对这去年已经完成的程序的思路模糊了,在加入用户交互界面时产生了bug。今次略作修改,大家把下面的语句覆盖原来版本中同名函数和过程应该可以了。老实说,我对这vba还是不太熟悉。我在修改程序时曾使Excel产生错误退出后不论怎么改都是程序崩溃,一气之下新建一个文件,把代码复制过去,居然又正常了!对这样的东西还是没有多大信心,大家还是帮我多多debug吧。

首先是在宏里面的代码。

Function main()
    gaming = False
    If Worksheets.Count < 2 Then
        ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
    Else
        Worksheets(Worksheets.Count).Select
    End If
Load UserForm1
UserForm1.Show
End Function


Function game_over()
   
    If timerset <> 0 Then
        timerset = KillTimer(0, timerset)
        pulsed = False
    End If
    If MsgBox("Game over...temporarily. Try again?", vbOKCancel, "?????") = vbOK Then
        Range(Cells(top + 1, left + 1), Cells(bottom - 1, right - 1)).Interior.ColorIndex = 0
        Range(Cells(top + 1, left + 1), Cells(bottom - 1, right - 1)).ClearContents
        Call game_initial
    Else
        Cells.ClearContents
        Cells.Interior.ColorIndex = 0
        gaming = False
        SendKeys "%{F4}"
    End If
End Function

以下是窗口事件处理代码。

Private Sub UserForm_Initialize()
    UserForm1.Label1.Caption = "NO PLAY , NO GAME"
    Call game_initial
        If gaming Then
           
            UserForm1.Label2.Caption = "Arrow keys to move.                 P key to pause the game             E key to end the game"
        Else
            UserForm1.Label1.Caption = "Something happened !"
            Call game_over
        End If
       
End Sub

 

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If gaming Then
        If Not pulsed Then
            pulsed = True
            timerset = SetTimer(0, 0, 150, AddressOf snake_move)
            UserForm1.Label2.Caption = "Arrow keys to move.                 P key to pause the game             E key to end the game"
        End If
        Select Case KeyCode
            Case vbKeyUp
                head_movement = 2
            Case vbKeyDown
                head_movement = 4
            Case vbKeyLeft
                head_movement = 3
            Case vbKeyRight
                head_movement = 1
            Case vbKeyP
                If timerset <> 0 Then
                    timerset = KillTimer(0, timerset)
                    pulsed = False
                End If
                UserForm1.Label2.Caption = "Game paused. Any key to resume. "
            Case vbKeyE
                Call game_over
        End Select
    End If
End Sub

Private Sub UserForm_Terminate()
    MsgBox ("You have finished the game with the score of " + Str(score))
    Worksheets(1).Select
End Sub

最后是把这三个Excel程序在我机子上运行的截图发一发。

Excel下实现贪吃蛇小游戏

上次我们在Excel下实现了一个华容道式的小游戏,使用了Excel中的小部分属性和功能,不到100行语句就完成了。这次我们要把贪吃蛇搬到Excel中,就不那么容易了。首先要解决游戏显示的问题。对我们来...
  • sidekicker
  • sidekicker
  • 2004年02月20日 11:32
  • 5494

EXCEL实现简易的贪吃蛇小程序

在EXCEL里,看到不一样的C/C++编程,很多时候用表格来辅助理解编程真的还不错~ EXCEL中的简易贪吃蛇~...
  • baidu_24190413
  • baidu_24190413
  • 2015年03月23日 20:40
  • 2187

cocos2d-x 贪吃蛇例子 附demo

cocos2d-x 贪吃蛇例子 文件夹结构 未完待续
  • u011493332
  • u011493332
  • 2013年10月17日 16:00
  • 736

Lesson_for_java_day15--java小练习:贪吃蛇游戏(在控制台上操作)

目的:编写yig
  • u013233075
  • u013233075
  • 2014年04月24日 17:38
  • 867

iOS 贪吃蛇单机版的实现

github地址:贪吃蛇小游戏 前言 前天了解到疯狂iOS讲义这本书。 上面有一个手势教学的代码实例:贪吃蛇。 于是找到了它的电子版和源码。进行学习。 做出来的效果就是这样的,可能样子有点丑,但我...
  • u012265444
  • u012265444
  • 2017年08月19日 14:24
  • 408

自己写的贪吃蛇(1)

最近很多人在玩一个《贪吃蛇大作战》的游戏,以前小时候也经常在文曲星上玩贪吃蛇这个小游戏,于是自己就试着写一个传统的贪吃蛇游戏来玩玩,先写了一个简单demo。 我们知道小蛇是由一块块正方形的块组成的,...
  • jijun7885417
  • jijun7885417
  • 2016年10月08日 18:11
  • 699

使用Python写一个贪吃蛇AI

不久前在网上看到一张贪吃蛇的动态图片,蛇最后把所有的食物吃完并占满整个运动空间。  觉得挺好玩的,于是用Python写了一个。 Blog: http://hawstein.com/posts...
  • yidangui
  • yidangui
  • 2013年04月18日 12:50
  • 804

纯新手写的双人贪吃蛇,欢迎高手拍转

近期学习js,假期无事,参照网上的代码写了个双人玩的贪吃蛇。 对网上的代码作了些改造,具体如下: 1,把m*n的二维数组变成m*n一维数组,映射关系为:    A[r]------>a[i][j]; ...
  • bill600
  • bill600
  • 2010年09月25日 00:07
  • 354

贪吃蛇(C++ OpenGL)

系统地看了C++ primar,加上之前用过OpenGL库,于是心血来潮想要写一个简单的贪吃蛇游戏玩玩。1.类间关系和类图   我设计了四个类,分别是Draw(用于绘制),Board(负责记录蛇身的...
  • popvip44
  • popvip44
  • 2016年06月12日 19:17
  • 1663

命令行之贪吃蛇

模拟一个童年之命令行贪吃蛇
  • Tc_To_Top
  • Tc_To_Top
  • 2014年08月10日 22:57
  • 1779
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Excel版贪吃蛇sp1
举报原因:
原因补充:

(最多只允许输入30个字)