09月22日, 2014 308次
就是触发器，当地鼠出现，点击它，就触发另一只地鼠出现。
https://wenku.baidu.com/view/b44aa433c77da26924c5b01f.html 本回答被网友采纳
PPT可以百做哪些度游知戏方道法详见内：容https://wenku.baidu.com/view/536c08244a35eefdc8d376eeaeaad1f3469311ef.html 本回答被网友采纳
打地鼠游戏。
基于Labview的打地鼠游戏程序VI，打开可直接使用。程序图：二、方案论证1.地鼠部分方案一：运用事件，实现点击的确认，并利百用随机来判定哪个口有地鼠。方案二：调用ActiveX控件，采用更简单的语句编度写，例如Flash。鉴于此次想要练习Labview的应用，选用了方案一。2.LABVIEW程序设计初步的设计并不理想，不能实现地鼠自动消失以及乱点鼠标问的惩罚。经过多次调整方案，最后采用了对于事件进行详尽分类，将地鼠的出现与消失编入事件，后来加入开答始结束按键以后，问题变得更加复杂，于是在调用子VI的基础上，又增加了“等待开始”与“失败”两个事件，在此基础上重新调整了每一个参数在不同事件中的传递以及累计运算，最后实现了数据的统计。 在等待地鼠出现的事件中加入了难度的递增专判断。对于同类数据隐藏，并把相同分类的编入簇处理，以简化框图。 3.界面美化初步美化界面，个性化了按键，对于某些属按键加入特效。最终加入音效。 本回答由提问者推荐
随机数----产生图像------鼠标点击-----刷新-----新一轮
你好！你有什么具体想法？实现什么功能呢
下面是源代码：Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture("C:\Users\Administrator\Desktop\打地e79fa5e98193e58685e5aeb931333337616563鼠\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 IntegerIf (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
我有一个百制作VB制作RPG游戏的教程，你可以找一下《教你用VB制作度RPG游戏》，这是一套完整的教知程，不过是做一套比较大的道游戏系统，不是小游戏的。里面详细介绍了用VB做出一回款角色扮演游戏的方法，也许对你有帮助答。
我有源代码，你要的话加分 来自：求助得到的回答
我简单说一下打地鼠游戏的设计思想：首先设计几个洞，让洞中随机冒出地鼠，通过鼠标控制锤子，锤子与地鼠接触，则加分，否则不加分，在规定的时间内，如果分值够了，就过关了，否则失败重来。 本回答被网友采纳
vb？？？？可以做游戏？第一次听
打地鼠游戏。 本回答由提问者推荐
是什么PPT可以做游戏吧？任何软件都可以 需学会VBA 追问 我们班会课是让我做ppt，但是又要游戏，有什么游戏可以做PPT 追答 PPT主题是游戏？还是？
什么意思啊主题是游戏么？