游戏开发论坛

 找回密码
 立即注册
搜索
楼主: happyking

贪吃蛇完全做好了

[复制链接]

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2008-12-20 13:57:00 | 显示全部楼层

Re:贪吃蛇完全做好了

写一个产生这样错误的VB源码出来.

好像是隐性,有时产生,有时没有产生.你看这样写,函数和按键消息没有冲突.

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    PressKeyFun
   
    Timer1.Enabled = True
   
End Sub

7

主题

33

帖子

33

积分

注册会员

Rank: 2

积分
33
发表于 2008-12-20 17:21:00 | 显示全部楼层

Re:贪吃蛇完全做好了

我不知道你的程序大框架是怎样的。请说明。

用Timer的话麻烦还有有的----VB不允许Timer_Timer()递归调用。
(为此我自己写了一个Timer类)

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2008-12-20 19:49:00 | 显示全部楼层

Re:贪吃蛇完全做好了

好像已经解决了.你可以用控件数组啊.

65

主题

313

帖子

313

积分

中级会员

Rank: 3Rank: 3

积分
313
发表于 2008-12-25 16:40:00 | 显示全部楼层

Re:贪吃蛇完全做好了

ding

12

主题

733

帖子

734

积分

高级会员

Rank: 4

积分
734
发表于 2009-1-10 02:43:00 | 显示全部楼层

Re:贪吃蛇完全做好了

难道没有人知道什么叫做Collection?居然用动态数据杂七杂八的搞,我服了你们了

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2009-1-11 14:02:00 | 显示全部楼层

Re:贪吃蛇完全做好了

用集合好像不行耶.集合能保存一般变量,类,但是不能保存结构变量.
通不过.
Option Explicit
Dim A As New Collection
Private Type Student
    Score As Long
End Type
Private Sub Form_Load()
    Me.Hide
    Dim Boy As Student
    Boy.Score = 55
    A.Add Boy

End Sub

每个关节做成类,好像更复杂了.

12

主题

733

帖子

734

积分

高级会员

Rank: 4

积分
734
发表于 2009-1-11 23:11:00 | 显示全部楼层

Re: Re:贪吃蛇完全做好了

happyking: Re:贪吃蛇完全做好了

用集合好像不行耶.集合能保存一般变量,类,但是不能保存结构变量.
通不过.
Option Explicit
Dim A As New...


你写成类要死啊

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2009-1-12 12:43:00 | 显示全部楼层

Re:贪吃蛇完全做好了

你怎么用集合的,写代码我看看.

12

主题

733

帖子

734

积分

高级会员

Rank: 4

积分
734
发表于 2009-1-13 01:34:00 | 显示全部楼层

Re:贪吃蛇完全做好了

写在类模块中
Public Class Node
    Public x As Short
    Public y As Short
End Class

然后
Dim c As New Collections
Dim n As New Node
c.Add n
需要移除时直接
c.Remove i
就可以了,反正会比数组方便很多

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2009-1-13 16:44:00 | 显示全部楼层

Re:贪吃蛇完全做好了

原来测试过,集合要比类数组慢得多.
用一些确实简单多了.
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

作品发布|文章投稿|广告合作|关于本站|游戏开发论坛 ( 闽ICP备17032699号-3 )

GMT+8, 2026-1-20 12:41

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表