Differenze tra le versioni di "Creare un metronomo per console"
Da Gambas-it.org - Wikipedia.
(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...") |
|||
| 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
