あれ、FPS取得がうまくいかない…

?1000/(MILLISEC-MS) ですね。 fpsとは、1秒(1000msec)間のフレーム数ですので。

あ、ゼロ除算を避けないと。 FI=MILLISEC-MS IF FI>0 THEN ?1000/FI

ありがとうございます。 久しぶりのプチコンだったので、 混乱してしまいました。

ただ、残念なことに、この方法だと正しいfpsは出せません。なぜなら、1フレームは大体16.6msecくらいなんですが、MILLISECは整数なので「.6」の部分が扱えないためです。なるべく正確なfpsを出すには、次のようにして60フレームごとにfpsを計算するのはいかがでしょうか？ WHILE TRUE MS=MILLISEC FOR I=0 TO 59:VSYNC 1:NEXT I ?60*1000/(MILLISEC-MS) WEND

ありがとうございます。 そう言えばCNTしか無かったころは、 そうやってやってました。