Rhytmus

[Orhan]

Hallo

So habe ich es ausprobiert, es funktioniert wunderbar.

Danke!

var mmsystem;
procedure Warten(ms: Cardinal);
var zeit: Cardinal;
begin
zeit:= GetTickCount;
while ((GetTickCount-zeit)< ms) do
Application.ProcessMessages;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
x:integer=0;
begin
x:=x+1;
panel1.caption:=inttostr(x);
If panel1.caption= '1' then
PlaySound('\1.wav',0,snd_Async);
If panel1.caption='2' then
PlaySound('\2.wav',0,snd_Async);
If panel1.caption='3' then
PlaySound('\3.wav',0,snd_Async);
If panel1.caption='4' then
PlaySound('\4.wav',0,snd_Async);
If panel1.caption='5' then
PlaySound('\5.wav',0,snd_Async);
Warten(1500);//1500 Millisekunden=1,5 Sekunden lang warten
end;