Hola gente, el día de hoy quisiera compartirles un script que encontré en designal. Un foro no muy habitado últimamente, pero bueno...

Cabe decir, que el código no lo hice yo, no es mío. Lo digo para evitar malos entendidos. Lo posteo porque me parece... Interesante, y, además el código es "estudiable".

Dim Obj, Tabla(78,23)
Const PI = 3.141592654
 
Set Obj=CreateObject("WSCript.Shell")
Obj.Exec("Cmd /c Mode con cols=0 lines=0").StdOut.ReadAll
 
For Angle = 0 to 360 Step 2
   Call Limpiar
   For Tm = 1 to 10
      X = 39 + Clng(Tm * Cos(Angle * PI / 180))
      Y = 12 + Clng(Tm * Sin(Angle * PI / 180))
      Tabla(X,Y) = "*"
   Next
 
   Call Graficar
   Obj.Exec("Cmd /c Mode con cols=0 lines=0").StdOut.ReadAll
Next
 
WSCript.Sleep 3000
WSCript.Quit
 
Sub Graficar()
   For Y = 0 to 23
      For X = 0 To 78
         WSCript.StdOut.Write Tabla(X,Y)
      Next
      WSCript.Echo ""
   Next
End Sub
 
Sub Limpiar()
   For Y = 0 to 23
      For X = 0 To 78
         Tabla(X,Y) = " "
      Next
   Next
End Sub
 

* Nota: ejecutar el script mediante CScript, ya que los gráficos son en la consola.
Código creado por EddyW