vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习

2024-02-14 19:18

本文主要是介绍vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

vb做的类似 打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习
2007年01月16日 01:26

类似打鼹鼠的游戏 ,每段时间 随机更新 小球 ,能记录打中和打错的个数

添加 一个form1 窗体上添加 一个picture控件 一个timer

全部代码:

'***********************************************

Dim OneX&, OneY             '每块的长宽
Dim ys(4, 4) As Boolean     '5*5的数组 记录是否有鼹鼠
Dim suc&, fail&             '点对和点错的个数
Private Sub Form_Load()
    Me.Show
    OneX = Picture1.Width / 5
    OneY = Picture1.Height / 5
    InitLine
    RefreshCaption
    Timer1_Timer
End Sub
Sub InitLine()
    Dim i&
    For i = 1 To 4
        Picture1.Line (OneX * i, 0)-(OneX * i, Picture1.Height)
    Next
    For i = 1 To 4
        Picture1.Line (0, OneY * i)-(Picture1.Width, OneY * i)
    Next
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim dx&, dy&
    dx = Fix(X / OneX)
    dy = Fix(Y / OneY)
    If dx > 4 Or dy > 4 Then Exit Sub
    
    If ys(dx, dy) Then
        suc = suc + 1
        ys(dx, dy) = False
    Else
        fail = fail + 1
    End If
    RefreshCaption
    RefreshPic
End Sub

Private Sub RefreshCaption()
    Me.Caption = "打中 " & suc & "个 打错 " & fail & "个"
End Sub

Private Sub RefreshPic()
    Dim i&, j&
    For j = 0 To 4
        For i = 0 To 4
            If ys(i, j) Then
                Picture1.Circle (i * OneX + OneX / 2, j * OneY + OneY / 2), IIf(OneX > OneY, OneY / 2 - 2, OneX / 2 - 2)
            Else
                Picture1.Line (OneX * i + 1, OneY * j + 1)-(OneX * (i + 1) - 1, OneY * (j + 1) - 1), vbWhite, BF
            End If
        Next
    Next
    InitLine
End Sub

Private Sub Timer1_Timer()
    Randomize
    Dim RndNum&, i&, j&
    For j = 0 To 4
        For i = 0 To 4
            If Int(Rnd * 15) <= 2 Then
                ys(i, j) = True
            End If
        Next
    Next
    RefreshPic
End Sub

'***********************************************

最终效果如下:

因百度无法提供上传 请+QQ:627083940 或+QQ群:5773874 大家共同学习

这篇关于vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/709360

相关文章

Spring Boot + MyBatis Plus 高效开发实战从入门到进阶优化(推荐)

《SpringBoot+MyBatisPlus高效开发实战从入门到进阶优化(推荐)》本文将详细介绍SpringBoot+MyBatisPlus的完整开发流程,并深入剖析分页查询、批量操作、动... 目录Spring Boot + MyBATis Plus 高效开发实战:从入门到进阶优化1. MyBatis

Mysql表的简单操作(基本技能)

《Mysql表的简单操作(基本技能)》在数据库中,表的操作主要包括表的创建、查看、修改、删除等,了解如何操作这些表是数据库管理和开发的基本技能,本文给大家介绍Mysql表的简单操作,感兴趣的朋友一起看... 目录3.1 创建表 3.2 查看表结构3.3 修改表3.4 实践案例:修改表在数据库中,表的操作主要

springboot简单集成Security配置的教程

《springboot简单集成Security配置的教程》:本文主要介绍springboot简单集成Security配置的教程,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,... 目录集成Security安全框架引入依赖编写配置类WebSecurityConfig(自定义资源权限规则

如何使用Python实现一个简单的window任务管理器

《如何使用Python实现一个简单的window任务管理器》这篇文章主要为大家详细介绍了如何使用Python实现一个简单的window任务管理器,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起... 任务管理器效果图完整代码import tkinter as tkfrom tkinter i

C++中函数模板与类模板的简单使用及区别介绍

《C++中函数模板与类模板的简单使用及区别介绍》这篇文章介绍了C++中的模板机制,包括函数模板和类模板的概念、语法和实际应用,函数模板通过类型参数实现泛型操作,而类模板允许创建可处理多种数据类型的类,... 目录一、函数模板定义语法真实示例二、类模板三、关键区别四、注意事项 ‌在C++中,模板是实现泛型编程

查看Oracle数据库中UNDO表空间的使用情况(最新推荐)

《查看Oracle数据库中UNDO表空间的使用情况(最新推荐)》Oracle数据库中查看UNDO表空间使用情况的4种方法:DBA_TABLESPACES和DBA_DATA_FILES提供基本信息,V$... 目录1. 通过 DBjavascriptA_TABLESPACES 和 DBA_DATA_FILES

最新Spring Security实战教程之表单登录定制到处理逻辑的深度改造(最新推荐)

《最新SpringSecurity实战教程之表单登录定制到处理逻辑的深度改造(最新推荐)》本章节介绍了如何通过SpringSecurity实现从配置自定义登录页面、表单登录处理逻辑的配置,并简单模拟... 目录前言改造准备开始登录页改造自定义用户名密码登陆成功失败跳转问题自定义登出前后端分离适配方案结语前言

OpenManus本地部署实战亲测有效完全免费(最新推荐)

《OpenManus本地部署实战亲测有效完全免费(最新推荐)》文章介绍了如何在本地部署OpenManus大语言模型,包括环境搭建、LLM编程接口配置和测试步骤,本文给大家讲解的非常详细,感兴趣的朋友一... 目录1.概况2.环境搭建2.1安装miniconda或者anaconda2.2 LLM编程接口配置2

使用EasyExcel实现简单的Excel表格解析操作

《使用EasyExcel实现简单的Excel表格解析操作》:本文主要介绍如何使用EasyExcel完成简单的表格解析操作,同时实现了大量数据情况下数据的分次批量入库,并记录每条数据入库的状态,感兴... 目录前言固定模板及表数据格式的解析实现Excel模板内容对应的实体类实现AnalysisEventLis

Java进阶学习之如何开启远程调式

《Java进阶学习之如何开启远程调式》Java开发中的远程调试是一项至关重要的技能,特别是在处理生产环境的问题或者协作开发时,:本文主要介绍Java进阶学习之如何开启远程调式的相关资料,需要的朋友... 目录概述Java远程调试的开启与底层原理开启Java远程调试底层原理JVM参数总结&nbsMbKKXJx