hallo
ich möchte eine funktion programmieren, die nacheinander töne ausgibt, dazwischen soll jeweils pause sein, nur klappt das überhaupt nicht mit dem code den ich geschrieben habe. ich möchte einen Timer verwenden und kein sleep. kann mir jemand helfen?
danke.
Delphi-Quellcode:
function Dur(StartTon: integer; Timer: TTimer): string;
begin
//1. Ton
FMain.MidiOutput.PutShort($90, StartTon, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//2. Ton
FMain.MidiOutput.PutShort($90, StartTon+2, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//3. Ton
FMain.MidiOutput.PutShort($90, StartTon+4, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//4. Ton
FMain.MidiOutput.PutShort($90, StartTon+5, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//5. Ton
FMain.MidiOutput.PutShort($90, StartTon+7, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//6. Ton
FMain.MidiOutput.PutShort($90, StartTon+9, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//7. Ton
FMain.MidiOutput.PutShort($90, StartTon+11, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
//8. Ton
FMain.MidiOutput.PutShort($90, StartTon+12, UGlobal.IVLautstaerke);
Timer.Enabled:= True;
Result:= 'Dur';
end;