スクリプトの実行時間を測るモジュールを作りました。
■命令
ScriptExecutionTimeinit
●説明
スクリプトの実行時間を測る準備をします。
これが無いとスクリプトの実行時間がおかしな数になってしまいます。
GetScriptExecutionTime
●説明
必ず ScriptExecutionTimeinit の後に入力して下さい。
さっきも言った通りスクリプトの実行時間がおかしな数になってしまいます。
●戻り
ms単位でスクリプトの実行時間を取得します。
#module __ScriptExecutionTime__
#uselib "winmm.dll"
#cfunc timer "timeGetTime"
#func timeBeginPeriod "timeBeginPeriod" int
#func timeEndPeriod "timeEndPeriod" int
#deffunc ScriptExecutionTimeinit
timeBeginPeriod 1
time_s=timer()
return
#defcfunc GetScriptExecutionTime
timeEndPeriod 1
return (timer()-time_s)
#global __ScriptExecutionTime__
ScriptExecutionTimeinit
repeat -1
redraw 0
color 255,255,255 : boxf
color 0,0,0
pos 0,0
mes ""+GetScriptExecutionTime()+"ms"
redraw 1
await 1
loop
是非参考にして下さいね(^^