急求一个简单的VB小游戏(不要猜数字和打地鼠)

来源:百度知道    2019/5/25 20:54:35
责任编辑:张小俊
字体:

好心游戏问答中心有网友提出了一个比较有代表性的问题【急求一个简单的VB小游戏(不要猜数字和打地鼠)】,【急求一个简单的VB小游戏(不要猜数字和打地鼠)】具体问题如下:

我们上电脑课只学了label caption command timer image 用这些东西去做一个小游戏啊,一定要快啊,明天就要交了,拜托了,要详细啊!可以发去我邮箱125623810@qq.com
小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。

小编为您搜罗的答案1

拼图小游戏,我给你发,已经发送,请查收

小编为您搜罗的答案2

'赛车小游戏
'==================================
'在窗体里放入 Command1 和 Timer1 就行了
'A,D 控制左右方向。S,W 控制减速和加速
'*******************************************************************************
'****************************************************************************
Const D = 200 '方格的宽度
Const BT = 3000 '跑道底部的y坐标
Dim l1(22) As Integer '每层跑道左边有几个方块
Dim l2(22) As Integer '每层跑道右边有几个方块
Dim cx As Single '赛车的在x轴的位置

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 - 200)-Step(3 * D, D), BackColor, BF
Line (cx + D, BT - 400)-Step(D, D), BackColor, BF '先擦
Line (cx, BT - 200)-Step(3 * D, D), RGB(225, 0, 0), BF
Line (cx + D, BT - 400)-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_KeyDown(keyascii As Integer, Shift As Integer)
Select Case keyascii
Case Asc("w"), Asc("W")
Timer1.Interval = 50
Case Asc("s"), Asc("S")
Timer1.Interval = 500
End Select
End Sub

Private Sub Form_KeyPress(keyascii As Integer)
Select Case keyascii
Case Asc("a"), Asc("A")
cx = cx - D
Case Asc("d"), Asc("D")
cx = cx + D
End Select
End Sub

Private Sub Form_KeyUp(keyascii As Integer, Shift As Integer)
Select Case keyascii
Case Asc("w"), Asc("W"), Asc("s"), Asc("S")
Timer1.Interval = 150
End Select
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
Timer1.Interval = 150
Command1.Caption = "开始"
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 < 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 请注意:本文为编辑制作专题提供的资讯,页面显示的时间仅为生成静态页面时间而非具体内容事件发生的时间,由此给您带来的不便敬请谅解!

相关攻略及问答:

《打地鼠》猜数字?

答:3吗,我蒙的

www.haoxyx.com true http://getqq.haoxyx.com/g/790/7903402.html report 3965 好心游戏问答中心有网友提出了一个比较有代表性的问题【急求一个简单的VB小游戏(不要猜数字和打地鼠)】,【急求一个简单的VB小游戏(不要猜数字和打地鼠)】具体问题如下:我们上电脑课只学了labelcaptioncommandtimerimage用这些东西去做一个小游戏啊,一定要快啊,明天就要交了,拜托了,要详细啊!可以发去我邮箱125623810@qq.com小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。小编为您搜罗的答案1拼图小游戏,我给你发,已经发送,请查
最近关注
首页推荐
热门图片
最新添加资讯
24小时热门资讯
精彩资讯
精彩推荐
热点推荐
真视界
精彩图片
社区精粹
关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
Copyright © 2004-2017 haoxyx.com All Rights Reserved. 好心游戏网 版权所有
京ICP备10044368号-1 京公网安备11010802011102号