VB编游戏功能怎样??
1、向上前进的时候,对代码进行一个详解。
2、向上前进时,x坐标不动,y坐标-1,如果下一个有食物 下一个位置的坐标和食物的坐标相同。把食物转化成蛇的身体。
3、如果蛇吃到了食物,就开始加速,并且食物的得分+2。
4、如果没有吃到食物,蛇可以正常往前走,恢复原来的方块。
5、向下前进时,x坐标不动,y坐标+1。
6、如果有食物就把食物转化为身体。
7、如果没有吃到食物,蛇可以正常往前走,恢复原来的方块。
我2年前写的,有点幼稚。别见笑
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
Caption = "打字游戏 小游戏而已"
ClientHeight = 4800
ClientLeft = 60
ClientTop = 750
ClientWidth = 5610
LinkTopic = "Form1"
ScaleHeight = 4800
ScaleWidth = 5610
StartUpPosition = 1 '所有者中心
Begin VB.Timer Timer1
Left = 0
Top = 3600
End
Begin VB.Label Label1
Caption = "Label1"
Height = 735
Index = 0
Left = 1320
TabIndex = 0
Top = 600
Width = 855
End
Begin VB.Menu MenuGame
Caption = "数量 (&N)"
Index = 0
End
Begin VB.Menu MenuGame
Caption = "速度 (&P)"
Index = 1
End
Begin VB.Menu MenuGame
Caption = "重置 (&R)"
Index = 2
End
Begin VB.Menu MenuGame
Caption = "开始 (&S)"
Index = 3
End
Begin VB.Menu MenuGame
Caption = "输赢 (&W)"
Index = 4
End
Begin VB.Menu MenuGame
Caption = "帮助 (&H)"
Index = 5
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StartPause As Boolean
Dim n As Integer
Dim Speed As Integer
Dim Down As Integer, Hit As Integer
Dim DownLost As Integer, HitWin As Integer
Rem 自定义函数效率不高啊。。。
Private Sub Form_Initialize()
Speed = 10
DownLost = 100
HitWin = 100
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Randomize
For Index = 0 To n
If Chr(KeyCode) = Label1(Index).Caption Then
With Label1(Index)
.Top = Me.ScaleTop
.Caption = Chr(Int(Rnd * 26) + 65)
.Left = Rnd * (Me.ScaleWidth - Label1(Index).Width)
.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End With
Hit = Hit + 1
Me.Caption = "打字游戏 " & "掉落: " & Down & " 命中: " & Hit
End If
Next Index
End Sub
Private Sub Form_Load()
On Error Resume Next
Timer1.Interval = 10
Timer1.Enabled = False
Randomize
With Label1(0)
.Top = Me.ScaleTop
.Caption = Chr(Int(Rnd * 26) + 65)
.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
.Left = Rnd * (Me.ScaleWidth - Label1(0).Width)
.FontSize = 30
.BackStyle = 0
End With
For Index = 1 To n
Load Label1(Index)
With Label1(Index)
.Visible = True
.FontSize = 30
.BackStyle = 0
.Top = Me.ScaleTop
.Caption = Chr(Int(Rnd * 26) + 65)
.Left = Rnd * (Me.ScaleWidth - Label1(Index).Width)
.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End With
Next Index
End Sub
Private Sub MenuGame_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 0
n = Int(InputBox("输入数量,建议输入1至5,如果输入0或者按取消,将会去缺省值1", "输入数量") - 1)
Form_Load
StartPause = False: MenuGame(3).Caption = "开始 (&S)"
Case 1
Speed = Int(Val(InputBox("输入速度参数,建议5-20,如果输入0或按取消,将会取缺省值0,就是不会移动", "输入速度参数")))
Timer1.Enabled = False
StartPause = False: MenuGame(3).Caption = "开始 (&S)"
Case 2
Hit = 0
Down = 0
Form_Load
StartPause = False: MenuGame(3).Caption = "开始 (&S)"
Case 3
StartPause = Not StartPause
If StartPause = True Then
MenuGame(3).Caption = "暂停 (&P)"
Timer1.Enabled = True
ElseIf StartPause = False Then
MenuGame(3).Caption = "开始 (&S)"
Timer1.Enabled = False
End If
Case 4
HitWin = Int(InputBox("输入数字,当命中数等于该数时即为胜利。", "输入数字"))
DownLost = Int(InputBox("输入数字,当掉落数等于该数时即为胜利。", "输入数字"))
Case 5
MsgBox "目前没有编辑帮助"
End Select
End Sub
Private Sub Timer1_Timer()
Randomize
For Index = 0 To n
Label1(Index).Top = Label1(Index).Top + Speed
If Label1(Index).Top >= Me.ScaleHeight Then
With Label1(Index)
.Top = Me.ScaleTop
.Caption = Chr(Int(Rnd * 26) + 65)
.Left = Rnd * (Me.ScaleWidth - Label1(Index).Width)
.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End With
Down = Down + 1
Me.Caption = "打字游戏 " & "掉落 " & Down & " 命中 " & Hit
End If
Next Index
If Down >= DownLost Then MsgBox "你输啦!", vbOKOnly, "You lost": End
If Hit >= HitWin Then MsgBox "你赢啦!", vbOKOnly, "You Win": End
End Sub
vb也可以使用DirectX,当然也可以编游戏。事实上DirectX算是一种微软专门为游戏和多媒体提供的组件技术,是和语言无关的
在具体一点,好的游戏是vc环境下的win32 SDK+DirectX开发的,如果使用MFC或VB都需要运行环境的支持,换句话说,有一个中间层(比如说win98就不能直接运行vb6的程序,因为它没有安装那个中间层),这样会降低游戏运行效率。网络部分要使用DirectX的DirectPlay。
如果你要对游戏感兴趣,可以去了解一下DirectX。
当然我说的是正规的游戏,你用vb(其实不管是什么语言)也可以写出来一些简单的东西,因为编程语言都有绘图的API,但是就是像QQ那种稍微漂亮一点的游戏都肯定要用到DirectX,像爆炸,光晕,碎点这种效果不用DirectX实现基本上很难想象(软件算法模拟也行,慢,贼慢)。
VB编写 小游戏 还满不错的 很快
但是大型游戏 就不要用VB编写了
根据VB的特性 它编写出来的程序占用系统资源是很大的
编写网络游戏 一般使用.net系列的平台
建议使用C++ VC 等
VB编益智,休闲小游戏没问题
比如俄罗斯方块,五子棋,斗地主,象棋什么的平面小游戏
QQ游戏包含的各种游戏基本都可以用VB做,三维的可能比较困难
这就是最好的回答:
近日,微软遵照法庭的命令,交出了超过2亿行的Windows XP源代码。这是由九个州联合诉讼团和哥伦比亚特区共同要求的,以凭此来分析IE浏览器是否可与Windows操作系统独立!没想到,检查源代码的技术专家惊讶地发现:Windows竟然是由Basic(供初学者学习的符号程序语言)写成的。
“这简直令人不可思议,”技术专家感叹到,“这说明微软的工程师是业界里最具有创造性的程序员。”在专家的预测中,Windows至少应该是由C或者是C++这种高级语言写成的,Basic的出现的确是让人大跌眼镜。不过这个结果,似乎也情有可原,比尔盖茨本身就是一个Basic的绝顶高手,他曾说过:在Basic编程方面,他敢挑战任何人也敢接受任何人的挑战。
什么东西能做什么,在于你的能力能做什么!
映泰B350ET2主板-强大功能助您畅玩游戏
最后,USB Music Power USB音频设备加强供电功能确保USB音频设备获得充足供电,提供更清晰、震撼的音效。这非常适合喜欢使用USB音频设备的玩家。综上所述,BIOSTAR映泰B350ET2主板是一款强大且功能丰富的主板,非常适合追求高品质游戏体验的玩家。它不仅支持所有AM4处理器,还具备多种特别功能,如USB快充、...
苹果14手机如何下载b站的游戏?
iPhone可以下载b服游戏。1. 首先需要在App Store中搜索并下载b服游戏的应用程序,然后按照应用程序的提示进行安装和注册。如果应用程序需要付费,还需要进行支付操作。下载和安装完成后,即可开始游戏。2. 如果遇到下载或安装问题,可以尝试清除手机缓存或重启手机,或者咨询相关技术支持人员。另外,为了保证...
请问一下vivoiqoo压感按键怎么用
3、进入设置--游戏魔盒--游戏助手,开启对应游戏的“游戏侧边栏”开关;4、进入横屏游戏(如:和平精英、荒野行动等吃鸡类游戏),在游戏界面从屏幕顶端往内滑动,调出游戏助手侧边栏;5、点击“压感按键”进入设置界面,选择“开启压感按键”,将虚拟A、B键拖动到游戏功能键位置,保存修改后即可开启...
手机游戏手柄怎么用怎么设置
GP2031_A或iQOO_iGP2031_A),连接成功后指示灯呈红色长亮;3、进入对应游戏,比如:和平精英,在游戏设置中连接外设。注:HID模式下按键功能为默认设置(游戏官方定义的按键功能),不允许用户自行修改按键功能---不推荐使用HID模式游戏手柄2的使用方法:一、连接vivo\/iQOO闪电游戏手柄2::1、深度适配...
微星B250M主板怎么样?微星B250M BAZOOKA主板全面评测
CPU供电方面,采用第五代军规用料的微星B250M BAZOOKA主板,使用了六相由钛金电感组成的高规格供电模块。钛金电感这种价格与性能都是业界扛鼎的元件,能够为使用LGA 1151针脚的处理器提供纯净的电流,使整个硬件平台高效、稳定地运行。微星游戏军火库系列主板同样拥有高阶产品的DDR4 Boost功能,采用完全独立的...
贪吃蛇游戏编程scratch?
蛇吃的苹果越多,身体就越长,现在,我们来编苹果的代码 我们要保证屏幕上面只能出现一个苹果,就要用到变量了: 如果食物数量等于零时,就克隆一个出来,把数量增加一,被吃了后,加一分,长度增加0.1,这样蛇就会变长,就可以玩了!C语言课程设计,贪吃蛇应该怎么做? 2.1程序功能介绍 贪吃蛇游戏是一个经典小游戏,一条蛇...
flash游戏修改大师用FLASH游戏修改大师修改狂扁小朋友血量的教程_百 ...
小提示4:在你打开编辑面板的时候,游戏还在后台运行着,可能导致你要修改的变量的数值出现新的变化因而无法找到该变量,所以当那个flash游戏有暂停功能的话,最好先暂停一下,或者用其它方法使得修改数值不在变化,然后在来查找数值以更准确的找到我们需要修改的变量。3,怎么用flash游戏修改大师29 很简单啊 打开文件是用他...
代码怎么编写(代码怎么做)
问题九:程序是如何编写的?简单的说,编程就是为了借助于计算机来达到某一目的或解决某个问题,而使用某种程序设计语言编写程序代码,并最终得到结果的过程。 计算机虽然功能十分强大。可以供你上网、打游戏、管理公司人事关系等等,但是没有程序,它就等于是一堆废铁,不会理会我们对它下达的“命令”。于是,我们要驯服它,...
你都用Python 来做什么?
游戏开发 很多游戏使用 C++ 编写图形显示等高性能模块,而使用 Python 或 Lua 编写游戏的逻辑。和 Python 相比,Lua 的功能更简单,体积更小;而 Python 则支持更多的特性和数据类型。比如说,国际上指明的游戏 Sid Meier's Civilization(文明,如图 2 所示)就是使用 Python 实现的。图2Python开发的...
游戏修改器有哪些
《星云游戏修改器下载》软件特点:1.免费全功能使用的通用游戏修改器,体积小巧,界面朴素简单 2.操作方便,功能强大,主要功能,方便你快速通关 3.同时对网络游戏的数据有一定分析功能,方便查找网络游戏刷数据的BUG,游戏加速等功能 4.可以根据自已的水平自行扩展功能 5.用汇编语言写成的星云,结合了强大的...