b2c信息网

您现在的位置是:首页 > 今日新闻 > 正文

今日新闻

射击游戏网页游戏源码(射击游戏网页版)

hacker2022-10-06 17:25:29今日新闻116
本文目录一览:1、跪求基于VB程序设计的射击类游戏!!要源代码!!最好是自己做的!!悬赏50分,给答案最好的那个啊!!

本文目录一览:

跪求基于VB程序设计的射击类游戏!!要源代码!!最好是自己做的!!悬赏50分,给答案最好的那个啊!!

我有EXCEL上发射炮弹的VBA码,我自主编写,可以看到炮弹轨迹,爆炸声和象图(自己先准备文件),复原,再发,适用小孩玩。

Sub 弹射轨迹时间函数()

'采用时间值循环,语句变得更少。

For t = 0.1 To 30

Selection.ShapeRange.IncrementLeft 20

h = 20 - 9.8 * t * t / 200

Selection.ShapeRange.IncrementTop -h

Application.Wait Now() + TimeValue("00:00:1") '系统暂停1秒;

Next t

…… ’在这里插入声象效果。

End sub

'以下可以插入声象效果和状态复原,方便下一次运行。

ActiveSheet.Shapes("Picture 19").Select

Selection.ShapeRange.IncrementTop -280# '爆炸,小图。

Application.Wait Now() + TimeValue("00:00:1") '系统暂停1秒;

ActiveSheet.Shapes("Object 9").Select

Selection.Verb Verb:=xlPrimary '出现炮声。

Application.Wait Now() + TimeValue("00:00:2") '系统暂停2秒;

ActiveSheet.Shapes("Picture 15").Select

Selection.ShapeRange.IncrementTop -280# ''爆炸,依次扩大。

Application.Wait Now() + TimeValue("00:00:3") '系统暂停1秒;

ActiveSheet.Shapes("Picture 15").Select

Selection.ShapeRange.IncrementTop 280# '撤消爆炸痕迹,图象复位。

ActiveSheet.Shapes("Picture 19").Select

Selection.ShapeRange.IncrementTop 280#

ActiveSheet.Shapes("Picture 6").Select '炮弹复位

Selection.ShapeRange.IncrementLeft -608.25

Selection.ShapeRange.IncrementTop 177#

End Sub

求一个易语言做的射击游戏狙击自动切枪的源码,大神帮帮忙。

这个做游戏的话不是一两句代码就行了的

代码多了去了

做游戏建议你用C语言

求易语言射击游戏准心带热键源码

你看看易语言自带例程里面有个射击游戏的源码,你可以参考参考!

简单的VB射击游戏源码

在窗体中添加一timer1,shape1控件

添加代码:

Dim n As Integer, m As Integer

Private Sub Form_Load()

Timer1.Interval = 1000

Shape1.Shape = 3

n = Shape1.Left

m = Shape1.Top

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + 200

Shape1.Top = Shape1.Top - 100

If Shape1.Left = Form1.Width Or Shape1.Top = 0 Then

Shape1.Left = n

Shape1.Top = m

End If

End Sub

我下载了一个网页游戏的源码,怎么用?

看这种样式又加上你说的是网页文件源代码,我能确定是用Flash Builder编译器产生的,src文件夹里面的应该是.mxml文件,用记事本打开你可以看见代码,可能你需要将这个项目加载到编译器里面才可以打开哦

网页游戏源码的使用

传上去不就行了?

网页游戏不像网络游戏,又不要你配置服务器。

如果不能运行总有错误提示吧?

把错误提示发上来给我们看看。

----------------------------------

按照说明一步一步的做啊。

不过像你发出来这个是用不成了,原因是

第五步,注册DLL

虚拟主机是不能注册dll,必须要服务器才行。

发表评论

评论列表

  • 依疚千鲤(2022-10-07 03:15:16)回复取消回复

    ) '系统暂停1秒;ActiveSheet.Shapes("Picture 15").Select Selection.ShapeRange.IncrementTop 280# '撤消爆炸痕迹,图象复位。 ActiveSheet.Shapes("Pictur

  • 泪灼邶谌(2022-10-06 19:43:17)回复取消回复

    说的是网页文件源代码,我能确定是用Flash Builder编译器产生的,src文件夹里面的应该是.mxml文件,用记事本打开你可以看见代码,可能你需要将这个项目加载到编译器里面才可

  • 俗野叙詓(2022-10-06 22:22:24)回复取消回复

    ure 15").Select Selection.ShapeRange.IncrementTop -280# ''爆炸,依次扩大。 Application.Wait Now() + TimeValue("00:00:3") '系统

  • 痴者礼忱(2022-10-07 00:15:02)回复取消回复

    Value("00:00:1") '系统暂停1秒; ActiveSheet.Shapes("Object 9").Select Selection.Verb Verb:=xlP