vb6hobbyst7 / estrelageometrica

Estrela criada por retas - em VBA

Estrela Geométrica

Estrela criada por retas - em VBA

Como é época de Natal, a seguir um código para desenhar uma estrela só utilizando segmentos de reta e geometria, para alegrar as festas.

Imagine duas retas perpendiculares.

Cada reta recebe N divisões.

Agora, uma o primeiro ponto do eixo X ao ponto logo acima do meio do eixo Y, o segundo ponto do eixo X ao próximo ponto acima do eixo Y, e repita até o fim.

O comando VBA para adicionar uma linha é, basicamente: ActiveSheet.Shapes.AddLine(x0, y0, x1, y1)

E tem outros comandos para colorir, informar a espessura e controlar. Mas, basicamente, o único comando especial é esse de criar retas.

O resultado não impressiona muito. Porém, se aumentarmos o número de pontos, fica mais divertido.

Com 10 pontos:

Com 20 pontos:

Com 35 pontos:

Não sei exatamente o nome desta curva (Marcos Melo, sabe?), porém, a técnica é muito conhecida na matemática.