Polígonos

Como puedo graficar polígonos en basic

1 Respuesta

Respuesta
1
Solo coloca un timer en un formulario, con la propiedad interval de 500 y este seria el código de timer
escalax = 50
escalay = 50
Scale (0, 0)-(escalax, escalay)
Randomize
x = Rnd * escalax
y = Rnd * escalay
lado = Rnd * 15
ncolor = Rnd * 10
Line (x, y)-(x + lado, y), QBColor(ncolor)
Line -(x + lado, y - lado), QBColor(ncolor)
Line -(x, y - lado), QBColor(ncolor)
Line -(x, y), QBColor(ncolor)
Para que hagas estrellas, los mismo controles del otro formulario,
Timer
escalax = 100
escalay = 100
Scale (0, 0)-(escalax, escalay)
Randomize
x = Rnd * escalax
y = Rnd * escalay
lado = Rnd * 10
ncolor = Rnd * 15
Line (x, y)-(x + lado, y), QBColor(ncolor)
Line -(x + lado / 4, y + 3 * lado / 4), QBColor(ncolor)
Line -(x + lado / 2, y - lado / 4), QBColor(ncolor)
Line -(x + lado, y + 3 * lado / 4), QBColor(ncolor)
Line -(x, y), QBColor(ncolor)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas