![](../images/null.gif)
![](../images/null.gif) Hunta | ![](../images/null.gif)
![級別 法老](../images/lvstar/level20.gif)
![](../images/null.gif) 門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
![](../images/blank.gif) |
發表: 2009-07-31 06:50:39![](../images/null.gif) ![引用回覆](../images/re.gif) ![](../images/null.gif) ![此用戶首頁](../images/home.gif) ![](../images/null.gif) ![給Hunta發消息](../images/message.GIF) | 第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 |
|
|