+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Metronomo para la console (/thread-108.html)
Metronomo para la console - vuott - 16-09-2020
Os dejo un Metronomo para console muy muy sencillo:
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
EndRE: 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.