sample\basic\str.hsp » Plain Format
; ; 10進数<->16進数変換サンプル ; a=0 b="" pos 0,0:input a pos 0,30:input b pos 70,2:mes "10進数" pos 70,32:mes "16進数" pos 0,60 objsize 200,24 button "10進->16進変換",*in10 button "16進->10進変換",*in16 button "終了",*owari stop *in10 n=strf("%x",a) objprm 1,n stop *in16 a=0+("$"+b) objprm 0,a stop *owari end