vb小游戏 打地鼠

2023-12-31 21:48
文章标签 vb 小游戏 地鼠

本文主要是介绍vb小游戏 打地鼠，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

运行效果（动画）

在这里插入图片描述

窗体结构

注意下面有两个隐藏的锤子，临时存储锤子图片，作为image.picture被调用。这两个图片本来应该是左边抬起来，右边按下去，但是按下去的图片找不到了，临时用两个一样的锤子。

左上角两个textbox用来显示当前老鼠坐标，用于调试。
在这里插入图片描述

实验程序说明

Image 1 的picture 设为老鼠
Image 2 的picture 设为锤子0
Image 2 的picture 设为锤子1Image 2 ，3 的visible 为false做全局变量Dim n, s As Integer '定义全局变量
'变量n用来存储击中砖块的次数，变量s用来存储所用的时间，赋值0三个时钟设为false
Timer1 interval 设为1000 程序里随级别设置为不同的值，值越小事件发生的越快。老鼠移动显示计时
Timer2 interval 设为30000  总计时
Timer3 interval 设为1000 显示刷新计时，每次事件发生时更新 击中次数和剩余时间。

在实际操作时，time2和timer3被我合并了。

代码

Dim n, s As Integer 'n是次数 s是时间
'初级
Private Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = FalseCommand4.Enabled = True
End Sub
'中级
Private Sub Command2_Click()Timer1.Interval = 800Timer1.Enabled = FalseCommand4.Enabled = True
End Sub
'高级
Private Sub Command3_Click()Timer1.Interval = 100Timer1.Enabled = FalseCommand4.Enabled = True
End Sub
'开始
Private Sub Command4_Click()n = 0: s = 0Label1.Caption = "10"   '初始化时间Text1.Text = 0          '初始化击中次数Image1.Visible = True   '看到老鼠Image1.Left = 0Image1.Top = 0Command1.Enabled = False: Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseTimer1.Enabled = TrueTimer3.Enabled = True
End SubPrivate Sub Command5_Click()Unload Me               '关闭
End Sub'窗体初始化
Private Sub Form_Load()Label1.Caption = 10Label2.Visible = False
End Sub'点到老鼠
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)n = n + 1Text1.Text = nImage1.MousePointer = 99 - customImage1.MouseIcon = Image3.Picture
End Sub
'鼠标抬起
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Image1.MousePointer = 99 - customImage1.MouseIcon = Image2.Picture
End Sub'点到空白
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.MousePointer = 99 - customPicture1.MouseIcon = Image3.Picture
End Sub
'锤子跟着鼠标移动
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.MousePointer = 99 - customPicture1.MouseIcon = Image2.Picture
End Sub
'鼠标在空白处抬起
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.MousePointer = 99 - customPicture1.MouseIcon = Image2.Picture
End Sub
'老鼠随机位置 6960 2520 默认960 1920
Private Sub Timer1_Timer()RandomizeL = Int(Rnd * 6960 - 0)     '横着移动的范围T = Int(Rnd * 2520 - 960)        '竖着移动的范围Image1.Left = Picture1.Left + LImage1.Top = Picture1.Top + TText2.Text = Image1.LeftText3.Text = Image1.Top
End Sub'倒计时
Private Sub Timer3_Timer()s = Val(Label1.Caption)s = s - 1Label1.Caption = sIf s = 0 ThenTimer1.Enabled = FalseTimer3.Enabled = FalseImage1.Visible = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueIf Text1.Text < 10 ThenMsgBox "成绩不咋地"ElseIf Text1.Text < 20 ThenMsgBox "真厉害！"ElseMsgBox "打鼠英雄"End IfEnd If
End Sub

这篇关于vb小游戏 打地鼠的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/557214。

相关文章

用VB创建开始菜单快捷方式(无需其他DLL)

用VB创建开始菜单快捷方式(无需其他DLL)

Option Explicit 　　Private Sub Command1_Click() 　　CreateProgManGroup Me, "测试", "test.grp" 　　CreateProgManItem Me, "d:\ghost.exe", "Ghost" 　　CreateProgManItem Me, "d:\setupQQ.exe", "QQ" 　　End
阅读更多...
VB和51单片机串口通信讲解（只针对VB部分）

VB和51单片机串口通信讲解（只针对VB部分）

