MIDI Klavier

[FAlter]

Hi,

ich habe auf meiner Festplatte noch eine uralte MIDI-Komponente gefunden und wollte sie ausprobieren.

Bis jetzt ist dabei das herausgekommen, was hier anhängt. (Die Komponente hängt mit an.)

Man spielt über die Tastatur. Die Töne werden über das gewählte MIDI-Gerät ausgegeben.

Die Standard-Tastenbelegung:
untere Reihe beginnt bei <, obere bei q, schwarze schräg darüber.

Wer eine nicht-deutsche Tastatur hat, muss die Belegung anpassen. Die Einstellungen werden in einer INI gespeichert*, die Registry bleibt also sauber (außer dem Unistaller-Eintrag, um es über Systemsteuerung/Software deinstallieren zu können.)

Auch hier zu finden:
PC-Welt: http://www.pcwelt.de/downloads/multi.../midi_klavier/
MSN (über PC-Welt): http://tech.de.msn.com/downloads/aud...mentid=9286718
AOL (über PC-Welt): http://computer.aol.de/Downloads-MP3...1605181-0.html
Freeware.de (über Upload.de): http://www.freeware.de/download/midi-klavier_35675.html
Updates.de (Über Upload.de): http://www.updates.de/software/Progr...ier_35675.html
Shareware.de (Über Uploads.de): http://midi-klavier.shareware.de/

Infos in meinem Blog:
http://falters-blog.blogspot.com/search/label/MIDI

Mfg
FAlter

Neueste Version: V 1.0 - Final
Eventuell erneut runterladen von http://faltersoft.de/soft/?software=klavier oder Anhang.
Es wurden noch zwei weitere kleine Testtools beigelegt.

*) unter <user>\Anwendungsdaten\FAlterSoft\MIDI-Klavier

[TOC]

Hi FAlter!

Vielen vielen Dank für Deinen Thread und Deine Komponenten! Damit hast Du mir Antworten auf einige Fragen gegeben die mich schon sehr lange beschäftigten!

Damit werden jetzt endlich Programme möglich die mit einem Algorhitmus Musik komponieren ohne das man die Noten eingeben muß. Man schreibt einfach ein Programm und das macht dann Musik! Endlich kann ich mir einen Midi-Sequencer basteln mit ungewöhnlichen Takt- und Zeit-Verhältnissen die man in der üblichen Notation nicht darstellen kann!

Ich habe Deine MidiOut-Komponente gründlich getestet. Bei meinem alten Rechner, Pentium III MMX 450 Mhz mit TerraTec-Soundkarte unter Windows ´98 SE, klappt Deine MidiOut-Komponente sowohl mit Delphi 3.0 als auch 7.0 und verschiedenen Devices einwandfrei !

Hier im Internet-Cafe unter Windows XP kommt allerdings bei keiner Midi-Device auch nur ein Piep!
Keine Fehlermeldung erscheint!

Deine MidiIn-Komponente kann ich nit testen weil ich leider kein Midi-KeyBoard hab.


Allerdings habe ich da mal zwei Fragen:

1.) Mit welchem Code kann man das Panning eintstellen, also Stereo, ob der Sound Links oder Rechts kommen soll. Auch im Midi-Kurs habe ich dazu nix gefunden oder es nit verstanden...

2.) Gibt es auch eine Möglichkeit eine Note beliebieger Frequenz, z.B. 1000 Hertz, abzuspielen oder kann man immer nur festgelegte Frequenzen verwenden?


Grüße von TOC

[TOC]

Hi!

Ach so geht das also: Der zweite Daten-Wert der zusammen mit der Note bei 'NoteOn' übermittelt wird ist die Anschlagstärke, nicht die Lautstärke! Die Lautstärke des Kanals setzt man also mit '$Bn,$07,LautStärke' wobei 'n' die Kanalnummer (0-15) ist!

---------------------------------------------------------------------------------------------------

