How to realize circle drawing to simulate fireworks effect in VB language
This article will explain in detail how to achieve circle drawing simulation fireworks effect in VB language. The content of the article is of high quality, so the editor shares it for you as a reference. I hope you will have a certain understanding of the relevant knowledge after reading this article.
Circle drawing to simulate the effect of fireworks
In VB, you can draw circles, rings, arcs and fans by using the Circle function
Let's consider it from the conventional ideas of mathematics and art:
If you want to draw a circle, you should know: Center, radius
You can fill a circle with color
If you draw only the part of the circle, it's an arc, or a fan.
How to use the circle function?
Circle drawing format
Circle (XBI y), r [, [rgb], decide whether a circle or an arc-2pi~2pi]
Corresponding explanation:
Circle Center, Radius, Color, Radian
Do you have any ideas on how to draw concentric circles?
Draw N concentric circles
1. The center of the circle remains unchanged.
2. The radius is getting larger and larger.
How to fill the circle with your favorite color?
'fill color settin
FillStyle = vbSolid
FillColor = RGB (red, green, blue)
How to simulate the fireworks effect?
The explosion of fireworks is like circles of different colors, so we can consider it from the following aspects:
1. Color the circle
2. Random position
3. Random radius
Program interface:
Concentric circle effect:
Code:
Private Sub Command1_Click () 'uses a single-precision floating-point single to represent coordinates Dim x As SingleDim y As SingleDim r As Singlex = ScaleWidth / 2y = ScaleHeight / 2R = 100Dim i As Long'N concentric circles For I = 1 To y Step 10 r = I Circle (x, y), r
Next i
End Sub
Private Sub Command2_Click () Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer ()
End Sub
About VB language how to achieve circle drawing simulation fireworks effect is shared here, I hope the above content can be of some help to you, can learn more knowledge. If you think the article is good, you can share it for more people to see.
