[APORTE] [VBS] Línea giratoria usando vectores.

[.:Xx4NG3LxX:.]

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".

Código (vb) [Seleccionar] Expandir


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