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

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

akk026
2013/9/7 20:48

タグ：
タグはありません

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// コンソールに進捗状況を表示してみる 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終わり！"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

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