用vb都能做些什么游戏(
如何用vb做一个水仙花数字的小游戏? -
1、首先双击桌面图标启动visual basic 6.0。2、然后新建工程,选择标准EXE。3、选择完工程后,点击打开,就可以新建一个exe工程了。4、然后双击 FORM1 窗体,在弹出的代码窗体中复制该代码到Form_Click() 事件中。5、代码:If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^好了吧!
Private Sub Label2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbLeftButton Then '如果按下鼠标左键'记录下要拖动控件的位置Label2X = Label2(Index).Left Label2Y = Label2(Index).Top Label2(Index).Drag 1 '启动拖动操作End I等我继续说。
1、首先双击桌面图标启动visual basic 6.0。2、然后新建工程,选择标准EXE。3、选择完工程后,点击打开,就可以新建一个exe工程了。4、然后双击 FORM1 窗体,在弹出的代码窗体中复制该代码到Form_Click() 事件中。5、代码:If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^好了吧!
Private Sub Label2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbLeftButton Then '如果按下鼠标左键'记录下要拖动控件的位置Label2X = Label2(Index).Left Label2Y = Label2(Index).Top Label2(Index).Drag 1 '启动拖动操作End I等我继续说。
做个贪吃蛇,flppy bird,纵向像素赛车,推箱子,水果机这些都不难,运用到一些特殊游戏算法,贪吃蛇:创建pictureBox控件数组, 然后加身子就load picture1(picture1.UBound+1)在声明一个动态数2d数组,每个身子都有一个X,Y值每移动一次贪吃蛇,头部先走一步后面的身子就向前一个身子的位置X,Y移动fl到此结束了?。
一些简单的单机游戏,或者是局域网对战类的游戏都是VB可以胜任的,现在的VB已经不是以前的VB了。现在的VB借助.NET平台强大的类库已经可以飞向VISTA操作系统,参与桌面应用程序的开发了。祝你成功哦。需要源码学习,你也可以联系我。
求vb6.0制作小游戏的代码? -
2.文字冒险游戏,先是用command按钮来选择人物,然后就分开不同的线来玩,最后有不同的结局。(就像是俺妹的PSP游戏一样,或者跟大部分的GALgame一样。)3.贪吃蛇游戏谢谢!!!代码要简洁一点。。高一水平,水平不用太高!!!问题补充:不是三题全部要做。。。而是随便选择一题(个人推荐第二题和希望你能满意。
软件不太清楚,和c编出来的长的差不多,一般都是大型财务软件。游戏,比如三国志6就是vb做的。国内的游戏本身就不是很多,一般都是个人在搞,有个精英战警2算是大型游戏,还有卡通梦幻曲。
VB可以做什么游戏 -
1:图像绘制。2:声音播放。3:用户输入控制。4:文件的读写。其中2、3、4基本可以用VB的基础语言功能和操作系统提供的API解决,唯独绘图需要引擎来解决。除非是很小的小游戏,否则你不太可能用系统控件去做一个游戏,你也不能天才到啥都自己实现出来,你就算有那么天才,也没那个时间精力,也没有好了吧!
代码如下:'贪吃蛇代码(无控件、全代码)Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private Type ShenTi F As Long X As Long好了吧!
各一个最简单的vb打字游戏代码 -
' '下面是窗体代码,在VB6.0 调试通过:'在窗体上放置下面6 个控件:' Option1: 用于进行字符类型选择' Label1: 用于显示下落的字符' Label2: 用于显示游戏信息' Timer1: 用于移动字符' Picture1:下落字符的背景' Text1: 用于显示游戏者键入的字符'在属性窗口将Option1 和Label1 的Index 属性设置为0说完了。
Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = True Label1.BackStyle = 0 Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50 ChuShiHua End Sub Private Sub Form_Resize()On Error GoTo 1:With Me If .WindowState <> 1 Then .Cls说完了。