大智慧KINGWA 扩展续：在K线显示你的买卖操作

今天闲来无事，继续公布扩展功能---在K线显示自己的买卖操作。
作为股民盘后一个工作就是对自己的操作进行总结（或对别人的操作进行观摩），提高自己，需要在K线上显示自己的买卖情况。大智慧里面有个投资管理文件，可以记录自己的操作，KINGWA提供一个函数读取这个文件并显示在相应的K线上，当然也可以在动态显示牌上进行汇总，看自己在那些股票中赚钱了，为啥赚？
格式:“kingwa@Trade”(帐号，操作类型)
1、参数1： 帐号
其中帐号是你显示哪个投资管理文件(大智慧显示的投资者）（文件在大智慧的\USERDATA\SELF目录下），由于大智慧不能传字符串，只能用一个数字传进去，需要在kingwa.ini 文件中配置帐号对应的文件名，在你的kingwa.ini 目录中增加下列内容（熟悉kingwa的人知道这个配置文件还可以配置其他内容）
[投资账户]
8=my17.INV
这个8对应文件my17.INV投资文件
2、参数2： 操作类型
分别定于为：操作类型 1 - 卖价 2 卖股数 3 买价 4 买股数
举例如下：
账号:=8*(c>0);
if (账号>=0) then
begin
买股:="kingwa@Trade"(账号,4);
买价:="kingwa@Trade"(账号,3);
买额:=买股*买价;
DRAWICON(买股>0 ,max(min(买价,h),l),7,1),LAYER0,PRECIS0;
DRAWFLAGTEXT(买股>0 ,买价,'开盘涨幅:'+numtostrn(o/ref(c,1)*100-100,1)+'% 买点涨幅:'+numtostrn(买价/ref(c,1)*100-100,1)+'%'),COLORRED;
DRAWFLAGTEXT(买股>0,买价,'买入:'+NUMTOSTRN(买股,0)+'股，价格：'+NUMTOSTRN(买价,2)+' 金额：'+NUMTOSTRN(买额,0)),COLORGREEN;
卖股:="kingwa@Trade"(账号,2);
卖价:="kingwa@Trade"(账号,1);
卖额:=卖股*卖价;
DRAWICON( 卖股<>0,max(min(卖价,h),l),8,-12),LAYER0,PRECIS0;
DRAWFLAGTEXT(卖股>0,卖价,'卖出:'+NUMTOSTRN(卖股,0)+'股，价格：'+NUMTOSTRN(卖价,2)+' 金额：'+NUMTOSTRN(卖额,0)),COLORGREEN;
drawline(买股>0,max(min(买价,h),l),卖股<>0 ,max(min(卖价,h),l),0),coloryellow;
end;

把这段代码放入你的主图公式中就可以显示你相关内容中了。

 KINGWA.zip