Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-10-07 09:11:21   | 第14樓 |
程式碼如下:
10 Vc = 1分_收盤價
20 Vo = 前1_1分_均價( 2 )
30 Vt = ( 前1K線_Vc + 前1K線_Vo ) / 2
40 Vu = ( Vc + Vo ) / 2
50 Vt = Round( Vt , 0 )
60 Vu = Round( Vu , 0 )
70 Vc = ( Vo - 前1K線_Vo ) * 0.618 + 前1K線_Vo
80 Vb = 前1K線_Vc
90 If 1分_收盤價 >= Vc Then
100 K線顏色( 棒身 255 , 影線 16777215 )
110 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
120 Else
130 K線顏色( 棒身 16777215 , 影線 16777215 )
140 直線[ ( 0 , Vc ) - (-1 , Vb ) , 主畫面 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
150 End If
160
170 Ve = ( 1分_開盤價 + 1分_最高價 + 1分_最低價 + 1分_收盤價 ) / 4
180 顯示橫排資訊[ 主畫面 , #0 , 名稱: 今日轉折價 , X軸: 6000 , Vt , 顏色: 16777215 ]
190 顯示橫排資訊[ 主畫面 , #1 , 名稱: 明日轉折價 , X軸: 9000 , Vu , 顏色: 16777215 ]
200 顯示資訊[ 今日轉折價 , 序號: 1 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
210 顯示資訊[ Vt , 序號: 2 , 大小: 009 , 文字色: 255 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
220 顯示資訊[ 明日轉折價 , 序號: 4 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
230 顯示資訊[ Vu , 序號: 5 , 大小: 009 , 文字色: 8388736 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
240 顯示資訊[ 均價 , 序號: 7 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
250 顯示資訊[ Ve , 序號: 8 , 大小: 009 , 文字色: 16711808 , 背景色: 16777215 , 置中 , 字型: 新細明體 ]
下載程式碼 [URL=http://www.huntasoft.com/hsp/0081.rda]http://www.huntasoft.com/hsp/0081.rda[/URL]
執行畫面如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/1007-1.jpg[/IMGA]
[B][COLOR=#d60808]※請更新HSP v5.0b版方可正常執行本範例。[/COLOR][/B] |
|
|
