如何用VB程序设计打地鼠游戏

来源:百度知道    2019/5/25 11:09:22
责任编辑:李平
字体:

好心游戏问答中心有网友提出了一个比较有代表性的问题【如何用VB程序设计打地鼠游戏】,小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。

小编为您搜罗的答案1

下面是源代码:
Form1:
Private Sub Form_Load() Dim temp As Integer Randomize
temp = Int(Rnd * 3) + 1
Form1.Picture = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg") WindowsMediaPlayer1.URL = "C:\Users\Administrator\Desktop\打地鼠\Heaven's Devils.wma" End Sub
Private Sub Label1_Click() Form2.Show Form2.num = -1 Form1.Hide
WindowsMediaPlayer1.URL = ""
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1 '写操作 Close #1
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2 Close #2
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3 Close #3 End Sub
Private Sub Label2_Click() End End Sub
Form2:
Dim allnum As Integer, oknum As Integer '定义变化次数 打中次数 Public num As Integer '判别是否第一次开始游戏 Dim flags1 As Boolean '判别文件是否保存 Public flags As Boolean '判别是否播放声音 Private Sub countine_Click() pause.Enabled = True Timer1.Enabled = True countine.Enabled = False WLXZ.Enabled = True End Sub
Private Sub exit_Click() Dim X As Integer Dim tt As Integer
X = MsgBox("是否真的退出?", vbYesNo, "退出游戏框")
If X = 6 Then
tt = MsgBox("退出游戏之前,是否保存", vbYesNo, "保存提示") If tt = 6 Then
If flags1 = True Then End Else
If Timer1.Interval = 1000 Then
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1 '写操作
Print #1, Text1.Text + " " + Format(Date, "M/d/yy") Close #1
ElseIf Timer1.Interval = 500 Then
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
Print #2, Text1.Text + " " + Format(Date, "M/d/yy") Close #2 Else
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
Print #3, Text1.Text + " " + Format(Date, "M/d/yy") Close #3 End If End If End If End End If End Sub
Private Sub Form_Load() Form4.Check1.Value = 1
WindowsMediaPlayer1.Controls.stop countine.Enabled = False pause.Enabled = False WLXZ.Enabled = False
Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left flags1 = False flags = True End Sub
Private Sub help_Click() Form3.Show End Sub
Private Sub new_game_Click() num = num + 1 Dim t As Integer
If (num > 0) Then
t = MsgBox("新游戏开始之前,是否保存", vbYesNo, "保存提示") If t = 6 Then
flags1 = True
If Timer1.Interval = 1000 Then
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1 '写操作
Print #1, Text1.Text + " " + Format(Date, "M/d/yy") Close #1
ElseIf Timer1.Interval = 500 Then
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
Print #2, Text1.Text + " " + Format(Date, "M/d/yy") Close #2 Else
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
Print #3, Text1.Text + " " + Format(Date, "M/d/yy") Close #3 End If End If End If
Call Form_Load
allnum = 0 '变化次数初始为0 oknum = 0 '打中次数初始为0 Timer1.Enabled = True pause.Enabled = True WLXZ.Enabled = True End Sub
Private Sub options_Click() Timer1.Enabled = False Form4.Show
WLXZ.Enabled = False countine.Enabled = True End Sub
Private Sub pause_Click() Dim r, g, b As Integer Timer1.Enabled = False countine.Enabled = True pause.Enabled = False WLXZ.Enabled = False
Form5.Top = Form2.Top + 700 Form5.Left = Form2.Left Form5.Show

小编为您搜罗的答案2

我有一个制作VB制作RPG游戏的教程,你可以找一下《教你用VB制作RPG游戏》,这是一套完整的教程,不过是做一套比较大的游戏系统,不是小游戏的。里面详细介绍了用VB做出一款角色扮演游戏的方法,也许对你有帮助。

小编为您搜罗的答案3

