本文目录一览：

• 1、《我的世界手机版》1.2烟花代码是什么
• 2、怎么样用符号打出烟花图案！告诉我符号代码！谢谢
• 3、百度上java烟花代码改成按类编写，改变其烟花消失方式，实现鼠标一点实现多个烟花绽放
• 4、vb怎样做礼花绽放的效果，求程序代码。
• 5、关于VC或者MFC编程环境下，烟花绽放程序的C代码

《我的世界手机版》1.2烟花代码是什么

我的世界手机版1.2烟花代码是什么?我的世界烟花是新增的物品，玩家们不是很清楚它的代码。下面小编为大家分享。

我的世界手机版1.2烟花代码

这里的烟花指的是烟花火箭，其数据值DEC: 401 HEX: 191 BIN: 110010001。

实体id为：fireworks_rocket

如果在指令中要用到烟花火箭，只要输入上方的实体id就可以了。

怎么样用符号打出烟花图案！告诉我符号代码！谢谢

┏╮/╱

╰★╮

╱/╰┛

╱

/

这个图案

直接用特殊符号复制粘贴就可以了。

百度上java烟花代码改成按类编写，改变其烟花消失方式，实现鼠标一点实现多个烟花绽放

喔哇，

都是啥子年代了，

还食古不化，

在触摸屏幕用手指划动而产生燃放烟花的虚拟图像效果，

早就被时代彻底底抛弃了！！

现在都是在空中一划，根据手势，根据手势的空间运动，

立即就是实际来真格的，

真实、震撼、空间大爆炸、场面骇人、惊天动地。

无接触，

摒弃虚拟的虚假玩意儿。

你吹一口气，

燃放装置就喷出一股火焰。

机械加工能力和基础强劲的，

产生1米边长见方立体焰火造型，

与产生100米见方焰火造型的设备是通用的。

你与情侣 *** “刷脸”就立即产生肖像燃放造型，

其详细的工程技术细节，

早就有中英文对照的文本，

照着去做就可以了，

无需操作机床加工的人员，

去“进一步研究思考”、去开展“创造性的工作”。

vb怎样做礼花绽放的效果，求程序代码。

用记事本生成以下四个文件，再到VB中新建一个工程，加入这4个文件，就可以看到礼花绽放效果。

CExplosion.cls文件内容：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

Persistable = 0 'NotPersistable

DataBindingBehavior = 0 'vbNone

DataSourceBehavior = 0 'vbNone

MTSTransactionMode = 0 'NotAnMTSObject

END

Attribute VB_Name = "CExplosion"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

' CExplosion - Basically a collection of CFrags.

Option Explicit

Private m_Col As Collection

Private m_hDC As Long

' X and Y are the start position.

' How many frags do you want?

Public Sub Setup(x As Single, y As Single, FragCount As Integer, Gravity As Single, hDC As Long)

Dim i As Integer

Dim frag As CFrag

Dim Direction As Single, vel As Single

Set m_Col = New Collection

For i = 1 To FragCount

Set frag = New CFrag

Direction = Rnd * (2 * pi)

vel = (Rnd * 20) + 10

frag.Init x, y, Direction, vel, Gravity

m_Col.Add frag

Next i

m_hDC = hDC

End Sub

' Move and draw the frags.

Public Function Move() As Boolean

Dim frag As CFrag

Dim DeadCount As Integer

For Each frag In m_Col

With frag

If Not .Move Then DeadCount = DeadCount + 1

Ellipse m_hDC, .x - 2, .y - 2, .x + 1, .y + 1

End With

Next frag

Move = Not (DeadCount = m_Col.Count)

End Function

CFrag.cls文件内容：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

Persistable = 0 'NotPersistable

DataBindingBehavior = 0 'vbNone

DataSourceBehavior = 0 'vbNone

MTSTransactionMode = 0 'NotAnMTSObject

END

Attribute VB_Name = "CFrag"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

' CFrag - Represents a flying object with velocity and direction.

' From this it can work out a path of co-ordinates.

' Basic trigonometry is used.

Option Explicit

Private m_Direction As Single ' In Radians.

Private m_Velocity As Single

Private m_Gravity As Single ' Make it fall towards bottom of screen.

Private m_X As Single, m_Y As Single

' Setup the object.

Public Sub Init(XStart As Single, YStart As Single, Direction As Single, Velocity As Single, Gravity As Single)

m_Direction = Direction

m_Velocity = Velocity

m_Gravity = Gravity

m_X = XStart

m_Y = YStart

End Sub

' Move the object along its path.

Public Function Move() As Boolean

m_Velocity = m_Velocity - 1 ' Decrease speed.

If m_Velocity 0 Then

m_X = m_X + (m_Velocity * Cos(m_Direction))

m_Y = m_Y + (m_Velocity * Sin(m_Direction)) + m_Gravity

Move = True

' Else it has stopped.

End If

End Function

Public Property Get x() As Single

x = m_X

End Property

Public Property Get y() As Single

y = m_Y

End Property

CTrail.cls文件内容：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

Persistable = 0 'NotPersistable

DataBindingBehavior = 0 'vbNone

DataSourceBehavior = 0 'vbNone

MTSTransactionMode = 0 'NotAnMTSObject

END

Attribute VB_Name = "CTrail"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

' CTrail - Display a trail of dots for a set length.

Option Explicit

Private m_Direction As Single

Private m_Length As Integer

Private m_hDC As Long

Private m_X As Single, m_Y As Single

Public Sub Init(x As Single, y As Single, Direction As Single, Length As Integer, hDC As Long)

m_X = x

m_Y = y

m_Direction = Direction

m_Length = Length

m_hDC = hDC

