Definieren wir ein bpm für die QPC-Methode wie folgt:
Delphi-Quellcode:
var
Frequency, TicksPerMinute: Int64;
QueryPerformanceFrequency(Frequency);
TicksPerMinute := Frequency * 60; // Frequency ist in Hz angegeben == Ticks pro Sekunde
Dann kannst du für eine beliebige bpm-Zahl einfach ausrechnen:
Delphi-Quellcode:
var
bpmTicks: Int64;
bpmTicks := TicksPerMinute div Deine_bpm_Zahl;
div ist hier hinreichend genau, da bei neuen Rechnern Frequency etwas um 3 MHz ist, also ziemlich viel
