|
vbs公式编写入门
|
|
|
|
|
|
|
|
|
一、VBS教程：
请参阅Vbs55.chm，里面已经论述得非常详细了，该文件在飞狐的主页提供了下载。
提示：在飞狐中使用VBS，大多涉及的是数值运算，先熟悉一些常用语句、基本概念就可以应用了，如循环语句、条件语句，赋值、数组、过程等概念。
VBS较飞狐的强大之处，在于循环，可以解决飞狐公式系统所无法处理的问题，但也有个致使的弱点，由于是VBS解释性语言，因此运行慢，利用VBS设计公式时，应注意使用高效率的算法。
二、VBS接口：
VBS与飞狐公式系统之间，必须通过接口才能交换数据，也就是说，公式系统中的数据不能直接被VBS处理，同样VBS中运行的结果，也不能直接被公式系统使用。
VBS目前提供的接口有：
1、FFL.VarData("变量名")，传递常量、数组变量数据。
2、FFL.VarStartIndex("变量名")，传递数组变量有效数值起始位置，若脚本处理过程中不改变变量有效数值起始位，则无须调用。
3、FFL.MsgBox(strMsg)，strMsg为字符串变量或常量。
4、FFL.Color("变量名")，用于指定指标输出变量的颜色；（可程序实现渐变色）。
5、FFL.LineThick("变量名")，用于指定指标输出变量的线宽；（可程序实现线宽）。
三、利用VBS设计公式：
VBS脚本语句，必须使用“<%”和“%>”框起来，以便让公式系统能够识别，在一个指标公式中，可以多次调用VBS脚本，即可以有多组由“<%、%>”框起来的脚本。
在公式系统中无法实现而需要调用VBS的实例通常较复杂，为了学习VBS，所举的实例从简单开始，大多可以在原公式系统中实现。
以下通过具体实例，解剖一下VBS设计的公式。
例一：设计一个公式，计算收盘价对应的涨停价位（设涨停板为10%）
代码如下：
spj:=close;
<%
vspj=ffl.vardata("spj")
last=ubound(vspj)
for i=0 to last
vspj(i)=vspj(i)*1.1
next
ffl.vardata("spj")=vspj
%>
vspj
以下详细解释公式代码：
1、spj:=close--定义一个序列变量spj，其值等于序列收盘价（对日K线而言，等于从上市首日直到最后一天的一系列收盘价，故名为序列变量）。
接着是一段由“<%”、“%>”框起来的VBS程序代码。
2、vspj=ffl.vardata("spj")--将序列变量spj传递到VBS中，其数据放入数组vpj中。有关数组概念，可参阅Vbs55.chm。
这里对数组稍加解释，VBS中的数组，是由一系列元素构成的，本例中为Vspj(0)、vspj(1)......，这里括号中的0、1......等称为数组的下标，VBS数组下标是从0开始的。其中vbs(0)是数组的第一个元素，对应序列变量的第一个值（即首日收盘价），依此类推，直到最后一个。那么，数组vspj的最后一个元素是哪个？11159股票学习网 http://www.11159.com收集整理这很重要，因为在涉及相关计算时必须知道。看下一行代码：
3、last=ubound(vspj)--ubound(vspj)是什么东东？查一下Vbs55.chm中的函数部分，原来是计算数组vspj最大下标。本行语句，是把vspj的最大下标的值赋给变量last，也就是说last此后就等于vspj的最大下标值。
4、接着的三行语句是VBS的循环，此处的for...... nexe语句的VBS循环语句中的一种（其余几种循环语句，请自查Vbs55.chm文件中的解说）。循环是起什么作用的？我们来看看，要计算从第一天到最后一天的涨停价位，如果逐条语句来写，大致如下：
vspj(0)=vspj(0)*1.1--把第一天的收盘价vspj(0)乘以1.1，再赋回给vspj(0)，运算后vspj(0)就不再等于收盘价，而是原价的涨停价位。
vspj(1)=vspj(1)*1.1--vspj(1)运算后等于第二天的涨停价位。
vspj(2)=vspj(2)*1.1
.
.
.
vspj(last)=vspj(last)*1.1--最后一天的运算。
一共须写last+1条语句，显然效率太低了。这些语句用循环语句来写，只须3条就行了，即
for i=0 to last
vspj(i)=vspj(i)*1.1
next
解释如下：
for i=0 to last--循环首，让循环变量i从1开始，每次增加递增1循环执行“循环体”，直到i=last时跳出循环。
vspj(i)=vspj(i)*1.1--循环体，这里只有一条语句，可以有多条语句。当i=0时，执行的是vspj(0)=vspj(0)*1.1，随着i的递增，最后一次执行的是vspj(last)=vspj(last)*1.1，共执行last+1次。
next--循环尾，与for配套对应，执行到此处时，跳回到对应的循环首for重新执行。当for语句判断i=last+1时，for语句将会跳出循环，即跳过next，到next的下一条语句。
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，调出管理面板，鼠标点正文的“公式”，11159股票学习网 http://www.11159.com收集整理调出公式管理面板，鼠标右击“技术指标”，建一个新的公式组“VBS学习”，然后鼠标右击“VBS学习”新建一个公式，公式名称“VBS公式1”，然后逐行输入上述公式代码，不要偷懒哟（来个“复制”、“粘贴”最轻松了，但学完就忘），一行一行的从键盘输入，校对无误后，点“确定”保存公式，随便调一个股票的K线，然后键盘输入vbs即从键盘精灵中发现刚才的公式名称，选中它，就可看到你的公式输出的曲线。
练习：
1、用vbs设计一个公式，输出收盘价相对应的跌停价位。
2、用vbs设计一个公式，计算每日的换手率，提示：利用公式系统中的流通盘函数CAPITAL或FINANCE(N)，注意这两个函数的单位不同。
11159股票学习网 http://www.11159.com收集整理
|
|
|
|
|
|
|
|
|
|
|
|
|
