fkkshih |
級別 大俠 積分 121 經驗 27006 文章 103 註冊 09-05-28 08:13
|
|
|
發表: 2009-06-15 15:40:52 | 第7樓 |
Dear 版大:
我照著你上面的程式去寫,寫出來執行後卻都沒訊號?
請你幫我看一下,感恩再感恩~~
10 Vk = -1 20 30 // 多單進場 40 If 5分_KD交叉( 9 ) = 是 Then 50 If 交叉類型 = 1 Then 60 If 目前部位( 倉位多空 ) <= 0 Then 70 If Vk = -1 Then 80 Vk = 目前時間( 秒 ) + 3 90 Else 100 Vh = 目前時間( 秒 ) 110 If Vh <= 2 Then 120 Vh = Vh + 60 130 End If 140 If Vh >= Vk Then 150 Va = 5分_開盤價 160 Vc = 5分_最低價 - 12 170 S2$ = '多' + Cstr( Va ) 180 顯示文字[ S2$ , 主畫面 , ( 0 , Vc ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ] 190 Show [ K線下方 , ↑ ] 200 操作訊號( 空單平倉 , 1口 , Va ) 210 操作訊號( 多單建倉 , 1口 , Va ) 220 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 230 GoSub date_time 240 S1$ = S1$ + '1' + '多進' 250 輸出文字檔( R:\KD.txt , S1$ ) 260 單K計數器( 目前K線 , 0 ) = 1 270 Vk = -1 280 End If 290 End If 300 Else 310 Vk = -1 320 End If 330 End If 340 End If 350 End If 360 370 Vk = -1 380 390 // 空單進場 400 If 5分_KD交叉( 9 ) = 是 Then 410 If 交叉類型 = -1 Then 420 If 目前部位( 倉位多空 ) >= 0 Then 430 If Vk = -1 Then 440 Vk = 目前時間( 秒 ) + 3 450 Else 460 Vh = 目前時間( 秒 ) 470 If Vh <= 2 Then 480 Vh = Vh + 60 490 End If 500 If Vh >= Vk Then 510 Va = 5分_開盤價 520 Vc = 5分_最高價 + 15 530 S2$ = '空' + Cstr( Va ) 540 顯示文字[ S2$ , 主畫面 , ( 0 , Vc ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ] 550 Show [ K線上方 , ↓ ] 560 操作訊號( 多單平倉 , 1口 , Va ) 570 操作訊號( 空單建倉 , 1口 , Va ) 580 Vk = -1 590 End If 600 End If 610 Else 620 Vk = -1 630 End If 640 End If 650 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 660 GoSub date_time 670 S1$ = S1$ + '-1' + '空進' 680 輸出文字檔( R:\KD.txt , S1$ ) 690 單K計數器( 目前K線 , 0 ) = 1 700 End If 710 End If |
|
|