aardio筹码峰历史衰减换手系数计算小工具
就是计算上图中的那个数字的，衰减系数=1÷(1-十大流通股东占比)第一次弄出来可以运行的，还是很开心的哈。
代码是东拼西凑的，会改的请随意。
代码
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();
程序
页:
[1]