admin管理员组文章数量:1637714
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Co nst D = 100 '
方格的宽度
Const BT = 3000 '
跑道底部的
y
坐标
Dim l1(22) As Integer '
每层跑道左边有几个方块
Dim l2(22) As Integer '
每层跑道右边有几个方块
Dim cx As Single '
赛车的在
x
轴的位置
Dim cy As Integer
Dim i As Integer
Private Sub Command1_Click()
cx = Width / 2 - 3 * D / 2
cy = Height - D
drawcar
For i = 1 To 20
l1(i) = 0
l2(i) = 0
drawway (i)
Next i
Timer1.Enabled = True
End Sub
Private Sub drawcar()
Line (cx, BT - 100)-Step(3 * D, D), BackColor, BF
Line (cx + D, BT - 200)-Step(D, D), BackColor, BF '
先擦
Line (cx, BT - 100)-Step(3 * D, D), RGB(225, 0, 0), BF
Line (cx + D, BT - 200)-Step(D, D), RGB(225, 0, 0), BF
End Sub
Private Sub drawway(n)
Line (Width/2-3*D/2-2*D,BT-n*D)-Step(7*D,D),BackColor, BF
'
先擦后画
Line (Width/2-3*D/2-2*D,BT-n*D)-Step(l1(n)*D, D), ,BF
Line (Width/2-3*D/2+5*D,BT-n*D)-Step(-l2(n)*D,D), ,BF
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("a"), Asc("A")
cx = cx - D
Case Asc("s"), Asc("S")
cx = cx + D
End Select
End Sub
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
If 3.5*D-Width/2+cx+D
If 3.5*D-(cx+3*D-Width/2)
If 3.5*D-(cx+2*D-Width/2)
版权声明:本文标题:赛车游戏代码大全html,赛车游戏代码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/xitong/1729247607a1192329.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论