Comunidad Gambas-es

Versión completa: Metronomo para la console
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
Os dejo un Metronomo para console muy muy sencillo: Shy

Código:
Private Const METRONOMO As String = "|------||------|"


Public Sub Main()

  Dim t, d, bpm As Short
  Dim mtr As String

  bpm = 90

  t = 1
  Print
 
  Do
    d += Sgn(Sin(2 * Pi(1) * (t / 32)))
    mtr = METRONOMO
    Mid(mtr, d, 1) = "\e[31m\e[1mO\e[0m"
    Write #File.Out, "\r" & mtr & " = " & CStr(bpm) & " bpm   "
    Flush #File.Out
    If t == 31 Then t = 1
    Wait (60 / bpm) / 16
    Inc t
  Loop
 
End
Hola Vuott.
Gracias por compartir el código.
Me tome la libertad de agregarle el sonido, lo dejo adjuntado.
Saludos.