wintanfa |
級別 精靈 積分 574 經驗 4577 文章 455 註冊 10-04-18 11:11
|
|
|
發表: 2010-11-21 11:41:01 | 第5樓 |
如何增加區間內最高和最低的顯示?
敬啟者您好:
這是以前幫忙寫的程式碼
[COLOR=#e61a6b]重點是VC的值 超過101就沒有作用[/COLOR]
而一分鐘的K現有300根 要如何增加VC的值?
If 最後K線 = 是 Then
Vc = 101
Vm = 1分_區間最高價( Vc )
For Va = 0 To Vc Step 1
If 前Va_1分_最高價 = Vm Then
Vb = 前Va_1分_最高價 + 2
Vd = Va * -1
S1$ = 'H' + Cstr( Vm )
顯示文字[ S1$ , 主畫面 , ( Vd , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
Exit For
End If
Next
Vw = 1分_區間最低價( Vc )
For Va = 0 To Vc Step 1
If 前Va_1分_最低價 = Vw Then
Vb = 前Va_1分_最低價 - 2
Vd = Va * -1
S1$ = 'L' + Cstr( Vw )
顯示文字[ S1$ , 主畫面 , ( Vd , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
Exit For
End If
Next
End If |
|
|