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
EndÚltima modificación: 26-10-2020, 15:23 por vuott.
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
Hola Vuott.
Gracias por compartir el código.
Me tome la libertad de agregarle el sonido, lo dejo adjuntado.
Saludos.
Gracias por compartir el código.
Me tome la libertad de agregarle el sonido, lo dejo adjuntado.
Saludos.
Archivos adjuntos
Última modificación: 16-09-2020, 20:04 por tincho.
1 Saludo.