Red de conocimiento informático - Material del sitio web - ¿Cómo dibujar una estrella gráfica de cinco puntas usando VB?

¿Cómo dibujar una estrella gráfica de cinco puntas usando VB?

Puedes dibujar usando el control de línea o el comando de línea.

Primero tienes que calcular las coordenadas de los cinco puntos de la estrella de cinco puntas, y listo.

Código:

Sub privado Form_Load()

Me.AutoRedraw = True

End Sub

Privado Sub Form_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)

Const Pi = 3,14159265358979

Cls

r = Val(InputBox ("Ingrese el diámetro de la estrella de cinco puntas, mayor que 1000")) / 2

'Las coordenadas del centro son (x, y)

'Encuentra las coordenadas de la cinco puntos

X1 = X: Y1 = Y - r

X2 = X r * Cos(Pi / 10)

Y2 = Y - r * Sin (Pi / 10)

X3 = X r * Cos(54 / 180 * Pi)

Y3 = Y r * Sin(54 / 180 * Pi)

X4 = X - r * Cos(54 / 180 * Pi)

Y4 = Y3

X5 = X - r * Cos(18 / 180 * Pi)

Y5 = Y2

'Dibuja una estrella de cinco puntas

Línea (X1, Y1)-(X3, Y3)

Línea -( X5, Y5)

Línea -(X2, Y2)

Línea -(X4, Y4)

Línea -(X1, Y1)

End Sub

Espero que te ayude y espero que lo adoptes, ¡gracias!