rjps.net
当前位置:首页 >> 用vB做简单小游戏代码 >>

用vB做简单小游戏代码

基本上什么都不用 一个label就好'*-------------打字母游戏 ---------- Private Sub Form_Load() '<--表单 Call Key '子程序 End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(Label1) Then Call Key '打对了 生成下一个字母 If

说绝对不行有点绝.但vb不适合用来开发手机程序,vb开发软件工作量比较小,但做出来的软件代码效率都比较低,尤其是基于图形界面的游戏 ,而手机的cpu和内存资源又比较有限.现在手机程序一般是c语言体统的语言开发的,开发者能够精确掌握和控制程序占用的资源.你要是想用vb开发手机程序,不是不行,理论上可行.你首先需要设计一款手机,然后做出你自己的支持vb的手机固件,就可以用vb开发游戏啦~

简易三国志 创建9个command,1个timer,时间20000,9个text,6个farm.布置如图 代码如下 Private Sub Form_Load() Text1.Text = "100" '我方剩余士兵 Text2.Text = "170" '对方剩余士兵 Text3.Text = "180" '对方剩余士兵 Text4.Text = "200

'考到里面直接用 Option Explicit Option Base 1 Dim WithEvents Tim As Timer Dim CmdTxt$(12), CmdA!(6, 2), Ctr(8) As Byte, CmdRGB(0 To 6, 3) As Byte Dim r! Dim Word$() Dim A!() Dim ColorPoint() As Byte, wRGB() As Byte Dim PNum%

我告诉你一个非常非常简单的游戏的制作:一个command(按钮)控件,OK单击按钮设置它的Left属性为10200(记得把窗体调大一点有多大调多大)再设置它的Top属性为5040双击它,输入以下代码:Private Sub Command1_MouseMove(

Private Sub Command0_Click()Dim x As Stringx = "●"If Command2.Caption = x ThenCommand2.Caption = "○"ElseCommand2.Caption = "●"End IfIf Command4.Caption = x ThenCommand4.Caption = "○"ElseCommand4.Caption = "

猜数字 建一个文本文档,输入以下代码,后缀改为.frm用vb打开就可以了 以下是程序源码:VERSION 5.00 Begin VB.Form Form1 BorderStyle = 3 'Fixed Dialog Caption = "猜数游戏" ClientHeight = 3900 ClientLeft = 45 ClientTop = 435

贪吃蛇 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim C As Long If KeyCode = 27 Then End If KeyCode = 32 Then If Timer1.Enabled = True Then Timer1.Enabled = False Label1.Visible = True Else Timer1.Enabled = True

利用vb控件做个坦克大战类的游戏即可,炮弹和坦克都用控件实现就行.唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断.给你一个简单实现代码 这是一种碰撞检测方法,下述属于简化的矩形碰撞检测,若是需要复杂碰撞可以用一个

Private a As Long '用于计时'timer的时间设为1000,事件写入 a = a + 1 Private Sub Timer1_Timer() a = a + 1 End Sub Private Sub Form_Load() timer1.Enabled = 0 End Sub Private Sub CommandButton1_Click() a = Int(Rnd() * 100) '随机一个1~

网站首页 | 网站地图
All rights reserved Powered by www.rjps.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com