鏀惰棌 (0) +1 璧� (0) +1 韪� (0) +1
鏀惰棌鎴愬姛鏌ョ湅鏀惰棌>>

正在阅读：用VB6.0设计简易赛车游戏用VB6.0设计简易赛车游戏

2004-04-12 10:14 出处：CSDN 作者：yaozheng 责任编辑：sdq
在本页浏览全文

　　Private Sub Timer1_Timer()
　　　Randomize
　For i = 1 To 19
　　l1(i) = l1(i + 1)
　　l2(i) = l2(i + 1)
　　drawway (i)
　Next i
　Do
　　l1(20) = Int(Rnd * 5)
　　l2(20) = Int(Rnd * 5)
　Loop Until ((l1(20) + l2(20) <= 4) And (l1(20) - l1(19) <= 1) And _
　　(l2(20) - l2(19) <= 1) And (l1(19) + l2(20) <= 4) And _
　　(l1(20) + l2(19) <= 4)) '这里生成新一层跑道，
　　'注意要筛去玩家不可能通过的情况！
　　drawway (20)
　　'以上画出跑道
　drawcar
　test

　　End Sub

　　Private Sub test()

　If 3.5*D-Width/2+cx<l1(1)*D Then Timer1.Enabled=False
　If 3.5*D-Width/2+cx+D<l1(2)*D Then Timer1.Enabled=False
　If 3.5*D-(cx+3*D-Width/2)<l2(1)*D Then Timer1.Enabled=False
　If 3.5*D-(cx+2*D-Width/2)<l2(2)*D Then Timer1.Enabled=False

　　End Sub


察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:
123在本页浏览全文
键盘也能翻页，试试“← →”键

相关文章

vb2005与sqlserver2005平台下报表预览及其打印的实现

关注我们

聚超值

热门软件

PC软件 安卓应用 iOS应用 手游电脑版
游戏专区
王者荣耀专区 绝地求生专区 炉石传说专区
IT百科 热门专题

汽车资讯

  • 正在加载中...

成都车展 宏光MINI EV 普拉多 欧拉黑猫 途达 起亚嘉华 玛奇朵 皇冠陆放 奔驰C级 哈弗神兽 坦克600 奥迪Q5 思域 卡罗拉双擎E+ 轩逸 太平洋汽车网app 新能源车

最新资讯离线随时看 聊天吐槽赢奖品
鎵嬫満璁块棶鍥炲埌椤堕儴