¿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) p>
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!