以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  在框架中某一窗格用系统公式自动切换代码  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=48599)
--  作者：yeyi
--  发布时间：2013/2/16 20:06:29
--  在框架中某一窗格用系统公式自动切换代码

框架名称：CL_BD_QSC_QJB

窗格名称：Window11（为某一品种的1分钟K线）

在窗格Window37中：

有一公式：SC_S_TPF_300ETF

 

前面略

 

tNZDF11close:=(TN11CLOSE-REF(TN11CLOSE,1))/REF(TN11CLOSE,1)*100;

TJ1:=tNZDF11close<tnydzdf_xdcs;

TJ0:=TJ1 ;

 

TC10STR:=\'----------------------------------------------------\';
DRAWTEXTex(islastbar,0,1,300,TC10STR),colorwhite;

TJYDF_XD:=TJ0 ;

TC10STR:=\'异动(下跌）：\';

YJ_TJYDF_XD:=TJYDF_XD AND islastbar;
//DRAWTEXTex(YJ_TJJCF,0,1,320,TC10STR),colorwhite;
DRAWTEXTex(1,0,300,tnno2_Y_zb,TC10STR),colorwhite;

//TC10STR:=numtostr(currentTIME,0);
TC10STR:=numtostr(TIME,0)+\':\';
DRAWTEXTex(YJ_TJYDF_XD,0,400,tnno2_Y_zb,TC10STR),colorred;
TC10STR:=numtostr(TNWMJJ,3)+\'/\'+numtostr(TNWMCJ,3)+\';\';
DRAWTEXTex(YJ_TJYDF_XD,0,500,tnno2_Y_zb,TC10STR),colorgreen;
PLAYSOUND(YJ_TJYDF_XD,\'\\Weisoft Stock\\铃声\\ALAM10.WAV\');

 

我想一旦出现符合信号的品种预警，就将该品种将Window 11窗格中的品种自动切换。

 

 

切换用VB语言是否是这样：

 

Set Grid = CL_BD_QSC_QJB.GetGridByName("Window11")

Grid.ChangeStock(TCLABEL,TCMARKET)

 

不知如何集成系统语言和VB在同一公式中

用

<%

Set Grid = CL_BD_QSC_QJB.GetGridByName("Window11")

Grid.ChangeStock(TCLABEL,TCMARKET)

 

%>

好像不行；

 

 

 

更深一步扩展：

在本地预警中

 

 

能否有函数调用出现预警的品种名称和市场？

 

 

麻烦高手

 

 

 
--  作者：admin
--  发布时间：2013/2/16 23:35:38
--  

VBS公式不支持内部金字塔对象的调用.

请用自定义函数即可.

有关自定义函数的有关教程范例,请翻阅本高级区的精华贴