设计一个简单的游戏vb
@阴泄5427:■用vb编一个简单的游戏(代码)(要详细) -
燕兴13291623238…… '猜数字,这个简单了吧. Private Sub Form_Load() Randomize num = Int(Rnd * 1000) str1 = "输入一个0到999间的整数" Do num1 = Val(InputBox(str1)) If num1 > num Then str1 = "大了" ElseIf num1 < num Then str1 = "小了" Else MsgBox "恭喜您!答对了." Exit Do End If Loop End Sub
@阴泄5427:如何设计一个很简单的VB程序小游戏 -
燕兴13291623238…… 利用vb控件做个坦克大战类的游戏即可,炮弹和坦克都用控件实现就行.唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断.给你一个简单实现代码 这是一种碰撞检测方法,下述属于简化的矩形碰撞检测,若是需要复杂碰撞可以用一个...
@阴泄5427:做一个VB的小游戏,难度不用太高,程序十句左右就够了,只要简单的和case语句 就足够了,希望在线的帮下忙 -
燕兴13291623238…… ' 锤子剪刀布 Private Sub Command1_Click() Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("我已想好了,你出什么?(1=锤子, 2=剪刀,3=布:", "猜拳")) Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess ...
@阴泄5427:求一个简短的VB小游戏程序代码,紧急!!! -
燕兴13291623238…… Private Sub Command1_Click() Dim a As Integer, b As Integer, s As String MsgBox "我记住一个数,你根据我的提示猜猜是这个数是几" Randomize a = Int(Rnd * 100) s = InputBox("写出你猜的数") Do While s "" b = Val(s) If a ...
@阴泄5427:求一个VB精简版能做的简单小游戏的制作过程和代码 -
燕兴13291623238…… 一个timer 一个label 在timer里写随机移动 label位置 让玩家去点击label 点中则加几分~ 你可自行调节移动的速度 来增加难度 left top这2个属性是位置 用rnd函数随机
@阴泄5427:求一个VB 小游戏代码 越简单越好谁帮忙写一个 网站上复制的不要 -
燕兴13291623238…… Private Sub Form_Click() Dim p As POINTAPI Dim Px As Integer Dim Py As Integer Call GetCursorPos(p) Px = CInt(ScaleWidth * Rnd) Py = CInt(ScaleHeight * Rnd) If Px + 500 > ScaleWidth Then Px = Px - 550 ElseIf Px - 500 < 0 Then Px = Px + ...
@阴泄5427:用vb编程编一个小游戏 -
燕兴13291623238…… '窗体添加label1控件,将index属性设置为0,使成为控件数组,再添加timer1控件 Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Dim m As Integer Private Sub Form_KeyPress(...
@阴泄5427:用vb做一个益智小游戏 -
燕兴13291623238…… Dim intI As Integer Dim intJ As Integer Dim intH As Integer Dim intS(0 To 11) As Integer Private Sub Command1_Click() '寻找: Dim intG As Integer If intH + 6 > 11 Then intG = intH - 6 Else intG = intH + 6 End If For intI = 0 To 11 If intI = intS(...
@阴泄5427:用VB编写一个小游戏 -
燕兴13291623238…… 如果要做1-52的牌的话,建议这么来,1-4是1,5-8是2……以此类推,37-40是10吧,应该不是45吧?这种情况下,只要将牌的序号整除4,然后+1得到的结果就是拍的数值了,比如9/4+1=3,这张牌是3,再假设1是黑桃,2是红桃,3是梅花,4是方块,那么将牌的序号对4去模,就能得到牌对应的花色,比如9MOD4=1,那么这张牌的花色就是黑桃.加牌的方法很简单,你讲1-52张排做一个数组,,里面填充的值是1-52每次抽牌都是一个1-52的随机数(要无限循环,直到取到牌才break出来),比如取到了33号牌,那么就标记一下33号的数字为0,这样你下次再随机抽中33的时候判断一下他的数值是不是0就能知道这张牌是不是被抽走了.
@阴泄5427:如何用vb写一个这样的小游戏 -
燕兴13291623238…… 把代码复制到空窗体中按F5运行即可. Option Explicit 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(...
燕兴13291623238…… '猜数字,这个简单了吧. Private Sub Form_Load() Randomize num = Int(Rnd * 1000) str1 = "输入一个0到999间的整数" Do num1 = Val(InputBox(str1)) If num1 > num Then str1 = "大了" ElseIf num1 < num Then str1 = "小了" Else MsgBox "恭喜您!答对了." Exit Do End If Loop End Sub
@阴泄5427:如何设计一个很简单的VB程序小游戏 -
燕兴13291623238…… 利用vb控件做个坦克大战类的游戏即可,炮弹和坦克都用控件实现就行.唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断.给你一个简单实现代码 这是一种碰撞检测方法,下述属于简化的矩形碰撞检测,若是需要复杂碰撞可以用一个...
@阴泄5427:做一个VB的小游戏,难度不用太高,程序十句左右就够了,只要简单的和case语句 就足够了,希望在线的帮下忙 -
燕兴13291623238…… ' 锤子剪刀布 Private Sub Command1_Click() Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("我已想好了,你出什么?(1=锤子, 2=剪刀,3=布:", "猜拳")) Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess ...
@阴泄5427:求一个简短的VB小游戏程序代码,紧急!!! -
燕兴13291623238…… Private Sub Command1_Click() Dim a As Integer, b As Integer, s As String MsgBox "我记住一个数,你根据我的提示猜猜是这个数是几" Randomize a = Int(Rnd * 100) s = InputBox("写出你猜的数") Do While s "" b = Val(s) If a ...
@阴泄5427:求一个VB精简版能做的简单小游戏的制作过程和代码 -
燕兴13291623238…… 一个timer 一个label 在timer里写随机移动 label位置 让玩家去点击label 点中则加几分~ 你可自行调节移动的速度 来增加难度 left top这2个属性是位置 用rnd函数随机
@阴泄5427:求一个VB 小游戏代码 越简单越好谁帮忙写一个 网站上复制的不要 -
燕兴13291623238…… Private Sub Form_Click() Dim p As POINTAPI Dim Px As Integer Dim Py As Integer Call GetCursorPos(p) Px = CInt(ScaleWidth * Rnd) Py = CInt(ScaleHeight * Rnd) If Px + 500 > ScaleWidth Then Px = Px - 550 ElseIf Px - 500 < 0 Then Px = Px + ...
@阴泄5427:用vb编程编一个小游戏 -
燕兴13291623238…… '窗体添加label1控件,将index属性设置为0,使成为控件数组,再添加timer1控件 Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Dim m As Integer Private Sub Form_KeyPress(...
@阴泄5427:用vb做一个益智小游戏 -
燕兴13291623238…… Dim intI As Integer Dim intJ As Integer Dim intH As Integer Dim intS(0 To 11) As Integer Private Sub Command1_Click() '寻找: Dim intG As Integer If intH + 6 > 11 Then intG = intH - 6 Else intG = intH + 6 End If For intI = 0 To 11 If intI = intS(...
@阴泄5427:用VB编写一个小游戏 -
燕兴13291623238…… 如果要做1-52的牌的话,建议这么来,1-4是1,5-8是2……以此类推,37-40是10吧,应该不是45吧?这种情况下,只要将牌的序号整除4,然后+1得到的结果就是拍的数值了,比如9/4+1=3,这张牌是3,再假设1是黑桃,2是红桃,3是梅花,4是方块,那么将牌的序号对4去模,就能得到牌对应的花色,比如9MOD4=1,那么这张牌的花色就是黑桃.加牌的方法很简单,你讲1-52张排做一个数组,,里面填充的值是1-52每次抽牌都是一个1-52的随机数(要无限循环,直到取到牌才break出来),比如取到了33号牌,那么就标记一下33号的数字为0,这样你下次再随机抽中33的时候判断一下他的数值是不是0就能知道这张牌是不是被抽走了.
@阴泄5427:如何用vb写一个这样的小游戏 -
燕兴13291623238…… 把代码复制到空窗体中按F5运行即可. Option Explicit 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(...