用VB怎么做赛马的程序?

用VB怎么做赛马的程序?,第1张

给你个思路吧,设定5个定时器,当然也可以用一个定时器,不过先被判断的马优势比较大。用随机数,10*rand(),这样就可以每次走10以内的随机数。然后图片的X+随机数,图片就移动过去了。然后先到终于的马就胜出,接下来就是你做的处理,赔钱或收钱了,哈哈

说一下大概思路.

给定一个全局变量

end_struts,记录比骞状态,初始状态为0,表示没有一匹马到终点

给定一个全局变量,记录第一匹到终点马的编号

first_id

给定一个三个记时器.

分别控制三匹马的速度和进度.当马到终点时

该计时器停止

end_struts

=

end_struts+1

if

first_id=1

then

first_id

=该马的编号

end

if

if

end_struts=3

then

结束

end

if

--OK完成

窗体上添加2个图片,分别设置picture属性为一个兔子,一个乌龟

设置2个timer控件,用来控制兔子和乌龟的速度

在timer的timer事件中写 兔子的left变化,乌龟的left变化,就可以开始比赛了

比赛结果要划定一个终点,先到终点的先不获胜。

就这么简单


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/11208668.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-14
下一篇 2023-05-14

发表评论

登录后才能评论

评论列表(0条)

保存