vhdl打地鼠游戏毕业论文

你好！你有什么具体想法？实现什么功能呢

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

下面是源代码：Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg") = "C:\Users\Administrator\Desktop\打地鼠\Heaven's " End Sub Private Sub Label1_Click() = -1 = "" Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #1 '写操作 Close #1 Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #2 Close #2 Open "C:\Users\Administrator\Desktop\打地鼠\" 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() = True = True = False = 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 = 1000 Then Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #1 '写操作 Print #1, + " " + Format(Date, "M/d/yy") Close #1 ElseIf = 500 Then Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #2 Print #2, + " " + Format(Date, "M/d/yy") Close #2 Else Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #3 Print #3, + " " + Format(Date, "M/d/yy") Close #3 End If End If End If End End If End Sub Private Sub Form_Load() = 1 = False = False = False = + 700 = flags1 = False flags = True End Sub Private Sub help_Click() 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 = 1000 Then Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #1 '写操作 Print #1, + " " + Format(Date, "M/d/yy") Close #1 ElseIf = 500 Then Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #2 Print #2, + " " + Format(Date, "M/d/yy") Close #2 Else Open "C:\Users\Administrator\Desktop\打地鼠\" For Append As #3 Print #3, + " " + Format(Date, "M/d/yy") Close #3 End If End If End If Call Form_Load allnum = 0 '变化次数初始为0 oknum = 0 '打中次数初始为0 = True = True = True End Sub Private Sub options_Click() = False = False = True End Sub Private Sub pause_Click() Dim r, g, b As Integer = False = True = False = False = + 700 =

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

我有源代码，你要的话加分