Creare un metronomo per console: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(Creata pagina con "Mostriamo di seguito un possibile codice per creare un metronomo da musica per console/terminale. Private Const METRONOMO As String = "|------||------|" Private Const BpM As...") |
Nessun oggetto della modifica |
||
| Riga 1: | Riga 1: | ||
Mostriamo di seguito un possibile codice per creare un metronomo da musica per console/terminale. | Mostriamo di seguito un possibile codice per creare un metronomo da musica per console/terminale. | ||
Private Const METRONOMO As String = "|------||------|" | Private Const METRONOMO As String = "|------||------|" | ||
Private Const BpM As Short = <FONT Color= | Private Const BpM As Short = <FONT Color=red>90</font> <FONT Color=gray>' ''Imposta il valore delle battute per minuto:''</font> | ||
Public Sub Main() | |||
Dim t, c, d As Short | Dim t, c, d As Short | ||
| Riga 25: | Riga 25: | ||
Loop | Loop | ||
End | |||
Versione attuale delle 08:56, 1 lug 2024
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