急急急~急求用VB做出一个小游戏，类似英雄联盟的小游戏打地鼠什么的！都可以~简单点就可以！发到742735774@qq.com

来源：蜘蛛抓取(WebSpider) 时间：2017-08-22 01:06 标签： 类似欺辱尤娜的小游戏
急求一个简单的VB小游戏（不要猜数字和打地鼠）_电脑知识问答_51自学网
急求一个简单的VB小游戏（不要猜数字和打地鼠）
问题: 我们上电脑课只学了label caption command timer image 用这些东西去做一个小游戏啊，一定要快啊，明天就要交了，拜托了，要详细啊！可以发去我邮箱 回答: '赛车小游戏 '================================== '在窗体里放入 Command1
问题: 我们上电脑课只学了label caption command timer image 用这些东西去做一个小游戏啊，一定要快啊，明天就要交了，拜托了，要详细啊！可以发去我邮箱 回答: '赛车小游戏 '================================== '在窗体里放入 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
For i = 1 To 20
drawway (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()
For i = 1 To 19
l1(i) = l1(i + 1)
l2(i) = l2(i + 1)
drawway (i)
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)
'以上画出跑道
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
搜索相关文章：
(责任编辑：admin)
------分隔线----------------------------
问题: Html编辑器生成代码后会有一些半个的divspan之类的代码没有回扩，这样就会和引...
问题: 我的word档突然打不开了，昨天以前都还可以的，也不知道为什N。 就出现了个这...
问题: 我的电脑配置是这样的；台式 操作系统：Windows xp 专业版 32位 SP3 处理器：AM...
问题: NVIDIA(英伟达) GeForce(精视) 310M 图形处理器 512M Nvidia独立显卡怎么样？ ...
问题: CPU 英特尔 Pentium(奔腾) 双核 E5300 @ 2.60GHz 主 板 联想 LENOVO 显 卡 ATI ...
问题: 主板 技嘉870A 显卡 影驰GT450 CPU AMD 955 4核 内存 金士顿 4G 硬盘 500G 回答...我做了一个类似于打地鼠的小游戏，但还有点不明白的地方【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：103,049贴子：
我做了一个类似于打地鼠的小游戏，但还有点不明白的地方收藏
添加了一个当对象（image1（i））被击中时，就会出现一张被“击晕”（image2）的图，我只用随机函数控制了image1（i）的变化，为什么在游戏的时候，image2也会随机出现？求大神助我，怎么才能禁止image2不会随机出现，而是当击中image1（i）时才会出现，多谢啦！！！
vb 编程培训选择达内的理由1,企业级开发环境2,项目实战教学3,net课程可选4,金牌讲师授课5,周末/业余班任选.vb 编程培训首选达内--美国上市公司!
Private Sub Timer1_Timer()Label4.Caption = Label4.Caption - 1 '时钟倒计时
For i = 0 To 11
Image1(i).Visible = False
'灰太狼消失Next
Image1(Int(Rnd() * 11)).Visible = True
'随机函数控制灰太狼狼图片显示End Sub这是控制image1（i）代码
Private Sub Image1_Click(Index As Integer) If Image1(Index).Visible = True Then
Label2.Caption = Label2.Caption + 1
'打中次数+1
Image1(Index).Picture = Image2.Picture '击晕图显示
End IfEnd Sub这是控制image2出现的代码
究竟是哪里除了问题？？？
通用管理软件不合适,定做管理软件太昂贵,自己开发太难,何不试试vb编程工具FoxTable?
怎么没人来啊
怎么没人来啊
Private Sub Timer1_Timer()Label4.Caption = Label4.Caption - 1 For i = 0 To 11 Image1(i).Visible = False Image1(i).Picture = （未被击晕的图片）Next Randomize Image1(Int(Rnd() * 11)).Visible = TrueEnd Sub
你个BD你新建一个Image3加载出现狼的图像改Timer中的代码如下Private Sub Timer1_Timer()Dim I As LongLabel4.Caption = Label4.Caption - 1 '时钟倒计时For i = 0 To 11Image1(i).Visible = False '灰太狼消失NextRandomizeI=Int(Rnd() * 11)Image1(i).Picture=Image3.PictureImage1(i).Visible = True '随机函数控制灰太狼狼图片显示End Sub这样就行了
手机在线，无法测试
登录百度帐号推荐应用

我要回帖

更多关于 类似欺辱尤娜的小游戏 的文章

 

随机推荐