数値を2進数（文字列）に変換するモジュール | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#module
#defcfunc tobit int num
    s=""
    repeat 32
        s = str((num & 1<<cnt)!0) + s
    loop
    return s
#global
ss=""
mesbox ss, ginfo_winx, ginfo_winy
objid = stat
s=""
s += tobit( 2 ) + "\n"
s += tobit( 3 ) + "\n"
s += tobit( 5 ) + "\n"
s += tobit( 7 ) + "\n"
s += tobit( 11 ) + "\n"
s += tobit( 13 ) + "\n"
s += tobit( 17 ) + "\n"
s += tobit( 19 ) + "\n"
s += tobit( 23 ) + "\n"
s += tobit( 29 ) + "\n"
s += tobit( 31 ) + "\n"
s += tobit( 37 ) + "\n"
s += tobit( 41 ) + "\n"
s += tobit( 43 ) + "\n"
s += tobit( 47 ) + "\n"
s += tobit( 53 ) + "\n"
s += tobit( 59 ) + "\n"
s += tobit( 61 ) + "\n"
objprm objid, s
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX