| 5、执行完循环后,我们需要的所有运算都完成了,接着要做的是把VBS中的结果送回到飞狐公式系统中。 ffl.vardata("spj")=vspj--按字面上通俗理解,本行意思是通过接口ffl.vardata(),让飞狐公式系统中的序列变量spj等于vbs中的数组vspj,即VBS中的数据传递到飞狐公式系统。 6、飞狐公式系统输出spj,注意此时的spj已经不等于原来的序列收盘价了。 通过以上解释,你明白了吗？可以实际动手操作了,不过别急,由于飞狐的VBS尚存在BUG,上述代码运行时会出现非法操作,问题出在vspj(i)=vspj(i)*1.1,直接乘以1.1有问题,待以后飞狐完善后就没问题啦,目前需把代码稍作修改,如下： spj:=close; n=1.1; <% vspj=ffl.vardata("spj") '下面一行,把公式系统中的常量n传到VBS中的变量vn vn=ffl.vardata("n") last=ubound(vspj) for i=0 to last vspj(i)=vspj(i)*vn next ffl.vardata("spj")=vspj %> vspj 上述代码中,有一行以半角单引号“'”开始的VBS注释语句,注释语句不会被执行,仅起注解代码的作用。编写公式时,应养成在适当代码处,插入注释语句的良好习惯。以免将来自己也看不懂代码,更谈不上修改、改进公式代码。 现在开始动手输入并建立以上公式。在飞狐的界面中按Shift+W,调出管理面板,鼠标点正文的“公式”,调出公式管理面板,鼠标右击“技术指标”,建一个新的公式组“VBS学习”,然后鼠标右击“VBS学习”新建一个公式,公式名称“VBS公式1”,然后逐行输入上述公式代码,不要偷懒哟（来个“复制”、“粘贴”最轻松了,但学完就忘）,一行一行的从键盘输入,校对无误后,点“确定”保存公式,随便调一个股票的K线,然后键盘输入vbs即从键盘精灵中发现刚才的公式名称,选中它,就可看到你的公式输出的曲线。 练习： 1、用vbs设计一个公式,输出收盘价相对应的跌停价位。 2、用vbs设计一个公式,计算每日的换手率,提示：利用公式系统中的流通盘函数CAPITAL或FINANCE(N),注意这两个函数的单位不同。 |
 |
