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

Vb.NET 贪吃蛇游戏

于 2022-03-02 发布 文件大小:27.33 kB
0 179
下载积分: 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将 数组元素作为实参
    VB将 数组元素作为实参,本例可以求出三个一元二次方程的根。请先单击命令按钮,先输入各个方程的系数,
    2023-06-29 13:10:04下载
    积分:1
  • VB演示 FileToSplit分割文件与合并文件
    VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。   关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。
    2022-11-15 13:30:03下载
    积分:1
  • VB 石头剪刀布猜拳游戏
    VB 石头剪刀布猜拳游戏,游戏操作方法:在窗体左下方的石头、剪子、布图标中,单击用户想要出的一种手势,电脑会自动给出该手势,任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑:   将用户和计算机所选的图片的序号合成一个字符串,根据这个字符串判断用户的输赢   00 石头对石头 重来   01 石头对剪子 用户赢   02 石头对布 用户输   10 剪子对石头 用户输   11 剪子对剪子 重来   12 剪子对布 用户赢   20 布对石头 用户赢   21 布对剪子 用户输   22 布对布 重来
    2023-07-03 14:45:03下载
    积分:1
  • VB.NET 多线程TCP端口扫描工具
    VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。   注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
    2022-05-25 05:47:04下载
    积分:1
  • VB删除指定路径下的文件夹【目录】
    VB6.0 删除指定路径下的文件夹【目录】 ,删除时请输入要删除文件夹的所在路径和名称,单击按钮即可。支持遍历目录删除文件,我觉得这是一个挺好的使用FSO操作的VB范例,对于VB新手学习相关的文件操作有很好的帮助。
    2022-03-19 05:31:28下载
    积分:1
  • VB 6.0 打印与打印预览功能
    VB 6.0 打印与打印预览功能源码,这个打印预览可以调节预览的放大倍率,在不同的放大状态下预览打印内容,支持打印文字内容和图片的内容,自动调用Windows默认的打印机进行打印,如测试截图所示的效果。
    2023-05-22 11:35:03下载
    积分:1
  • VB SetWindowLong限制调整窗口大小的最大值
    VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口时自动加载函数,实现对窗口最大拖动大小的控制:   Private Sub Form_Load()    Dim ret As Long    preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)    ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)   End Sub
    2022-10-14 18:50:03下载
    积分:1
  • VB实现子窗体跟随主窗体自动移动
    VB实现子窗体跟随主窗体自动移动,这个窗体的形式,相信大家也见到过,就像一些播放器的子窗口,当拖动主窗体的时候,子窗体会跟着移动,紧紧贴服,自动跟随,好像是主窗口带有磁性一样。   测试时,请在主窗口中单击“打开跟随窗体”后,会显示子窗口,此时拖动父窗口,即可看到效果。
    2023-07-19 00:25:03下载
    积分:1
  • vb实现调用其他应用程序的菜单
    vb演示如何调用其他应用程序菜单的方法,程序演示了在VB程序中,调用 windows记事本程序的菜单,不过测试发现,本程序在Windows 7中失效了,本代码写于2010年的,有些早了,当时可能只考虑了Windows XP,可能需要对以下代码加以修正,才能适用于windows 7/10环境:   hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")   If hwnd = 0 Then Exit Sub   hMainMenu = GetMenu(hwnd)   hMenu = GetSubMenu(hMainMenu, 0)   MenuID = GetMenuItemID(hMenu, 3)   AppActivate "无标题 - 记事本菜单"   Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
    2022-06-26 16:44:01下载
    积分:1
  • VB制作圆形窗体界面
    VB6.0制作圆形窗体界面,打开后是一个矩形窗体,双击后变为一个圆形窗口,创建一个矩形区域的API函数,用来将窗口恢复为矩形,同时创建一个椭圆形区域的API函数,圆形应该是一个规则的矩形窗口,代码还是挺简单的,而且还有注释,非常适合学习研究VB的窗体制作,有兴趣的下载源码。
    2022-04-14 23:47:36下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载