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

GAMBAS
  1. Private Const METRONOMO As String = "|------||------|"
  2.  
  3.  
  4. Public Sub Main()
  5.  
  6.   Dim t, d, bpm As Short
  7.   Dim mtr As String
  8.  
  9.   bpm = 90
  10.  
  11.   t = 1
  12.  
  13.   Do
  14.     d += Sgn(Sin(2 * Pi(1) * (t / 32)))
  15.     mtr = METRONOMO
  16.     Mid(mtr, d, 1) = "\e[31m\e[1m#\e[0m"
  17.     Write #File.Out, "\r" & mtr & " = " & CStr(bpm) & " bpm   "
  18.     Flush #File.Out
  19.     If t == 31 Then t = 1
  20.     Wait (60 / bpm) / 16
  21.     Inc t
  22.   Loop
  23.  


Hola Vuott.
Gracias por compartir el código.
Me tome la libertad de agregarle el sonido, lo dejo adjuntado.
Saludos.