Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2009-07-31 06:50:39 | 第2樓 |
應該改寫成:
880 // 空單出場 890 If 目前部位( 倉位多空 ) < 0 Then 900 If 前1_5分_K線時間 = 1325 Then 910 操作訊號( 空單平倉 , 1口 , Vb ) 920 Show [ K線上方 , ◎ ] 930 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 940 S1$ = '1' 950 輸出命令檔( c\1688.txt , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$] ) 960 單K計數器( 目前K線 , 0 ) = 1 970 End If
End If
980 If .............. Then 990 操作訊號( 空單平倉 , 1口 , Vb )
1000 Show [ K線下方 , ◎ ]
1010 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1020 S1$ = '1'
1030 輸出命令檔( c\1688.txt , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$] )
1040 單K計數器( 目前K線 , 0 ) = 1
1050 End If
End If
1060 If ................ Then
1070 操作訊號( 空單平倉 , 1口 , Vb )
1080 Show [ K線下方 , ◎ ]
1090 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1100 S1$ = '1'
1110 輸出命令檔( c\1688.txt , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$] )
1120 單K計數器( 目前K線 , 0 ) = 1
1130 End If
End If
1140 If ......... Then
1150 操作訊號( 空單平倉 , 1口 , Vb )
1160 Show [ K線下方 , ◎ ]
1170 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1180 S1$ = '1'
1190 輸出命令檔( c\1688.txt , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$] )
1200 單K計數器( 目前K線 , 0 ) = 1
1210 End If
1220 End If
1260 End If |
|
|