Shulou(Shulou.com)06/01 Report--

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.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.