Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo escribir vb para ingresar el radio del círculo exterior y las coordenadas centrales para dibujar una estrella de cinco puntas.

Cómo escribir vb para ingresar el radio del círculo exterior y las coordenadas centrales para dibujar una estrella de cinco puntas.

¿Privado?Tipo?tPunto

x?As?Único

y?Como?Único

Fin?Tipo

Privado?Sub? Form_Load()

HScroll1.Min?=?0

HScroll1.Max?=?360

Fin?Sub

¿Privado? Sub?fun_Paint()

Const?PI?As?Double?=?3.141592653

Dim?intR?As?Integer

Dim?intO?As? tPoint

Dim?intK?As?Integer

Dim?pp(4)?As?tPoint

Dim?i?As?Integer

Me.Cls

Me.AutoRraw?AutoRedraw?=?True

intR?=?Int(Val(Text1.Text))

intO .x?=?Int(Val(Text2.Text))

intO.y?=?Int(Val(Text3.

IntK?=?Me.HScroll1.Value

Me.DrawWidth?=?10

Me.PSet?(intO.x, ?intO.y),?vbRed

For?i?=? 0?A?4

pp(i).x=?intO.x ?intR*?Sin(((intK? ?72?*?i)?/?360)?*?(2 ?*?PI))

pp(i).y?=?intO.y? ?intR?*?Cos(((intK? ?72?*?i)?/?360)? /?360)?/?360)?(2?*?PI))

Me.DrawWidth?=?6

Me.PSet?(pp(i).x , ?pp(i).y), ?vbBlue

¿Siguiente?

Me.Line?(pp(i).x, ?pp(i).y)-( pp((i? ?2)?Mod?5).x,?pp((i? ?2)?Mod?5).y),?vbNegro

Siguiente

Fin?Form_Click()

fun_Paint

Fin?Sub

¿Privado?Sub?HScroll1_Change()

fun_Paint

¿Fin?Sub

¿Privado?Sub?HScroll1_Scroll()

fun_Paint

¿Fin?