[用Excel编程怎么编]Excel没有现成的功能,要使用到宏,用ALT+F8调出宏窗口,在宏名称里输入"Comp",点创建,在新出现的窗口中输入下面代码。 Sub Comp() ' Comp Macro ' Ghostidea 记录的宏 2006-5-9 Dim...+阅读
用vb编程编一个小游戏
'窗体添加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(KeyAscii As Integer)
Dim j As Integer
If KeyAscii = 13 Then
Timer1.Enabled = True
ElseIf KeyAscii = 27 Then 'ESC暂停
Timer1.Enabled = False
ElseIf Timer1.Enabled = True Then
For j = 0 To 9
If Label1(j).Caption = UCase(Chr(KeyAscii)) Then
m = m + 1
If m = 30 Then Me.Caption = "第1级"
If m = 60 Then Me.Caption = "第2级"
If m = 90 Then Me.Caption = "第3级"
Label1(j).Top = 0
Exit For
End If
Next
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
Load Label1(i)
Label1(i).Visible = True
Next
For i = 0 To 9
Label1(i).Top = 0
Next
Timer1.Enabled = False
Timer1.Interval = 100
Label1(0).Caption = "按回车开始游戏"
Me.Caption = "第0级"
End Sub
Private Sub Timer1_Timer()
Static n As Integer
Dim i As Integer
If n = 10 Then
MsgBox "游戏结束"
Timer1.Enabled = False
End If
For i = 0 To 9
If Label1(i).Top > Form1.Height Then
Label1(i).Top = 0
Randomize
Label1(i).Caption = Chr(Int(Rnd * 26 + 65))
n = n + 1
ElseIf Label1(i).Top = 0 Then
Randomize
Label1(i).Caption = Chr(Int(Rnd * 26 + 65))
Label1(i).Top = Label1(i).Top + 100
Else
Label1(i).Top = Label1(i).Top + 100
End If
Next
End Sub
如何设计一个很简单的VB程序小游戏
利用vb控件做个坦克大战类的游戏即可,炮弹和坦克都用控件实现就行。唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断。给你一个简单实现代码 这是一种碰撞检测方法,下述属于简化的矩形碰撞检测,若是需要复杂碰撞可以用一个数组来记录大量需要碰撞检测的物体 image1里读入坦克的图片 image2里读入地雷的图片 然后用下面代码即可实现 Private Sub Form_KeyPress(KeyAscii As Integer) '按键盘A和D键控制猫图片image1左右移动 If KeyAscii = 97 Then Image1.Left = Image1.Left - 10 If KeyAscii = 100 Then Image1.Left = Image1.Left + 10 '如果坦克图片与地雷图片相遇则提示碰撞到了 If Image1.Left + Image1.Width >Image2.Left Then If Image1.LeftImage2.Top Then If Image1.Top
用VB语言编写一个猜数字的游戏
首先说一说猜数字这个游戏的玩法,一开始计算机会随机产生一个不重复的四位数,你要输入四位不重复的数与计算机给出的数作对比,如果与计算机给出的数的位置相同数字相同,那么将会是1A,如果数字相同而位置相不同,将会显示1B。例如:计算机的随机数字为:1234 ,我猜的数字为:1356 ,那么这时计算机会给你提示为:1A1B,也就是32313133353236313431303231363533e59b9ee7ad9431333234323730说,你猜的数字中,有一位数字是猜对的,而且数字位置都对,所以显示为1A;还有一个数字也猜对了,但是位置不对,所以显示为1B。就这些了,看谁猜的次数少。 首先在Form中加入一个CommandButtion控件,在Command1上点击鼠标右键,选择复制,在窗体上点击鼠标右键,选择粘贴在窗体上粘贴出九个Command1,此时出现对话框问你要不要创建控件数组,在此选择是。然后再加入两个CommandButtion控件,一个ListBox、一个Frame、一个Label 。设置窗体的Caption属性为“猜一猜”、BorderStyle为1-Fixed Single、控件数组的Captin分别为0、
1、
2、
3、
4、
5、
6、
7、
8、9,Command2的Caption为“确定",Command3的Caption为“取消",Frame1的Caption为“提示:",Label1的Cpation为“0A0B"。然后选择菜单编辑器编辑菜单为:游戏、新游戏、显示答案、结束游戏,她们的Name属性分别为:Game、New、View、End。好了,其余属性使用缺省的即可,最后的界面应跟下图一样: 以下是程序清单: Dim PcA, PcB, PcC, PcD As Integer '电脑给出的每一位数 Dim UserA, UserB, UserC, UserD As Integer '用户输入的每一位数 Dim Degree As Integer '用户猜了几次 Dim Num As Integer '判断用户输入次数的变量 Private Sub Form_Load() '程序运行行时 '初始化 For i = 0 To 9 Command1(i).Enabled = False Next i Command2.Enabled = False Command3.Enabled = False View.Enabled = False End Sub Private Sub New_Click() '开始一个新游戏时 View.Enabled = True '可以看答案 List1.Clear '清空列表框 Degree = 0 ' 对随机数生成器做初始化 Randomize Num = 1 Label1.Caption = 0 & “A" & 0 & “B" '电脑给出的每一位数 PcA = Int(9 * Rnd) Do PcB = Int(9 * Rnd) Loop While PcB = PcA Do PcC = Int(9 * Rnd) Loop While PcC = PcA Or PcC = PcB Do PcD = Int(9 * Rnd) Loop While PcD = PcA Or PcD = PcB Or PcD = PcC For i = 0 To 9 Command1(i).Enabled = True Next i Command2.Enabled = False Command3.Enabled = True End Sub Private Sub Command1_Click(Index As Integer) '用户输入时 '使得输入过的按钮无效 If Num
vb程序设计射击游戏
Private Declare Function GetObject Lib "gdi32 "
Private Declare Function GetBitmapBits Lib "gdi32 "
Private Declare Function SetBitmapBits Lib "gdi32 "
Dim PicBits() As Byte, PicInfo As BITMAP, Cnt As Long
Private Sub Command1_Click()
Set Picture1.Picture = Clipboard.GetData(vbCFBitmap)
GetObject Picture1.Picture, Len(PicInfo), PicInfo
Debug.Print PicInfo.bmWidth * PicInfo.bmHeight * 3
ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 3) As Byte
GetBitmapBits Picture1.Picture, UBound(PicBits), PicBits(1)
For Cnt = 1 To UBound(PicBits)
PicBits(Cnt) = 255 - PicBits(Cnt)
Next Cnt
SetBitmapBits Picture1.Picture, UBound(PicBits), PicBits(1)
Picture1.Refresh
End Sub
延伸阅读:
请帮忙用黄蓝黑棕橙编一个故事清晨,太阳公公睡醒了,他伸了个懒腰,慢慢爬上蓝蓝的天空,顿时暖暖的阳光照亮了整个森林。 一只黄鹂飞到树梢,欢乐地唱着歌。清脆的歌声吵醒了邻居: 一只小黑熊走出家门,摇摇晃晃地找...
编一个童话故事从前,森林王国里有一只可爱的小兔,叫贝贝。她原来是一只讲卫生的小兔子,但是她现在好像变了,兔妈妈好几次提醒贝贝,她都说:“我知道了,别烦我!”兔妈妈只好生气地走了。 时间一点一...
用城市发展为题编故事现在的城市越来越漂亮了,从以前的十多二十层楼到五六十层楼,你想知道未来的城市是怎么样的吗?那就跟着我的脚步去看看吧。 刚到未来城,就看见一位叔叔要去上班,只见那位叔叔走到...
想开发一个游戏。。。不知道用什么软件。。DirectX 是按照微软的COM(Component Object Model) 搭起来的。设计COM是希望它 能提供一个更安全,易升级,可移植的软件模块。COM用的面向对象的模式比一般的 C++更严格。例如,C...
求更正一个vb倒计时小程序你这里四个If语句中: 逻辑运算 And 怎么都可以用 字符串运算的符号 & ??????????????????????????????? If DateDiff("h", Now, #1/1/2014#) Mod 24 = 0 And DateDiff("n", Now, #1/1/2014#) Mod 60 = 0 Then 你...
编导专业里面的编讲故事用狼独木桥烟袋编一个故事相传,鲁班和他的妹妹周游天下,走到赵州,一条白茫茫的洨河拦住了去路。河边上推车的,担担的,卖葱的,卖蒜的,骑马赶考的,拉驴赶会的,闹闹攘攘,争着过河进城。河里只有两只小船摆来摆去,半...
孩子学少儿编程有什么用谁不想自家孩子优秀一点,成人之后过得好一点呢。其实很多家长不让孩子学少儿编程,主要是因为对少儿编程并不了解,不知道少儿编程是学什么,做什么的。最近几年,国家也一直在倡导人...
网络编程语言有什么用网络编程CGI CGI(common Gateway Interface,公共网关接口)。CGI脚本程序可以用C、C++等语言在多种平台上进行开发。 ASP ASP是微软公司推出的意图取代CGI的新技术。由于A SP...
用刚强后悔成功编一个小故事要长一点的用刚强后悔成功编一个小故事要长一点的,写一写我与同学之间后悔的故事:在小丽的印象中,小明永远是她最崇敬的偶像。这都来源于一天发生的一件事,令小丽最难忘的一件事。那天,是秋...