[分享] aardio筹码峰历史衰减换手系数计算小工具

import win.ui;
/*DSG{{*/
var winform = win.form(text="筹码衰减";right=231;bottom=127;max=false;topmost=1)
winform.add(
button={cls="button";text="计算";left=104;top=80;right=176;bottom=104;z=6};
picturebox={cls="picturebox";left=8;top=184;right=34;bottom=206;border=1;notify=1;z=1};
static={cls="static";text="十大流通股所占比例";left=24;top=8;right=151;bottom=22;transparent=1;z=3};
static2={cls="static";text="筹码系数";left=24;top=64;right=107;bottom=78;transparent=1;z=4};
比例={cls="edit";left=24;top=24;right=98;bottom=51;edge=1;z=2};
系数={cls="edit";left=24;top=80;right=98;bottom=107;edge=1;z=5}
)
/*}}*/

//拖动窗体
winform.wndproc = function(hwnd,message,wParam,lParam){
        select (message) {
                case 0x201/*_WM_LBUTTONDOWN*/ {
                        winform.hitCaption()
                }
        }
}

//拖动picturebox时，窗体跟着动
winform.picturebox.wndproc = function(hwnd,message,wParam,lParam){
        select (message) {
                case 0x201/*_WM_LBUTTONDOWN*/ {
                    //winform.hitCaption()  //效果一样
                        ::SendMessageInt(winform.hwnd, 0xA1/*_WM_NCLBUTTONDOWN*/, 0x2/*_HTCAPTION*/, 0); //拦截控件的 _WM_LBUTTONDOWN，并模拟标题栏拖动
                        return 0;
                }
        }
}


winform.比例.oncommand = function(id,event){
	
}

winform.系数.oncommand = function(id,event){
	
}
winform.button.oncommand = function(id,event){
	
	bl = winform.比例.text
	bl2 = tonumber(bl)
	bl3 = bl2/100
	bl4 = 1-bl3
	bl5 = 1/bl4
	//js = 1/(1-bl/100)*/
	js = string.format("%10.2f",bl5 )
    winform.系数.text = js; //修改控件属性
}



winform.show()
win.loopMessage();