Comunidad Gambas-es
Metronomo para la console - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forumdisplay.php?fid=8)
+--- Tema: Metronomo para la console (/showthread.php?tid=108)



Metronomo para la console - vuott - 16-09-2020

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[1mO\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.  





RE: Metronomo para la console - tincho - 16-09-2020

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