问题咨询

游戏之家

有什么命令可以代替TIMER控件？

我的三国游戏里用了6个TIMER控件，我用TIMER控件模拟多线程，

注意：我的TIMER控件不是用来管理时间的

目前是这样设置的：

Timer1.Interval = 1
Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1

如果谁知道请给出例子，如果太长就不用了。

以后我的游戏可能要用到10个以上的TIMER，这个不是办法......

LendyZhang

写帖子的时候老是不知不觉就自动提交了…… -_-b
回帖补在后面。

zlcnkkm

计时这东东无非就两种方法，一个是你惯用的Timer，一个就是GetTickCount这个API

每循环开始时读一下GetTickCount 的返回值，以你所说的有10个过程，分别按顺序（主要是因为不是多线程）判断是否已经到时间处理，如果已经到时间，继续执行该过程下面的语句，并在该过程的最后一行保存GetTickCount 的返回值，以便下次循环使用；否则跳出该过程，然后进入下一个过程进行判断。

不需要例子了吧，就一个API和几个Long型变量，再加个If...Then Exit Sub/Function

游戏之家

有时间再试, 我的TIMER不是管理时间用的.

zlcnkkm

[Private] [Public] sub XXX
    If NowTime < (subTime - 1000) Then Exit Sub '循环开始时已经 NowTime = GetTickCount

    '……
    '你原来在在Time的Tick事件里的代码
    '……

    subTime = NowTime
End Sub

LendyZhang

推荐不要用Timer。游戏最好不要使用多线程来处理，除非能确保各个线程之间绝对不会相互影响。

可以改成这样：（语法不知道对不对，忘得差不多了…… -_-b）
把工程属性设置为用Main()启动。
Public Sub Main()
    ....
    Load frmMain
    frmMain.Show
    Do While Not bExitFlag
        '把相关处理放在这里(即顺次处理原Timer1/2/3...里的内容)
        .....
        DoEvents  '处理窗口消息
    Loop
    ....
    Unload frmMain
    End
End Sub

zlcnkkm

游戏之家: Re:问题咨询

我的TIMER不是管理时间用的.

你以前说过很多遍了，我明白你的意思

无影无踪

LendyZhang说的是正解，也是windows下写游戏的主循环模板。

boywhp

唉！游戏里面尽量不要多线程 我现在明白了！调试这样的代码我快疯了
除非你有一套读写锁存的机制，否则错误会莫名其妙的

123321

设置Timer的Index值就可以了
For i=1 to 99
  tmr(i).Interval=1
Next i