Excel版【坦克大战】

HHAAMM · 发表于 2010-9-26 19:53

(用"Timer类"编写的【坦克大战】)
【坦克大战】是个古老的游戏，大家都很熟悉。以前也设想过在excel里实现它，怎奈如果按顺序依次执行的办法实现许多物体同时都在移动，代码很不好写，效果也不好，而且，这些物体的移动频率不相同，实现起来就更困难了。
前几天在测试文小峰版主提供的"Timer类"时发现多个类实例同时调用一个函数也没有问题,这真是太好了。
游戏还没写完，敌方的6个坦克已经实现，目前只有一个能开炮，击中目标的代码还没有写。之所以急着放出来，是想和大家分享下这个类的功能。
（按F1开始，按小键盘回车结束）
更新：第二个附件里，除了玩家控制的坦克外，其余部分都完成了

[ 本帖最后由 HHAAMM 于 2011-6-14 13:48 编辑 ]

HHAAMM · 发表于 2010-9-26 19:55

截图

joforn · 发表于 2010-9-26 20:01

Timer本身就是可以多个同时运行的，因为在启用的时间上有一定的时间差，所以Windows消息会依次发送，并且因为各个类是在不同的内存中，所以每个类都会在指定的时间内激活一次事件。不过它不是多线程更不是多进程。

HHAAMM · 发表于 2010-9-26 20:06

原帖由 joforn 于 2010-9-26 20:01 发表
Timer本身就是可以多个同时运行的，因为在启用的时间上有一定的时间差，所以Windows消息会依次发送，并且因为各个类是在不同的内存中，所以每个类都会在指定的时间内激活一次事件。不过它不是多线程更不是多进程。

"启用的时间"
下面代码
cTimer1.Interval = sd
cTimer2.Interval = sd + 20
cTimer3.Interval = sd + 40
cTimer4.Interval = sd + 60
cTimer5.Interval = sd + 80
cTimer6.Interval = sd + 100
改成
cTimer1.Interval = sd
cTimer2.Interval = sd
cTimer3.Interval = sd
cTimer4.Interval = sd
cTimer5.Interval = sd
cTimer6.Interval = sd
不知算不算时间相同，运行起来也没问题，但画面不好看

[ 本帖最后由 HHAAMM 于 2010-9-26 20:08 编辑 ]

HHAAMM · 发表于 2010-9-26 20:10

测试过，多个类同时调用一个要运行很长时间的函数时，也互不干扰

jxnu · 发表于 2010-9-26 20:11

牛！像楼主学习！

yjlexcelhome · 发表于 2010-9-26 20:16

楼主太牛了。

HHAAMM · 发表于 2010-9-26 20:16

多线程、多进程俺真的不懂，但“多个类实例同时调用一个函数也没有问题，就像是每个类实例各自有一套人马”，这个是什么现象，该如何解释。

joforn · 发表于 2010-9-26 20:17

原帖由 HHAAMM 于 2010-9-26 20:06 发表

"启用的时间"
下面代码
cTimer1.Interval = sd
cTimer2.Interval = sd + 20
cTimer3.Interval = sd + 40
cTimer4.Interval = sd + 60
cTimer5.Interval = sd + 80
cTimer6.Interval = sd + 100
改成
cTim ...

严格上来讲，它们的启动时间还是不相同。
你每执行一条语句就会花掉一点时间，虽然很短。并且系统消息是轮询的，所以它发送一条消息过来后很快就转到其它的窗体上去了，一轮下来时间又花掉不少。并且这种Timer的时间并不精确，会有很大的误差(大概10毫秒以上）。

jxnu · 发表于 2010-9-26 20:20

原帖由 HHAAMM 于 2010-9-26 20:16 发表
多线程、多进程俺真的不懂，但“多个类实例同时调用一个函数也没有问题，就像是每个类实例各自有一套人马”，这个是什么现象，该如何解释。

应该不算多线程吧，更不能算多进程吧。

就像VB里面的Timer控件一样大家都可以同时调用。

		自动登录	找回密码
密码			免费注册

[分享] Excel版【坦克大战】

评分