Creare un metronomo per console

Mostriamo di seguito un possibile codice per creare un metronomo da musica per console/terminale.

Private Const METRONOMO As String = "|------||------|"
Private Const BpM As Short = 90   ' Imposta il valore delle battute per minuto:


Public Sub Main()
 
 Dim t, c, d As Short
 Dim mtr As String
 
 t = 1
 Print
 
' Avvia un ciclo infinito:
 Do
   c = Sgn(Sin(2 * Pi(1) * (t / 32)))
   d += c
   mtr = METRONOMO
   Mid(mtr, d, 1) = "\e[31m\e[1m#\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