飛狐中VB擴(kuò)展實(shí)例

imelee 2011-05-12

展開全文

飛狐VBS公式編寫入門

一、VBS教程：
　　請(qǐng)參閱Vbs55.chm，里面已經(jīng)論述得非常詳細(xì)了，該文件在飛狐的主頁(yè)提供了下載。鏈接：http://61.145.112.150//download/show.php?id=27&down=1
　　提示：在飛狐中使用VBS，大多涉及的是數(shù)值運(yùn)算，只需熟悉一些常用語(yǔ)句、基本概念就可以應(yīng)用了，如數(shù)組、賦值語(yǔ)句、循環(huán)語(yǔ)句、條件語(yǔ)句，過(guò)程等概念。
　　VBS較飛狐原公式系統(tǒng)的強(qiáng)大之處是，可以任意訪問(wèn)、處理股票數(shù)據(jù)，解決飛狐公式系統(tǒng)所無(wú)法處理的問(wèn)題，但也有個(gè)致命的弱點(diǎn)，VBS是解釋性語(yǔ)言，因此運(yùn)行較慢，利用VBS設(shè)計(jì)公式時(shí)，應(yīng)注意使用高效率的算法、盡量避免用于運(yùn)算量大的情況。
　　VBS雖然比Dll編的函數(shù)慢，但其優(yōu)點(diǎn)也是明顯的，飛狐直接內(nèi)嵌了VBS，無(wú)需另外安裝軟件。VBS公式直觀，調(diào)試非常方便，稍運(yùn)用技巧，即可做到所見即所得。VBS可以讀寫外部文件、數(shù)據(jù)庫(kù)、Word、Execl等，在運(yùn)算量不大的情況，VBS比Dll擴(kuò)展函數(shù)運(yùn)行速度“感覺”不到明顯差別。

二、VBS公式示例：VBS數(shù)組、飛狐接口函數(shù)ffl.vardata()
　　為了方便學(xué)習(xí)，可以先在技術(shù)指標(biāo)下建立一個(gè)公式組“VBS學(xué)習(xí)”，示例公式不妨用前綴“SL”比如“SL01”，練習(xí)的公式可用“LX01”等表示。
　　例一：設(shè)計(jì)一個(gè)VBS公式，計(jì)算收盤價(jià)對(duì)應(yīng)的漲停價(jià)位（設(shè)漲停板為10%），為了方便敘述，本公式代碼僅用于600531。
　　600531，到今天2002.8.4為止，共有4天的數(shù)據(jù)，因此設(shè)計(jì)代碼如下（設(shè)為公式SL01)：

PHP代碼:
spj:=close; //序列變量，其序列值為4天的收盤價(jià)

<%

vspj=ffl.vardata("spj")

vspj(0)=vspj(0)*1.1

vspj(1)=vspj(1)*1.1

vspj(2)=vspj(2)*1.1

vspj(3)=vspj(3)*1.1

ffl.vardata("spj")=vspj

%>

spj; //在飛狐公式系統(tǒng)中輸出VBS處理后的結(jié)果

　　公式代碼解釋：
　　1、用“<%”和“%>”這對(duì)符號(hào)框起來(lái)的代碼就是我們要學(xué)習(xí)的VBS公式代碼，凡是VBS代碼都必須用這對(duì)符號(hào)框起來(lái)，“<%”標(biāo)志著VBS代碼開始，“%>”代表VBS代碼結(jié)束。注意都是半角符號(hào)，不能用全角符號(hào)。
　　2、vspj=ffl.vardata("spj")，把飛狐公式系統(tǒng)的序列變量傳入到VBS中，在VBS中開辟一個(gè)數(shù)組vspj“接收”這些數(shù)據(jù)。
　　這里ffl.vardata()是接口，負(fù)責(zé)把公式系統(tǒng)的序列變量、常數(shù)傳到VBS，或者反方向傳遞，下面會(huì)談到。
　　3、下面對(duì)數(shù)組vspj稍加解釋，數(shù)組是有序數(shù)據(jù)的集合，由一系列元素組成，可以用數(shù)組名稱和下標(biāo)來(lái)唯一地確定數(shù)組中的元素。
　　本例中，vspj就是數(shù)組名稱，“vspj(0)”括號(hào)中的0是下標(biāo)即此時(shí)下標(biāo)為0，VBS規(guī)定數(shù)組的最小下標(biāo)為0，因此“vspj(0)”表示vspj數(shù)組的第一個(gè)元素，vspj(1)代表數(shù)組vspj的第二元素，依此類推。
　　當(dāng)語(yǔ)句vspj=ffl.vardata("spj")把spj傳遞到VBS中的數(shù)組vspj時(shí)，第1個(gè)元素vspj(0)等于spj的首日值即首日收盤價(jià)，第2個(gè)元素vspj(1)等于spj的第2周期值，......，vspj(3)等于spj第4周期的值，顯然數(shù)組vspj的下標(biāo)跟序列變量spj的周期序列對(duì)應(yīng)起來(lái)了。但要注意的是，數(shù)組vspj的下標(biāo)比序列變量的序列周期數(shù)少1，因?yàn)閿?shù)組下標(biāo)的起點(diǎn)是0。
　　4、vspj(0)=vspj(0)*1.1，這是賦值語(yǔ)句，等號(hào)表示賦值，把vspj(0)乘以1.1后賦值到vspj(0)。這條語(yǔ)句可能不好理解，首先這里的“等號(hào)”要理解成賦值，不能理解成“相等”的意思，其次，這條語(yǔ)句相當(dāng)于2條語(yǔ)句即：
x=vspj(0)*1.1
vspj(0)=x
就是說(shuō)，經(jīng)過(guò)運(yùn)算后，vspj(0)的值不再是原來(lái)的值了，而是原來(lái)值的1.1倍（漲幅10%）。此后的三條語(yǔ)句：
vspj(1)=vspj(1)*1.1
vspj(2)=vspj(2)*1.1
vspj(3)=vspj(3)*1.1
相同解釋。經(jīng)過(guò)這4條語(yǔ)句運(yùn)算后，數(shù)組vspj的4個(gè)元素的值，都變成了原來(lái)的1.1倍。到這里為止，我們已經(jīng)達(dá)到了計(jì)算收盤價(jià)漲幅10%的目的。
　　5、VBS的工作還沒完，因?yàn)閂BS計(jì)算的結(jié)果，飛狐公式系統(tǒng)還不知道。需要把我們計(jì)算的結(jié)果即vspj數(shù)組傳遞到公式系統(tǒng)。大家馬上就能猜到了，ffl.vardata("spj")=vspj，就是完成這項(xiàng)工作。
　　請(qǐng)分析對(duì)比f(wàn)fl.vardata("spj")=vspj和vspj=ffl.vardata("spj")有何不同？在VBS中各起什么作用？在VBS中它們的位置通常在哪里？
　　6、接下來(lái)的代碼就是“%>”，意味著什么？
　　7、最后一行代碼是“spj”，請(qǐng)問(wèn)是VBS代碼嗎？起什么作用？

先告一段落，下午繼續(xù)。。。

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自： imelee > 《我的圖書館》

舉報(bào)/認(rèn)領(lǐng)