Frost Moon Project

Home > ソフトウェア > hex2dec > hex2dec100.zip > Src > hex2dec.hsp

//hex2dec.hsp, v1.00 2009/10/31
//coded by 少女遊霊姫
#packopt runtime "hsp3c.hrt"
#packopt name "hex2dec"
#packopt hide 1
#define ctype HIWORD(%1) (%1>>16&$FFFF)
    screen 0,200,80,6
    title "hex2dec"
    oncmd gosub *conv,$111
    font "",12
    pos 10,10
    hex=""
    input hex,180
    hInput=objinfo(stat,2)
    gsel 0,2
    stop
*conv
    if lparam=hInput{
        if HIWORD(wparam)=$300{
            color 255,255,255
            boxf
            color
            font "",12
            pos 13,50
            dec=int("$"+hex)
            if(dec){mes dec}
            return
        }
        return
    }
return

Home > ソフトウェア > hex2dec > hex2dec100.zip > Src > hex2dec.hsp