BPM-Zahl berechnen

[Delle]

Ich brauch eigentlich nur den Verzögerungswert für Delay(), bis wann der bis zum nächsten Beat gewartet werden soll.

Problem: Bei 60 BPM läuft es schneller als bei 160

Code: Alles auswählen

InitSound()

LoadSound(1,"bass.wav")

; Beats per Minute
bpm.l=125

; wieviele schläge pro (milli)sekunde?

wert.f = ((1/60)*bpm.l)*1000

;4/4 Takt mit XYZ BPM abpielen

Repeat

PlaySound(1)

Delay(wert/4)

x=x+1

Until x=4

[Sylvia]

Deine Formel ist falsch.

ms/Takt= 1000ms/(Bpm/60)

[Delle]

Okay so funktioniert es, aber stürzt beim 2. oder 3. Durchwahl immer mit "schweren Ausnahmefehler" ab, warum?

Code: Alles auswählen

InitSound()

LoadSound(1,"bass.wav")

bpm.l=135

wert=1000/(bpm.l/60)

Repeat

PlaySound(1)

Delay(wert)

x=x+1

Until x=4

FreeSound(1)

End