Hola gente, el día de hoy quisiera compartirles un script que encontré en designal (https://designal.foroactivo.com). 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