Visualizza wikitesto di 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 = <FONT Color=B#22222>90</font>   <FONT Color=gray>' ''Imposta il valore delle battute per minuto:''</font>
 
 
 '''Public''' Sub Main()
  
  Dim t, c, d As Short
  Dim mtr As String
  
  t = 1
  Print
  
 <FONT Color=gray>' ''Avvia un ciclo infinito:''</font>
  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'''