Ayuda amigos
Hola tengo este segmento de código para dibujar una espiral, pero este me dibuja una espiral desigual yo quiero dibujar la espiral de arquìmedes cuya fórmula es e= a x teta que està en coordenadas polares pero no se como expresarlo en el visual. gracias
For i = 1 To 7
Circle (xmed, ymed), r, vbMagenta, 0, pi / 2
Circle (xmed, ymed), r, vbMagenta, 3 * pi / 2, 2 * pi
Circle (xmed, ymed), r, vbMagenta, pi, 3 * pi / 2
Circle (xmed, ymed), r * 2, vbMagenta, pi / 2, pi, 2
r = r * 2
Next i
For i = 1 To 7
Circle (xmed, ymed), r, vbMagenta, 0, pi / 2
Circle (xmed, ymed), r, vbMagenta, 3 * pi / 2, 2 * pi
Circle (xmed, ymed), r, vbMagenta, pi, 3 * pi / 2
Circle (xmed, ymed), r * 2, vbMagenta, pi / 2, pi, 2
r = r * 2
Next i