End Sub

Public Function Move() As Boolean

If m_Length 0 Then

m_Length = m_Length - 1

m_X = m_X + 10 * Cos(m_Direction)

m_Y = m_Y + 10 * Sin(m_Direction)

Sparkle m_X, m_Y

Move = True

Else

Move = False

End If

End Function

' Draw a random splatter of dots about x,y.

Private Sub Sparkle(x As Single, y As Single)

Dim i As Byte

Dim nX As Single, nY As Single

Dim angle As Single

For i = 1 To (Rnd * 5) + 3

angle = Rnd * (2 * pi)

nX = x + (3 * Cos(angle))

nY = y + (3 * Sin(angle))

Ellipse m_hDC, nX - 1, nY - 1, nX + 1, nY + 1

Next i

End Sub

Public Property Get x() As Single

x = m_X

End Property

Public Property Get y() As Single

y = m_Y

End Property

frmExplode.frm文件内容：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

VERSION 5.00

Begin VB.Form frmExplode

Caption = "Form1"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

FillStyle = 0 'Solid

LinkTopic = "Form1"

ScaleHeight = 213

ScaleMode = 3 'Pixel

ScaleWidth = 312

StartUpPosition = 3 'Windows Default

WindowState = 2 'Maximized

Begin VB.CommandButton cmdExit

Caption = "Exit"

Height = 375

Left = 3000

TabIndex = 2

Top = 2520

Width = 1215

End

Begin VB.CommandButton cmdClear

Caption = "Clear"

Height = 375

Left = 1680

TabIndex = 1

Top = 2520

Width = 1215

End

Begin VB.PictureBox Picture1

BackColor = H00000000

FillStyle = 0 'Solid

Height = 2295

Left = 120

ScaleHeight = 149

ScaleMode = 3 'Pixel

ScaleWidth = 301

TabIndex = 0

Top = 120

Width = 4575

End

Begin VB.Timer tmrMove

Enabled = 0 'False

Interval = 10

Left = 4080

Top = 120

End

End

Attribute VB_Name = "frmExplode"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

' Explosion - Simulate fireworks on your PC. Just click on the black box!

Option Explicit

Private explosion As CExplosion

Private trail As CTrail

Private bExplode As Boolean

Private Sub cmdClear_Click()

Picture1.Cls

End Sub

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub Form_Resize()

' Keep everything looking good.

Dim h As Single

On Error Resume Next

h = ScaleHeight - cmdClear.Height

Picture1.Move 0, 0, ScaleWidth, h

cmdClear.Move 0, h

cmdExit.Move 0 + cmdClear.Width, h

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

If Not tmrMove.Enabled Then

' Create a new trail...

' Choose a color from a list.

Picture1.ForeColor = Choose(Int(Rnd * 5) + 1, vbRed, vbWhite, vbCyan, vbGreen, vbYellow)

Picture1.FillColor = Me.ForeColor

Set trail = New CTrail

' Choose random direction from 255 to 344

trail.Init x, y, Radians(Int(Rnd * 90) + 225), Int(Rnd * 30) + 20, Picture1.hDC

tmrMove.Enabled = True ' Timer will handle drawing.

End If

End Sub

Private Sub tmrMove_Timer()

' Note that the move functions also draw.

' They return false when the object no longer is moving.

If trail.Move = False And bExplode = False Then

' The trail has stopped so explode.

bExplode = True

Set explosion = New CExplosion

explosion.Setup trail.x, trail.y, Int(Rnd * 30) + 10, 9, Picture1.hDC

End If

If bExplode Then

If explosion.Move = False Then

' Reset for a new explosion!

tmrMove.Enabled = False

bExplode = False

End If

End If

End Sub

' Simple function to convert degrees to radians.

Private Function Radians(sngDegrees As Single) As Single

Radians = sngDegrees * pi / 180

End Function

modStuff.bas文件内容：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Attribute VB_Name = "modStuff"

Option Explicit

' To get Pi type "? 4 * Atn(1)" in the immediate window,

' copy the result into code!

Public Const pi = 3.14159265358979

Public Declare Function Ellipse Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

关于VC或者MFC编程环境下，烟花绽放程序的C代码

可惜一开始没能画成圆,所以整个过程都是菱形的变换,希望大家多多指教,能够想办法把初始状态就围成一个圆.

#include "stdlib.h"

#include"graphics.h"

main()

{int gd=DETECT,gr,a[8],b[8],x,y,i,j,c;

initgraph(gd,gr,"");

randomize();

for(;!kbhit();)

{x=rand()%500+100; /*随机中心坐标*/

y=rand()%300+100;

a[0]=x; /*各点坐标的计算,我的烟花图形没能是圆的*/

b[0]=y-10;

a[1]=a[0]+5;

a[2]=a[1]+5;

a[3]=a[1];

a[4]=a[0];

a[5]=a[0]-5;

a[6]=a[5]-5;

a[7]=a[6]+5;

for(j=1;j5;j++)

b[j]=b[j-1]+5;

for(j=5;j8;j++)

b[j]=b[j-1]-5;

for(j=0;j6;j++) /*烟花的大小设定*/

{

for(i=0;i8;i++)

{

c=rand()%13+1; /*各点的颜色随机*/

setcolor(c);

circle(a[i],b[i],1);

}

delay(5000);

cleardevice();

b[0]-=10; /*各点的坐标变换*/

a[1]+=5;

b[1]-=5;

a[2]+=10;

a[3]+=5;

b[3]+=5;

b[4]+=10;

a[5]-=5;

b[5]+=5;

a[6]-=10;

a[7]-=5;

b[7]-=5;

}

}

getch();

closegraph();

}