Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2010-04-18 12:50:01 | 第2樓 |
以下為以80根K線為區間範例: 10 If 最後K線 = 是 Then 20 Vc = 80 30 40 Vh = 5分_區間最高價( Vc ) 50 For Va = 0 To Vc Step 1 60 If 前Va_5分_最高價 = Vh Then 70 Vb = 前Va_5分_最高價 + 5 80 Vd = Va * -1 90 顯示文字[ Vh , 主畫面 , ( Vd , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ] 100 Exit For 110 End If 120 Next 130 140 Vl = 5分_區間最低價( Vc ) 150 For Va = 0 To Vc Step 1 160 If 前Va_5分_最低價 = Vl Then 170 Vb = 前Va_5分_最低價 - 5 180 Vd = Va * -1 190 顯示文字[ Vl , 主畫面 , ( Vd , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ] 200 Exit For 210 End If 220 Next 230 End If
程式碼下載(請儲存於huntap資料匣內) [URL=http://www.huntasoft.com/hsp/0109.rda]http://www.huntasoft.com/hsp/0109.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0418-1.jpg[/IMGA] |
|
|