Rhytmus

[Orhan]

Hallo

Ich habe mit dem "Timer" einen Rhytmus Programm für Vokabeln lernen erstellt.
Aber der Rhytmus funktioniert nicht immer gut (Der Rhytmus geht kaputt).
Gibt es andere Möchlichkeiten ohne Timer? Und wie?

Ich danke ihnen schon im voraus

[Nikolas]

Wie sieht denn der Code aus? Es ist fast sicher einfacher, den Code zu verbessern als ein Workaround für einen Timer zu bauen.

[Orhan]

Hallo

Tut mir leid, aber ich habe den Code gelöscht.

Den Rhytmus habe ich als mehrere "Wav" Dateien gespeichert und mit dem Timer laufen lassen.

Das Problem ist am Anfang hört man den Rhytmus schlecht aber in den nächsten Dateien wird er wieder besser.

Danke!

[gmarts]

Zitat von Orhan:

Den Rhytmus habe ich als mehrere "Wav" Dateien gespeichert und mit dem Timer laufen lassen.
Das Problem ist am Anfang hört man den Rhytmus schlecht aber in den nächsten Dateien wird er wieder besser.

Beschreib das doch mal genauer. Lädst du die WAVs nach einem bestimmten Zeitintervall mit dem TMediaplayer und spielst sie dann ab, oder wie muss man sich das vorstellen?
Was bedeutet, "Man hört den Rhythmus schlecht"? Kommt es zu Zeitverzögerungen oder ist die Qualität des Samples schlecht?

[Binärbaum]

Zitat von Orhan:

Tut mir leid, aber ich habe den Code gelöscht.

Ich will ja nicht meckern, aber das ist eine der schlimmsten Sachen, die ein Programmierer machen kann Wie willst du denn das Programm verändern, wenn du den Code nicht mehr hast??

MfG
Binärbaum

[Orhan]

Sie haben vollkommen recht Herr Binärbaum

Ich habe es nicht ganz genau erklären können.

Die Qualitet des Samples ist OK.

Es kommt zu Zeitverzögerungen.

Danke

[Binärbaum]

Zitat von Orhan:

Sie haben vollkommen recht Herr Binärbaum

Ich habe es nicht ganz genau erklären können.

Die Qualitet des Samples ist OK.

Es kommt zu Zeitverzögerungen.

Danke

Ach so ist das, Herr Orhan.
Die Verzögerungen liegen vielleicht am Timer (ist aber auch nur eine Vermutung).
Stattdessen könnte man auch GetTickCont verwenden:

Delphi-Quellcode:

procedure Warten(ms: Cardinal);
var zeit: Cardinal;
begin
  zeit:= GetTickCount;
  while ((GetTickCount-zeit)< ms) do
    Application.ProcessMessages;
end;
...
//Beispielaufruf
Warten(1500);//1500 Millisekunden=1,5 Sekunden lang warten

Die Prozedur wartet die im Parameter ms angegebene Anzahl von Millisekunden und fährt dann im Programmablauf fort.
Es gibt auch noch eine weitere Variante, wie man mit Hilfe der API einen Timer setzen kann (also auch ohne Timer-Komponente), aber ich weiß nicht mehr genau, wie das ging.
Allerdings dürften diese Varianten nicht sehr hilfreich sein, wenn man (aus Versehen?) den Code gelöscht hat. Dann bliebe noch die Möglichkeit, das Programm komplett neu zu schreiben, aber das kann man wohl kaum jemandem zumuten, vor allem bei umfangreicheren Projekten.

MfG
Binärbaum

[alcaeus]

Hallo allerseits,

also, der Timer hat eine gewisse Ungenauigkeit, feuert also z.B. 2 ms zu spät. Dadurch hört sich das ganze etwas langsamer an, gerät aber nicht sooo stark aus dem Rhythmus. Ein größeres Problem sind natürlich die Ladezeiten der einzelnen Dateien, welche je nach Dateigröße stark variieren können. Wenn du die Dateien vorher schon laden und abspielbereit halten könntest, dann wäre das schon mal ein großer Schritt nach vorne.

Greetz
alcaeus

[Orhan]

Ich danke euch allen!