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 |
|
|
