| |
一、VBS教程：
請(qǐng)參閱Vbs55.chm,里面已經(jīng)論述得非常詳細(xì)了,該文件在飛狐的主頁提供了下載。
提示：在飛狐中使用VBS,大多涉及的是數(shù)值運(yùn)算,先熟悉一些常用語句、基本概念就可以應(yīng)用了,如循環(huán)語句、條件語句,賦值、數(shù)組、過程等概念。
VBS較飛狐的強(qiáng)大之處,在于循環(huán),可以解決飛狐公式系統(tǒng)所無法處理的問題,但也有個(gè)致使的弱點(diǎn),由于是VBS解釋性語言,因此運(yùn)行慢,利用VBS設(shè)計(jì)公式時(shí),應(yīng)注意使用高效率的算法。
二、VBS接口：
VBS與飛狐公式系統(tǒng)之間,必須通過接口才能交換數(shù)據(jù),也就是說,公式系統(tǒng)中的數(shù)據(jù)不能直接被VBS處理,同樣VBS中運(yùn)行的結(jié)果,也不能直接被公式系統(tǒng)使用。
VBS目前提供的接口有：
1、FFL.VarData("變量名"),傳遞常量、數(shù)組變量數(shù)據(jù)。
2、FFL.VarStartIndex("變量名"),傳遞數(shù)組變量有效數(shù)值起始位置,若腳本處理過程中不改變變量有效數(shù)值起始位,則無須調(diào)用。
3、FFL.MsgBox(strMsg),strMsg為字符串變量或常量。
4、FFL.Color("變量名"),用于指定指標(biāo)輸出變量的顏色；（可程序?qū)崿F(xiàn)漸變色）。
5、FFL.LineThick("變量名"),用于指定指標(biāo)輸出變量的線寬；（可程序?qū)崿F(xiàn)線寬）。
三、利用VBS設(shè)計(jì)公式：
VBS腳本語句,必須使用“<%”和“%>”框起來,以便讓公式系統(tǒng)能夠識(shí)別,在一個(gè)指標(biāo)公式中,可以多次調(diào)用VBS腳本,即可以有多組由“<%、%>”框起來的腳本。
在公式系統(tǒng)中無法實(shí)現(xiàn)而需要調(diào)用VBS的實(shí)例通常較復(fù)雜,為了學(xué)習(xí)VBS,所舉的實(shí)例從簡單開始,大多可以在原公式系統(tǒng)中實(shí)現(xiàn)。
以下通過具體實(shí)例,解剖一下VBS設(shè)計(jì)的公式。
例一：設(shè)計(jì)一個(gè)公式,計(jì)算收盤價(jià)對(duì)應(yīng)的漲停價(jià)位（設(shè)漲停板為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
以下詳細(xì)解釋公式代碼：
1、spj:=close--定義一個(gè)序列變量spj,其值等于序列收盤價(jià)（對(duì)日K線而言,等于從上市首日直到最后一天的一系列收盤價(jià),故名為序列變量）。
接著是一段由“<%”、“%>”框起來的VBS程序代碼。
2、vspj=ffl.vardata("spj")--將序列變量spj傳遞到VBS中,其數(shù)據(jù)放入數(shù)組vpj中。有關(guān)數(shù)組概念,可參閱Vbs55.chm。
這里對(duì)數(shù)組稍加解釋,VBS中的數(shù)組,是由一系列元素構(gòu)成的,本例中為Vspj(0)、vspj(1)......,這里括號(hào)中的0、1......等稱為數(shù)組的下標(biāo),VBS數(shù)組下標(biāo)是從0開始的。其中vbs(0)是數(shù)組的第一個(gè)元素,對(duì)應(yīng)序列變量的第一個(gè)值（即首日收盤價(jià)）,依此類推,直到最后一個(gè)。那么,數(shù)組vspj的最后一個(gè)元素是哪個(gè)？767股票學(xué)習(xí)網(wǎng) http://www.whereslawrence.com收集整理這很重要,因?yàn)樵谏婕跋嚓P(guān)計(jì)算時(shí)必須知道�？聪乱恍写a：
3、last=ubound(vspj)--ubound(vspj)是什么東東？查一下Vbs55.chm中的函數(shù)部分,原來是計(jì)算數(shù)組vspj最大下標(biāo)。本行語句,是把vspj的最大下標(biāo)的值賦給變量last,也就是說last此后就等于vspj的最大下標(biāo)值。
4、接著的三行語句是VBS的循環(huán),此處的for...... nexe語句的VBS循環(huán)語句中的一種（其余幾種循環(huán)語句,請(qǐng)自查Vbs55.chm文件中的解說）。循環(huán)是起什么作用的？我們來看看,要計(jì)算從第一天到最后一天的漲停價(jià)位,如果逐條語句來寫,大致如下：
vspj(0)=vspj(0)*1.1--把第一天的收盤價(jià)vspj(0)乘以1.1,再賦回給vspj(0),運(yùn)算后vspj(0)就不再等于收盤價(jià),而是原價(jià)的漲停價(jià)位。
vspj(1)=vspj(1)*1.1--vspj(1)運(yùn)算后等于第二天的漲停價(jià)位。
vspj(2)=vspj(2)*1.1
.
.
.
vspj(last)=vspj(last)*1.1--最后一天的運(yùn)算。
一共須寫last+1條語句,顯然效率太低了。這些語句用循環(huán)語句來寫,只須3條就行了,即
for i=0 to last
vspj(i)=vspj(i)*1.1
next
解釋如下：
for i=0 to last--循環(huán)首,讓循環(huán)變量i從1開始,每次增加遞增1循環(huán)執(zhí)行“循環(huán)體”,直到i=last時(shí)跳出循環(huán)。
vspj(i)=vspj(i)*1.1--循環(huán)體,這里只有一條語句,可以有多條語句。當(dāng)i=0時(shí),執(zhí)行的是vspj(0)=vspj(0)*1.1,隨著i的遞增,最后一次執(zhí)行的是vspj(last)=vspj(last)*1.1,共執(zhí)行l(wèi)ast+1次。
next--循環(huán)尾,與for配套對(duì)應(yīng),執(zhí)行到此處時(shí),跳回到對(duì)應(yīng)的循環(huán)首for重新執(zhí)行。當(dāng)for語句判斷i=last+1時(shí),for語句將會(huì)跳出循環(huán),即跳過next,到next的下一條語句。
|
|
