mingyi1973 |
級別 職業俠客 積分 72 經驗 1777 文章 64 註冊 09-06-15 13:52
|
|
|
發表: 2009-06-16 11:31:33 | 第4樓 |
這是我照您寫的例子改的,但是雅策都沒有交易,請問能幫我看看那裡有問題嗎?謝謝! 10 If 目前部位( 倉位多空 ) > 0 Then 20 If 前1_5分_K線時間 = 1340 Then 30 操作訊號( 多單平倉 , 1口 , Va ) 40 Show [ K線下方 , 收 ] 50 End If 60 End If 70 80 If 目前部位( 倉位多空 ) < 0 Then 90 If 前1_5分_K線時間 = 1340 Then 100 操作訊號( 空單平倉 , 1口 , Va ) 110 Show [ K線上方 , 收 ] 120 End If 130 End If 140 150 Va = 5分_開盤價 160 170 // 多單進場 180 If 目前部位( 倉位多空 ) <= 0 Then 190 If 5分_MACD交叉( 6 , 6 , 9 ) = 是 And 交叉類型 = 1 Then 200 Vb = 1 210 If 目前部位( 倉位多空 ) < 0 Then 220 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 230 End If 240 If Vb >= 1 Then 250 Show [ K線下方 , 多 ] 260 操作訊號( 空單平倉 , 1口 , Va ) 270 操作訊號( 多單建倉 , 1口 , Va ) 280 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 290 GoSub date_time 300 S1$ = S1$ + '1' 310 輸出文字檔( C:\cur_cmd.txt , S1$ ) 320 單K計數器( 目前K線 , 0 ) = 1 330 End If 340 End If 350 End If 360 End If 370 380 // 空單進場 390 If 目前部位( 倉位多空 ) >= 0 Then 400 If 5分_MACD交叉( 6 , 6 , 9 ) = 是 And 交叉類型 = -1 Then 410 Vb = 1 420 If 目前部位( 倉位多空 ) > 0 Then 430 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 440 End If 450 If Vb >= 1 Then 460 Show [ K線上方 , 空 ] 470 操作訊號( 多單平倉 , 1口 , Va ) 480 操作訊號( 空單建倉 , 1口 , Va ) 490 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 500 GoSub date_time 510 S1$ = S1$ + '1' 520 輸出文字檔( C:\cur_cmd.txt , S1$ ) 530 單K計數器( 目前K線 , 0 ) = 1 540 End If 550 End If 560 End If 570 End If 580 590 Sub date_time 600 Vc = 目前時間( 西元年4碼 ) 610 S1$ = Cstr( Vc ) + '/' 620 Vc = 目前時間( 月 ) 630 If Vc < 10 Then 640 S1$ = S1$ + '0' + Cstr( Vc ) + '/' 650 Else 660 S1$ = S1$ + Cstr( Vc ) + '/' 670 End If 680 Vc = 目前時間( 日 ) 690 If Vc < 10 Then 700 S1$ = S1$ + '0' + Cstr( Vc ) + '' 710 Else 720 S1$ = S1$ + Cstr( Vc ) + '' 730 End If 740 Vc = 目前時間( 時 ) 750 If Vc < 10 Then 760 S1$ = S1$ + '0' + Cstr( Vc ) + ':' 770 Else 780 S1$ = S1$ + Cstr( Vc ) + ':' 790 End If 800 Vc = 目前時間( 分 ) 810 If Vc < 10 Then 820 S1$ = S1$ + '0' + Cstr( Vc ) + '' 830 Else 840 S1$ = S1$ + Cstr( Vc ) + '' 850 End If 860 End Sub |
|
|