[Open-Source] - Mattis Mini Midi Dings

[turboPASCAL]

Hi,

Das Teil ermöglicht ein einfaches abspielen von Midi-Tönen (zu Lernzwecken).
Wer es braucht, bitte.


PS.: Das Abspielen der Notenliste ist noch nicht möglich.
PS.: Das Abspielen der Notenliste ist jetzt möglich.

[ErazerZ]

Oho, recht cool das ding. Gibt es auch midi APIs für sagen wir mal keyboard eingaben gleich umzuformen und auszugeben? das wäre echt klasse

[turboPASCAL]

Da musst du wohl mit FAlters MIDI Klavier vorlieb nehmen müssen.
Mein Dings ist wirklich nur rudimentär. Seins dagegen ist Spitzenklasse.

[turboPASCAL]

*schwupp* Das Abspielen der Notenliste ist jetzt möglich.

Der Parser hat jedoch keine Fehlerabfrage.

[himitsu]

Note := (Octave + 2) * 12 + TPanel(Sender).Tag-1 mod 12; du weißt aber, daß MOD Vorrang vor Minus hat?

Delphi müßte es jedenfals so übersetzen:
Note := (Octave + 2) * 12 + TPanel(Sender).Tag - (1 mod 12);

[turboPASCAL]

Nö. ?!

Das hab ich noch nicht gewusst oder schon wieder vergessen das ich dies wusste.

//edit:

oder sollte das so sein:
Note := (Octave + 2) * 12 + ((TPanel(Sender).Tag-1) mod 12);

[himitsu]

so sollte es reichen
Note := (Octave + 2) * 12 + (TPanel(Sender).Tag - 1) mod 12;
Mod ist ja 'ne "Punktrechnung" und Minus eine Strichrechnung ... tja, und den Rest hattest'e mal vor Jahrzehnten in der Schule gelernt

[turboPASCAL]