标记：该篇文章全部搬自如下网址：http://www.crystalradio.cn/thread-321839-1-1.html，谢谢啦            里面关于中文接收的部分，大家可以好好学习下，题主也在研究中................... Commport；设置或返回串口号。 SettingS：以字符串的形式设置或返回串口通信参数。 Portopen：设置或返回串口
阅读更多...
VB项目中必需的几点技巧

VB项目中必需的几点技巧

1.    点击右上角的关闭按钮，要弹出“提示”，是否关闭，但用右键关闭时，不能重复提示 在vb中找到这个事件Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox("是否要退出", vbYesNo + vbDefaultButton2, "提示") = vbNo ThenCancel
阅读更多...
在VB.net中，如何把20240906转化成日期格式

在VB.net中，如何把20240906转化成日期格式

==标题== vb.net中，如何把20240906转化成日期格式 ==正文== 在 VB.NET 中，将一个数字字符串（如 "20240906"）转换为日期格式，你可以使用 `DateTime.Parse` 或 `DateTime.TryParse` 方法。这些方法可以将符合日期格式的字符串解析为 `DateTime` 对象。以下是如何将 "20240906" 这样的字符串转换为日期格式的示
阅读更多...
学习VB语言的步骤和资源

学习VB语言的步骤和资源

1. 基础知识 1.1 了解VB的基本语法 变量声明**: 使用 `Dim` 关键字。 Dim myVariable As Integer - **条件语句**: 使用 `If...Then...Else`。   If myVariable > 10 ThenMsgBox "Greater than 10"ElseMsgBox "10 or less"End If - **循
阅读更多...
贪吃蛇的小游戏--用C语言实现

贪吃蛇的小游戏--用C语言实现

贪吃蛇的小游戏–用C语言实现 游戏背景 贪吃蛇是久负盛名的游戏，它也和俄罗斯⽅块，扫雷等游戏位列经典游戏的⾏列。 实现基本的功能： • 贪吃蛇地图绘制 • 蛇吃⻝物的功能 （上、下、左、右⽅向键控制蛇的动作） • 蛇撞墙死亡 • 蛇撞⾃⾝死亡 • 计算得分 • 蛇⾝加速、减速 • 暂停游戏 技术要点 C语⾔函数、枚举、结构体、动态内存管理、预处理指令、链表、Win32
阅读更多...
MFC对话框贪吃蛇小游戏

MFC对话框贪吃蛇小游戏

花了近一个月的时间，学习了一下VC++深入详解，做了个贪吃蛇小游戏，虽然有很多的瑕疵，但还是想分享一下战果。 说一下思路： ①我们要绘制图形，我们可以用CClientDC(客户区设备上下文，与特定的窗口关联)声明一个dc对象作图。 当然这里我们要画蛇的身体和食物，设置一个食物类和蛇身体结构体 ②我们如何让图形动起来？SetTimer创建一个计时器，KillTimer()用来销毁计时器
阅读更多...
GameFi生存法则：从巨头争霸到小游戏革命，掀起区块链游戏的全新风暴

GameFi生存法则：从巨头争霸到小游戏革命，掀起区块链游戏的全新风暴

随着区块链技术的飞速发展，GameFi（游戏与去中心化金融的结合）正成为加密世界的一个重要领域。然而，随着时间的推移，这一领域也经历了显著的演变，从最初的3A大作到如今流行的Telegram小游戏，这种变化不仅反映了市场需求的转变，也揭示了GameFi如何在生存与繁荣之间找到平衡。 一、GameFi 的演变：从 3A 大作到 Telegram 小游戏 不同类型 GameFi 项目的优劣 Ga
阅读更多...
Unity实战案例 2D小游戏HappyGlass（模拟水珠）

Unity实战案例 2D小游戏HappyGlass（模拟水珠）

本案例素材和教程都来自Siki学院，十分感谢教程中的老师 本文仅作学习笔记分享交流，不作任何商业用途 预制体   在这个小案例中，水可以做成圆形但是带碰撞体，碰撞体比图形小一圈，顺便加上Trail renderer组件   材质 将碰撞材质的friction为0，bonciness可以按照需要修改 脚本  生成水珠的脚本并不难， 只是需要创建大量实例化对象的时候，加一个携程
阅读更多...
UNO小游戏2

UNO小游戏2

前言 hello，大家好我是文宇。最近也是抽出时间更一期了。 bug还是很多（恼），所以就当个乐子看看，反正后面还会有的，先把这玩意儿发了再说。 正文 #include<bits/stdc++.h>#include<windows.h>using namespace std;bool can = 1;int colorsz1[25];int cardsz1[25];int co
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2