Melodie mit Windows.beep

[RobinPan]

Hi,

ein Freund und ich versuchen uns gerade an einem Programm, mit dem man durch eine Eingabe in ein Editfeld eine Melodie erzeugen kann. In das Editfeld sollen Variablen eingegeben, werden die den Noten entsprechen (c=c, d=d, etc.)

Habe bereits ein Quellcode für die ausgabe von Noten gefunden, allerdings wurden die Noten als const. festgelegt. (Hab den Quellcode vereinfacht angehängt, allerdings den Link zum Thema nicht mehr gefunden)

Wie kann ich die Melodie durch das Editfeld einlesen lassen??

Danke im Voraus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

const anzahl=2; c=1500; d=1000;e=900; halb = 500;
type TLied = array[0..1, 0..anzahl] of Integer;
const Lied : TLied = ((c,d,e),(500,500,500));
var I: Integer;
begin for I := 0 to anzahl do Windows.Beep(Lied[0, I], Lied[1, I]); end; ;

end;

[yörsch]

Erstmal Herzliches Willkommen in der DP! :hello:

mit der ausgabe liegt Ihr Richtig...
Für die Eingabe von neuen Werten kann ich mir ein Grid vorstellen.
einespalte für die Fequenz und die andere für die Zeit wielange der Ton gehalten werden soll...

[RobinPan]

Danke für die schnelle Antwort und den Willkommensgruß! ;)

Ja, an einen Grid haben wir auch schon gedacht. Unser Problem ist nur die Variablenübertragung. Wie kann man es erreichen, dass die eingelesenen Werte in die Noten umgesetzt werden, um dann ausgegeben werden zu können (mgl. ohne die const. da wir davon echt kein ahnung haben)? :?:

sry. für unsere Wissens beschränktheit, aber unser Delphiwissen beschränkt sich nur auf die des Schulwissens über DElphi

[RobinPan]

Hi,

so0, mittlerweile haben wir es alleine hinbekommen.

Vielleicht hätte uns ja doch noch irgendwer geholfen. Dafür bedanke ich mich. ;)

tschau