Andere MIDI-Instrumente

[zebrafalke]

Hallo,

Ich habe mit folgendem Code + Midi Komponente Drums hingekriegt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
I, Dev: Integer;
begin
Dev:=0;
If MidiOutput1.NumDevs=0 then
begin
showmessage('Keine Soundkarte');
end
else
begin
for i:=MidiOutput1.Numdevs-1 downto 0 do
begin
MidiOutput1.DeviceID:=i;
end;
end;
MidiOutput1.DeviceID:=Dev;
MidiOutput1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval:=Trackbar1.Position;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Case(Times mod 4) of
0: begin
MidiOutput1.PutShort($89,36,0);
MidiOutput1.PutShort($99,36,127);
end;
2: begin
MidiOutput1.PutShort($89,40,0);
MidiOutput1.PutShort($99,40,127);
end;
end;
MidiOutput1.PutShort($12,42,0);
MidiOutput1.PutShort($99,42,64); inc(Times);


end;

Wie kann ich das jetzt mit anderen Instrumenten machen?
Hab mir schon das hier angegugt..aber irgendwie bin ich da zu dumm zu....*verzfeifel* :cry:

Vielleicht kann kann mir ja jemand helfen...

gruss

zebrafalke

[Mazel]

Hallo,

du kannst dein Instrument mit folgenden Code wählen:

Delphi-Quellcode:

  MidiOutput1.PutShort($C0, Nr, 0);

Nr steht für 0-127.

Im Anhang sieht du ein Ausschnitt meines MIDI Programmes, die Instrument-Kategorien.

Gruß
mazel

[zebrafalke]

Ok, funktioniert, danke!

Wofür ist $CO da?
Der dritte Wert in der Klammer ist die Lautstärke, oder?


gruss

[Mazel]

Das $CO steht für eine Config-Änderung, daher hat hier der letzte Parameter keine Bedeutung.

Gruß
Mazel

[Flocke]

Zitat:

Zitat von zebrafalke

Wofür ist $CO da?

Siehe hier.