Cómo escribir vb para ingresar el radio del círculo exterior y las coordenadas centrales para dibujar una estrella de cinco puntas.
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?