Virtual Piano

[alfold]

So bin wieder da.
Muss doch noch nachfragen. Will ja nur das umändern was du nicht brauchst, bei meinem Vorschlag.

MIDIFileInfo
MidiNote
Währe schön wenn Du mir die den Aufbau gibst.

Ist es MIDIFileInfo wo Du alles ablegst und zur Laufzeit für die Audioausgabe ausliest, vermute ich mal.

Code:

// Spielgeschwindigkeit auf default wert setzen
Tempo := round(300 / 127 * MidiNote.Velocity);

Velocity ist doch die Anschlagsdynamic, bzw kann man auch für NoteOn bzw NoteOff benutzten
Frage mich wie dies mit dem Tempo zusammenhängt?

EDIT:
Stelle fest das es dochn nicht so einfach ist Deine Variant anzupassen
Bei meinem Vorschlag muss ich ja nicht Prufen ob eine note >1000 ist
ConvertMidiNote? warscheinlich auch nicht!

Code:

for IntA := 0 to High(TmpGrid) do
begin
      Grid[IntI - 1, IntA] := TmpGrid[IntA];//<--Grid[array] füllen, Was zur anzeige kommt?
      InstGrid[IntI - 1, IntA] := TmpInstGrid[IntA];//<---????
end;

Es stellen sich also mehr Fragen als Lösungen an
Denn
// Grid zeichnen
DrawGrid(Handle);
müsste ja auch angepasst werden!

Auch wenn es bei mir nicht läuft, währe es besser ich könnte den code sehen, als hier tausend Fragen zu stellen. dann passe ich es als demo an mit meinem Vorschlag und Du kannst es testen
Gruss alfold

[EWeiss]

sorry konnte nicht vorher Antworten.
Lag die letzten zwei wochen mit Gehinblutung im Krankenhaus.

Velocity = Geschwindigkeit

Werde den Quelltext die Tage hochladen muss meine 6 Segment Anzeige erst noch fertig machen
kam ja leider zu nichts mehr.

gruss

[Namenloser]

Zitat von EWeiss:

sorry konnte nicht vorher Antworten.
Lag die letzten zwei wochen mit Gehinblutung im Krankenhaus.

Oha, na dann gute Besserung, auch wenn’s zwei Wochen zu spät kommt...

[EWeiss]

Zitat von NamenLozer:

Zitat von EWeiss:

sorry konnte nicht vorher Antworten.
Lag die letzten zwei wochen mit Gehinblutung im Krankenhaus.

Oha, na dann gute Besserung, auch wenn’s zwei Wochen zu spät kommt...

Jo
Danke schön .. jetzt geht es wieder. (Ohne Schmerzen)

gruss

[alfold]

Na, dann wünsch ich Dir auch alles gute und alles langsamer angehen

Zitat:

Velocity = Geschwindigkeit

Original Auszug....

Zitat:

Die Tastennummern bei MIDI reichen von 0-127. #0 steht für C-2,#12 ist demnach C-1,#24 ist C 0,#36 ist C 1,#37 ist C# 1 usw...
$8n Note Off
Statusbyte: $8n,1. Datenbyte Key#,2. Datenbyte Note Off Velocity. Key # ist die Tastennummer 0-127.

$9n Note On
Statusbyte: $9n,1. Datenbyte Key#,2. Datenbyte Note On Velocity. Key # ist die Tastennummer 0-127.

Die Velocity bedeutet die Lautstärke mit der eine Note angeschlagen wird, bzw. losgelassen wird

Freu mich schon auf die neue(letzte) Version
Gruss alfold

[EWeiss]

Zitat:

Original Auszug....

Muss mich da nochmal schlaumachen.. sowie ich gelesen habe wird es nicht nur für
Anschlagdynamic verwendet.

Im Anhang der Source und fehlende Bitmaps für Nummern.
Der Quelltext funktioniert nur mit oben ängehängten "Binären Archiv"

gruss

[alfold]

Hast du wirklich die aktuelle Version oben?
Oberfläche sieht nicht so aus wie bei Dir(Photo)!

Da ich jetzt erst mit XE anfange, wie bekomme ich alles zusammen?
ein Ordner Sample, ein Ordner Lib, bzw dein Bin Ordner

Gruss alfold