[Edit] Eine aktuelle verbesserte Version von MidiOut Test findest Du hier: Direkte Ansteuerung der Midi-Schnittstelle mit Delphi

Grüße von TOC !

[SMO]

Zitat von TOC:

Allerdings habe ich da mal zwei Fragen:

1.) Mit welchem Code kann man das Panning eintstellen, also Stereo, ob der Sound Links oder Rechts kommen soll. Auch im Midi-Kurs habe ich dazu nix gefunden oder es nit verstanden...

2.) Gibt es auch eine Möglichkeit eine Note beliebieger Frequenz, z.B. 1000 Hertz, abzuspielen oder kann man immer nur festgelegte Frequenzen verwenden?

Hallo TOC!

1.) Das Panning (die Position im Stereofeld) setzt man ebenso wie die Kanallautstärke über eine "Control Change" Nachricht, also $Bn,$0A,Panning. Gültige Werte sind wie üblich 0..127, wobei 0 für total links und 127 für total rechts steht.

2.) Du kannst nicht direkt Noten mit beliebigen Frequenzen spielen. Allerdings könntest du Pitch Bending benutzen, um die Frequenz zu manipulieren.

[TOC]

Hi!

Zitat von SMO:

1.) Das Panning (die Position im Stereofeld) setzt man ebenso wie die Kanallautstärke über eine "Control Change" Nachricht, also $Bn,$0A,Panning. Gültige Werte sind wie üblich 0..127, wobei 0 für total links und 127 für total rechts steht.

2.) Du kannst nicht direkt Noten mit beliebigen Frequenzen spielen. Allerdings könntest du Pitch Bending benutzen, um die Frequenz zu manipulieren.

Ahh, vielen Dank ! $0A also. Ich bräuchte mal ein Midi-Handbuch. Hast Du vielleicht einen Link für mich in dem diese ControlChange-Befehle genauer erklärt werden? Der in diesem Thread vorhandene Link schweigt sich zu dem Thema leider fast völlig aus !

Grüße von TOC !

[SMO]

Kein Problem, diese und diese Seite habe ich schnell mit google gefunden, da sind die Controller aufgelistet.

[TOC]

Hi!

Zitat von SMO:

Kein Problem, diese und diese Seite habe ich schnell mit google gefunden, da sind die Controller aufgelistet.

Ahh, vielen Dank ! Ich hab mir alles downgelodet. Dann hab ich ja endlich neue Lektüre für weitere Studien ! Das werd ich mir zuhause gleich mal alles in Ruhe durcharbeiten...

Grüße von TOC !

[horst]

Ich find echt GEIL..hab schon ein paar Musikszücke damit kreiert

[dersaartan]

Erstmal: Super Programm! Echt gute Arbeit!

So, jetzt mal zu meinem Problem: ich arbeite mit Delphi 7 und habe die Midikomponente installiert, Midi In und Out werden auch angezeigt. Nur wenn ich die Klavier Projektdatei kompilieren will sagt der Compiler mir folgendes:

[Warnung] UMain.pas(309): Unsicherer Typ 'PChar'
[Warnung] UMain.pas(309): Unsicherer Typ 'PChar'
[Warnung] UMain.pas(600): Unsicherer Code 'ASM'
[Fehler] UMain.pas(602): Inline Assembler Syntaxfehler
[Warnung] UMain.pas(780): Der Vergleich ergibt immer Falsch

Ich blick da jetzt nicht durch, kann mir jemand helfen?

[1ceman]

respekt, geiles programm....

[FAlter]

Das mit dem PChar geht nicht anders, die MessageBox-Funktion der Win-API kommt nicht mit Delphi-Strings klar, daher... Du kannst ja stattdessen Application.MessageDlg nehmen.

Und das mit dem Assembler kam mir am einfachsten vor zur Umwandlung little endian <--> big endian.

Delphi 3 compiliert es problemlos, keine Ahnung, was D7 für Probleme hat (kennt es bswap nicht?)