Convertire i dati grezzi delle note del messaggio Midi "NoteOn" nei corrispondenti simboli del protocollo ABC di notazione musicale
Da Gambas-it.org - Wikipedia.
(Reindirizzamento da LibGabc In.gambas)
Per trasformare i dati grezzi, relativi alla nota, del Messaggio Midi "NoteOn", provenienti in modalità monofonica da un dispositivo Midi esterno (ad esempio una tastiera Midi esterna), nel corrispondente simbolo notazionale previsto dal protocollo ABC, è possibile adottare il seguente codice.
Private Const DIESIS As String = "^"
Private Const BEMOLLE As String = "_"
Private notebasse As String[] = ["C", "db", "D", "db", "E", "F", "db", "G", "db", "A", "db", "B"]
Private notealte As String[] = ["c", "db", "d", "db", "e", "f", "db", "g", "db", "a", "db", "b"]
Private fl As File
Private nt As New String[]
Private tmp As Date
Public Sub Main()
Dim disp As String = "/dev/snd"
If Dir(disp, "midi*", gb.Device).Count == 0 Then Return
' Contiene il percorso del file-device del dispositivo Midi esterno aperto da ALSA:
disp &/= Dir(disp, "midi*", gb.Device)[0]
' Apre il file-device in "Lettura" e lo pone in "Osservazione":
fl = Open disp For Read Watch
End
Public Sub File_Read()
Dim b As Byte
Read #fl, b
If b > 249 Then Return
nt.Push(CStr(b))
' Al primo dato midi utile, viene preso l'orario corrente:
If nt.Count = 1 Then tmp = Time
' Dopo i tre Messaggi Midi "Note-On" di accensione della nota e dopo gli altri tre Messaggi Midi di spegnimento della nota, viene preso nuovamente l'orario corrente:
If nt.Count = 6 Then
If (Val(nt[0]) > 143) Or (Val(nt[0]) < 160) Then
MostraRisultato(nt[1], ElaboraTempo(Time))
nt = New String[]
Endif
Endif
End
Public Sub Application_Read() ' Premendo il tasto "Invio" della tastiera, si chiude il programma
fl.Close
Quit
End
Private Function ElaboraTempo(TempoDopo As Date) As Short
Return CShort(DateDiff(tmp, TempoDopo, gb.Millisecond))
End
Private Procedure MostraRisultato(nota As String, msDurata As Short)
' Mostra in console il codice ABC relativo alla nota premuta sulla tastiera:
Print "Nota = "; Converte(nota),
' Mostra in console la durata della nota in millesimi di secondo:
Print "ms "; msDurata
End
Private Function Converte(nota As Byte) As String
' Si deve scegliere se, premendo un tasto nero della tastiera musicale, si deve inviare unitamente al simbolo della nota anche il simbolo ABC del 'diesis' (^), oppure se si deve inviare anche il simbolo ABC del 'bemolle' (_):
Dim alt As String = DIESIS ' oppure: BEMOLLE
Dim b As Byte
If nota \ 12 < 5 Then
If notebasse[nota Mod 12] = "db" Then
b = 1
Return Replace(notebasse[nota Mod 12], "db", altera) & notebasse[(nota Mod 12) - b] & String(4 - (nota \ 12), ",")
Else
Return notebasse[nota Mod 12] & String(4 - (nota \ 12), ",")
Endif
Else
If notealte[nota Mod 12] = "db" Then
b = 1
Return Replace(notealte[nota Mod 12], "db", altera) & notealte[(nota Mod 12) - b] & String((nota \ 12) - 5, ",")
Else
Return notealte[(nota Mod 12) - b] & String((nota \ 12) - 5, ",")
Endif
Endif
End
