软件名称：[B]成交量（地量、解禁股）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2011-07-02 04:36:48
软件简介:

成交量（地量、解禁股）

{地量
VOL,VOLSTICK;
AA:=SUMBARS(VOL,CAPITAL);
地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA)/3) ,LINETHICK0;
STICKLINE(地量,VOL,0,7,0),COLORYELLOW;
{解禁股}
解禁股:=SelfString('限shou流通股. 大智慧');
XOffset:= 0;
YOffset:= 0;
lineHeight:= 18;
pos1:= STRFIND(解禁股, ';', 1);
pos2:= STRFIND(解禁股, ';', pos1 + 1);
pos3:= STRFIND(解禁股, ';', pos2 + 1);
pos4:= STRFIND(解禁股, ';', pos3 + 1);
pos5:= STRFIND(解禁股, ';', pos4 + 1);
str1:= STRMID(解禁股, 1 , pos1-1);
str2:= STRMID(解禁股, pos1 + 1, pos2 - pos1 - 1);
str3:= STRMID(解禁股, pos2 + 1, pos3 - pos2 - 1);
str4:= STRMID(解禁股, pos3 + 1, pos4 - pos3 - 1);
str5:= STRMID(解禁股, pos4 + 1, pos5 - pos4 - 1);
IF pos1 THEN DRAWTEXTABS(XOffset, YOffset + lineHeight , '解禁股： '+ str1), Color808080;
IF pos1 AND pos2 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 2, str2), Color908070;
IF pos1 AND pos2 AND pos3 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 3, str3), Color808080;
IF pos1 AND pos2 AND pos3 AND pos4 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 4, str4), Color908070;

IF pos1 AND pos2 AND pos3 AND pos4 AND pos5 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 5, str5), Color808080;
 

[url=http://www.70822.com/soft/sort013/sort03/down-35571.html]成交量（地量、解禁股）[/url]