' get time (second)
' Timer を使えば時間(秒)が取得できるが、
' Windows上ではタイマー精度が 15msec 程度しかない。(Linuxなら 1msec の精度らしい)
' sleep に指定したmsec値が正確に反映されない。

Dim As Double start_time, prev_time, now_time, diff_time
Dim As Integer frame_count

frame_count = 0
start_time = Timer
prev_time = start_time

' 1秒間ループする
Do
    now_time = Timer
    diff_time = now_time - prev_time
    prev_time = now_time
    Print "Diff: "; diff_time
    
    sleep 10.0
    frame_count += 1
Loop until (now_time - start_time) > 1.0

Print "frame_count=" & frame_count

Print "Push Any Key"

sleep