我有源代码,你要的话加分 来自:求助得到的回答

小编为您搜罗的答案4

我简单说一下打地鼠游戏的设计思想:首先设计几个洞,让洞中随机冒出地鼠
,通过鼠标控制锤子,锤子与地鼠接触,则加分,否则不加分,在规定的时间内,如果分值够了,就过关了,否则失败重来。 本回答被网友采纳

小编为您搜罗的答案5

vb????可以做游戏?第一次听 请注意:本文为编辑制作专题提供的资讯,页面显示的时间仅为生成静态页面时间而非具体内容事件发生的时间,由此给您带来的不便敬请谅解!

相关攻略及问答:

求大神指导用vb怎么做打地鼠游戏

答:1、控件: Picture1(0~8) 排三列三排 Timer1 Interval设为1000 Text1 Text 设为0 Command1 caption 设为“开始” 2、代码: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim m, i, n As Integer Private Sub Form...

教我做一个超级超级简单的VB打地鼠游戏吧,要图文...

答:图文并茂。。。。好难啊~~ 流程给你讲一下吧 9个 图片控件 1个 按钮控件 2个时间控件 按钮按下 游戏开始 按下按钮的 事件 应该是修改 时间控件 响应为 true 时间控件 是 设置时间间隔 然后 清空 图片控件的 图片 随机 1~9数字 随机数字对应 9个 ...

打地鼠vb编程,越简单越好

答:Private Const totaltime = 30 Private sum As Long, nt As Long Private Sub Command1_Click() '结束按钮 End End Sub Private Sub timer1_timer() If Timer - nt > totaltime Then Timer1.Enabled = False MsgBox "时间到!!!" Text1.Text =...

VB制作打地鼠游戏的图片问题

问:最近做了一个打地鼠游戏……先显示没有地鼠的图片,用随机数显示有地鼠的...

答:添加Imgae控件,在Image中添加图片 然后调用 Picture1(pre).Picture = Image1.Picture

vb打地鼠游戏中,怎样才能让地鼠在地洞中随机出现呀?

答:随机函数RND 假如当前共有N个地洞 那随机出的数=INT((N-1)* RND) +1 然后再判断当前随机出的数是否有显示就可以了

打地鼠中,如何控制地鼠出现并在下一次消失,求VB...

答:'窗口中就一个LABEL,名称:lblInfo '这个带有动画 Option Explicit Dim lZQ As Long Dim lCW As Long Dim dStart As Double '开始时间 Dim dStop As Double '停止时间 Dim iNum As Integer '字数 Dim lTime As Long ' Dim iTime As Integer Dim...

求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

问:求做一个简单vb的打地鼠游戏。 明天要交好久没搞好

答:昨天也有个人问 你们不会是同学吧

下面这些用vb做的小程序,哪个更简单易做

问:哪个比较适合新手的,简单易做的

答:猜数字、打地鼠比较简单

www.haoxyx.com true http://getqq.haoxyx.com/g/790/7902927.html report 7144 好心游戏问答中心有网友提出了一个比较有代表性的问题【如何用VB程序设计打地鼠游戏】,小编觉得可能对其他网友也有帮助,所以将此问答整理出来了,希望对您有帮助。小编为您搜罗的答案1下面是源代码:Form1:PrivateSubForm_Load()DimtempAsIntegerRandomizetemp=Int(Rnd*3)+1Form1.Picture=LoadPicture("C:\Users\Administrator\D
最近关注
首页推荐
热门图片
最新添加资讯
24小时热门资讯
精彩资讯
精彩推荐
热点推荐
真视界
精彩图片
社区精粹
关于本站 | 广告服务 | 手机版 | 商务合作 | 免责申明 | 招聘信息 | 联系我们
Copyright © 2004-2017 haoxyx.com All Rights Reserved. 好心游戏网 版权所有
京ICP备10044368号-1 京公网安备11010802011102号