コンソールに進捗状況を表示してみる

同一行に文字を出力しようとしても、HSPでは\rが使用できないため通常は出力できませんが、文字コードを直接指定&APIを使用して出力してみたらうまくいきました。

akk026
2013/9/7 20:48

タグ：
タグはありません

// コンソールに進捗状況を表示してみる by akk026

#runtime "hsp3cl"

#uselib "kernel32.dll"
#cfunc GetStdHandle "GetStdHandle" int
#func WriteConsole "WriteConsoleA" int, str, int, int, int

#define STD_OUTPUT_HANDLE	0xFFFFFFF5

// 標準出力ハンドルを取得
hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE)

// 画面に出力
repeat 100
	buf = strf("%d%%%c", cnt+1, 13)
	buflen = strlen(buf)
	WriteConsole hStdOutput, buf, buflen, 0, 0
	wait 10
loop

mes "\n終わり！"

このコードをツイートする