登录
首页 » VB源码 » Vb.NET 贪吃蛇游戏

Vb.NET 贪吃蛇游戏

于 2022-03-02 发布 文件大小:27.33 kB
0 95
下载积分: 2 下载次数: 1

代码说明:

游戏说明:   1、控制键    “回车键”-----新游戏或终止游戏    “5”(数字键区的)----暂停或恢复    方向控制键(数字键区的)    “8、2、4、6”----对应控制“上、下、左、右”移动    “1”-----“左下”移动    “3”-----“右下”移动    “7”-----“左上”移动    “9”-----“右下”移动   2、地图    蓝色方块----食物(吃到食物后,蛇身长度增加一节)    红色方块----炸弹(吃到炸弹,所得分数会减去当前级别数的2倍)    地图上一次出现2个食物和1个炸弹,被蛇吃掉后会随机位置补充    灰色方块----蛇头    绿色方块----蛇身    暗海洋绿方块----奖品    当玩家吃到的食物或者炸弹达到5个时就会随机出现一次奖品,奖品    上的数字表示吃到奖品后会增加的分数。每个奖品的初始分数是20--50    之间的随机数,当奖品出现后就会开始不断的减少,所以玩家要尽快吃    到才能增加到更多的分数。   3、计分方法    每吃到一个食物,增加的分数等于当前级别的数值;    每吃到一个炸弹,扣掉的分数等于当前级别数值的2倍;    玩家的起始分数等于当前的级别数值的2倍加1    例如 等级为3,则玩家起始分数是7分;每吃到一个食物加3分;    每吃到一个炸弹减6分   4、游戏结束    当总分

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB.NET 多线程TCP端口扫描工具
    VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。   注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
    2022-05-25 05:47:04下载
    积分:1
  • VB 网络连通检测
    VB 网络连通检测,单击命令按钮可进行网络连通检测,判断是本机否连接到Internet。操作很简单,将连通测试检测结果输出到屏幕上。
    2023-08-30 14:45:02下载
    积分:1
  • VB 数据库连接通用类
    VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
    2023-04-15 17:45:04下载
    积分:1
  • VB演示矩阵的加法运算
    VB6.0演示矩阵的加法运算,本例中一共是两个矩阵,每一个矩阵都根据不同的算法生成矩阵数字序列,然后把这两个矩阵求和,最后一栏展示的是矩阵相加后的结果,以指定格式输出。看了代码,我暂时没搞懂是什么算法,感兴趣的自己下载源码,研究学习吧。
    2022-04-27 13:59:41下载
    积分:1
  • 一个演示VB API高速搜索文件的程序
    一个演示VB高速搜索文件程序,基于API来实现,用于快速查找文件,类似的例子在前几年的书籍实例中,有很多,这一个也是从VB的书中整理出来的,代码中有丰富的注释,主要是分享给VB新手参考学习的。
    2022-10-25 13:25:04下载
    积分:1
  • 分享一个VB Excel表格生成模块
    分享一个VB Excel表格生成模块,借助了模块中的ChangeToExcel.ocx组件来生成,使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。   Excel表格生成模块为该组件的源代码文件,你还可以通过源码对组件功能进行调整。   Demo文件夹下是使用此组件导出Excel文件的例子,单击按钮即可生成Excel文件。
    2022-11-26 13:10:03下载
    积分:1
  • VB让窗口标题栏闪烁效果
    VB让窗口标题栏闪烁效果源码,不过我测试没有发现标题栏闪烁,咋回事呢?实现的思路是:声明API函数Flashwindow,然后编写下面的代码:   Call FlashWindow(hwnd, 1)   If Me.Caption = "闪烁的标题栏" Then    Me.Caption = "欢迎使用管理软件! "   Else    Me.Caption = "闪烁的标题栏-www.codesc.net"   End If
    2022-08-08 08:27:55下载
    积分:1
  • 超强的音频格式文件处理动态库
    这个代码是一个支持不同音频格式的声音动态库文件,支持声音回放、音频编码、解码。他能解码(所以也能播放)WAV, MP3, OGG Vorbis, WMA, APE和CDA, 以及编码 WAV, MP3, OGG Vorbis, WMA和APE。在音频流回放上使用了 DirectSound 8(所以你需要dx8vb.dll),支持DSP,频谱分析,可视化效果等数据控制。文件夹内的示例说明:1、通吃音乐播放器 Ver 2.0(支持播放所有格式的音频文件,支持显示文件TAG,3种可视化效果(频率、时间、dBFS显示);2、CD提取转换工具 Ver 1.0(提取CD内音轨并转换为所有的支持格式);3、音频格式文件转换器 Ver 1.0(各种音频格式的相互转换);4、简单示例(一个简单的背景回放示例)。需要说明的是其中需要的部分编解码文件需要第三方的支持,以下是下载地址: APE 和 MP3: 源码中已经包含了dx8vb.dll,编译前记得引用。
    2023-04-25 07:40:03下载
    积分:1
  • VB在数据库端禁止录入重复数据
    VB在数据库端禁止录入重复数据,对插入的数据进行判断,在写入数据库时进行判断是否已经存在于数据库中,判断是基于数据库的,数据库采用的是Access,在数据库端进行重复数据判断:   rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _    ", Cnn, adOpenKeyset, adLockOptimistic   If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then    MsgBox "此记录已存在!", , "提示窗口"   Else    Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _    ,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")    Adodc1.Refresh    tlbState Toolbar1, False    Text1(0).Locked = True: Text1(1).Locked = True   End If
    2022-08-14 15:01:13下载
    积分:1
  • VB 生成中文验证的控件附实例调用
    VB 生成验证码的控件附实例调用例子,支持中文的验证码控件,内含Demo和验证码控件源码,使用时请添加中文验证码.ocx引用。验证码生成11到13的随机数数字随机数,0到6随机数,0到15随机数,从1到15的随机数,从0到14的随机数等,生成了超多的随机数数组,来生成复杂的中文和数学验证码混合体,请参见例子中的使用方法,运行效果如测试截图所示。
    2022-12-01 05:10:03下载
    积分:1
  • 696518资源总数
  • 105578会员总数
  • 20今日下载