mingyi1973 |
級別 職業俠客 積分 72 經驗 1777 文章 64 註冊 09-06-15 13:52
|
|
|
發表: 2009-06-20 16:01:37 | 第16樓 |
版大這是我自己硬著頭皮寫的三口操作策略但是不知問題出在那裡?請您幫我看一下為什麼第二口的停利一直顯示不出來?還有沒有其他問題?謝謝!!!
10 Va = 5分_開盤價 20 Vl = 目前部位( 第 1 次剩餘口數 ) 30 40 // 多單進場 50 If 目前部位( 倉位多空 ) <= 0 Then 60 If 5分_均線交叉( 5 , 40 ) = 是 And 交叉類型 = 1 Then 70 Vb = 1 80 If 目前部位( 倉位多空 ) <= 0 Then 90 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 100 End If 110 If Vb >= 1 Then 120 Vi = 5分_最低價 - 1 130 S4$ = '3多' + Cstr( Va ) 140 顯示文字[ S4$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 12615935 ] 150 操作訊號( 空單平倉 , Vl口 , Va ) 160 操作訊號( 多單建倉 , 3口 , Va ) 170 K線顏色( 棒身 16744703 , 加框 16777215 , 影線 16777215 ) 180 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 190 播放聲音( C:\huntap\up01.wav ) 200 GoSub date_time 210 S1$ = S1$ + '1' 220 輸出文字檔( R:\cur_cmd.txt , S1$ ) 230 單K計數器( 目前K線 , 0 ) = 1 240 End If 250 End If 260 End If 270 End If 280 290 // 多單如漲超過35停利一口 300 If 目前部位( 倉位多空 ) > 0 Then 310 If 單K計數器( 目前K線 , 0 ) = 0 Then 320 Vd = 5分_最高價 - 目前部位( 第 1 次成本價位 ) 330 Vg = 5分_收盤價 340 If Vd >= 35 Then 350 Vi = 5分_最低價 - 4 360 S10$ = '2多' + Cstr( Vg ) 370 顯示文字[ S10$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 16711935 ] 380 操作訊號( 多單平倉 , 1口 , Vg ) 390 K線顏色( 棒身 16711935 , 加框 16777215 , 影線 16777215 ) 400 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 410 GoSub date_time 420 S1$ = S1$ + '-1' 430 輸出文字檔( R:\cur_cmd.txt , S1$ ) 440 單K計數器( 目前K線 , 0 ) = 1 450 End If 460 End If 470 End If 480 End If 490 500 // 多單如果5分均線5和20死亡交叉停利第二口-這部份無法顯示 510 If 目前部位( 倉位多空 ) > 0 Then 520 If 5分_均線交叉( 5 , 20 ) = 是 And 交叉類型 = -1 Then 530 Vb = 1 540 If 目前部位( 倉位多空 ) > 0 Then 550 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 560 End If 570 If Vb >= 1 Then 580 Vi = 5分_最低價 - 4 590 S7$ = '1多' + Cstr( Va ) 600 顯示文字[ S7$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 16776960 ] 610 操作訊號( 多單平倉 , 1口 , Va ) 620 K線顏色( 棒身 12845252 , 加框 16777215 , 影線 16777215 ) 630 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 640 播放聲音( C:\huntap\up01.wav ) 650 GoSub date_time 660 S1$ = S1$ + '1' 670 輸出文字檔( R:\cur_cmd.txt , S1$ ) 680 單K計數器( 目前K線 , 0 ) = 1 690 End If 700 End If 710 End If 720 End If 730 740 750 // 空單進場 760 If 目前部位( 倉位多空 ) >= 0 Then 770 If 5分_均線交叉( 5 , 40 ) = 是 And 交叉類型 = -1 Then 780 Vb = 1 790 If 目前部位( 倉位多空 ) >= 0 Then 800 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 810 End If 820 If Vb >= 1 Then 830 Vj = 5分_最高價 + 1 840 S5$ = '3空' + Cstr( Va ) 850 顯示文字[ S5$ , 主畫面 , ( 0 , Vj ) , 字型: 新細明體 , 大小: 010 , 顏色: 16777088 ] 860 操作訊號( 多單平倉 , Vl口 , Va ) 870 操作訊號( 空單建倉 , 3口 , Va ) 880 K線顏色( 棒身 16777088 , 加框 16777215 , 影線 16777215 ) 890 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 900 播放聲音( C:\huntap\down01.wav ) 910 GoSub date_time 920 S1$ = S1$ + '1' 930 輸出文字檔( R:\cur_cmd.txt , S1$ ) 940 單K計數器( 目前K線 , 0 ) = 1 950 End If 960 End If 970 End If 980 End If 990
1000 // 空單如果跌超過35停利第一口
1010 If 目前部位( 倉位多空 ) < 0 Then
1020 If 單K計數器( 目前K線 , 0 ) = 0 Then
1030 Ve = 目前部位( 第 1 次成本價位 ) - 5分_最低價
1040 Vg = 5分_收盤價
1050 If Ve >= 35 Then
1060 Vj = 5分_最高價 + 1
1070 S9$ = '2空' + Cstr( Vg )
1080 顯示文字[ S9$ , 主畫面 , ( 0 , Vj ) , 字型: 新細明體 , 大小: 010 , 顏色: 12895232 ]
1090 操作訊號( 空單平倉 , 1口 , Vg )
1100 K線顏色( 棒身 16776960 , 加框 16777215 , 影線 16777215 )
1110 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1120 GoSub date_time
1130 S1$ = S1$ + '-1'
1140 輸出文字檔( R:\cur_cmd.txt , S1$ )
1150 單K計數器( 目前K線 , 0 ) = 1
1160 End If
1170 End If
1180 End If
1190 End If
1200
1210 // 空單如果5分均線5和20黃金交叉停利第二口-這部份無法顯示
1220 If 目前部位( 倉位多空 ) < 0 Then
1230 If 5分_均線交叉( 5 , 20 ) = 是 And 交叉類型 = 1 Then
1240 Vb = 1
1250 If 目前部位( 倉位多空 ) < 0 Then
1260 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 )
1270 End If
1280 If Vb >= 1 Then
1290 Vj = 5分_最高價 + 1
1300 S8$ = '1空' + Cstr( Va )
1310 顯示文字[ S8$ , 主畫面 , ( 0 , Vj ) , 字型: 新細明體 , 大小: 010 , 顏色: 12895232 ]
1320 操作訊號( 空單平倉 , 1口 , Va )
1330 K線顏色( 棒身 12895232 , 加框 16777215 , 影線 16777215 )
1340 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1350 播放聲音( C:\huntap\down01.wav )
1360 GoSub date_time
1370 S1$ = S1$ + '1'
1380 輸出文字檔( R:\cur_cmd.txt , S1$ )
1390 單K計數器( 目前K線 , 0 ) = 1
1400 End If
1410 End If
1420 End If
1430 End If
1440
1450 Vl = 目前部位( 第 1 次剩餘口數 )
1460
1470 // 多單停損
1480 If 目前部位( 倉位多空 ) > 0 Then
1490 If 單K計數器( 目前K線 , 0 ) = 0 Then
1500 Vf = 5分_最低價 - 目前部位( 第 1 次成本價位 )
1510 Vg = 5分_收盤價
1520 If Vf <= -30 Then
1530 Vi = 5分_最低價 - 4
1540 S2$ = '損' + Cstr( Vg )
1550 顯示文字[ S2$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ]
1560 操作訊號( 多單平倉 , Vl口 , Vg )
1570 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1580 GoSub date_time
1590 S1$ = S1$ + '-1'
1600 輸出文字檔( R:\cur_cmd.txt , S1$ )
1610 單K計數器( 目前K線 , 0 ) = 1
1620 End If
1630 End If
1640 End If
1650 End If
1660
1670 // 空單停損
1680 If 目前部位( 倉位多空 ) < 0 Then
1690 If 單K計數器( 目前K線 , 0 ) = 0 Then
1700 Vh = 目前部位( 第 1 次成本價位 ) - 5分_最高價
1710 Vg = 5分_收盤價
1720 If Vh <= -30 Then
1730 Vj = 5分_最高價 + 4
1740 S2$ = '損' + Cstr( Vg )
1750 顯示文字[ S2$ , 主畫面 , ( 0 , Vj ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ]
1760 操作訊號( 空單平倉 , Vl口 , Vg )
1770 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1780 GoSub date_time
1790 S1$ = S1$ + '-1'
1800 輸出文字檔( R:\cur_cmd.txt , S1$ )
1810 單K計數器( 目前K線 , 0 ) = 1
1820 End If
1830 End If
1840 End If
1850 End If
1860
1870 Vl = 目前部位( 第 1 次剩餘口數 )
1880
1890 // 多單收盤平倉
1900 If 目前部位( 倉位多空 ) > 0 Then
1910 If 前1_5分_K線時間 = 1340 Then
1920 操作訊號( 多單平倉 , Vl口 , Va )
1930 Vi = 5分_最低價 - 2
1940 S3$ = '收' + Cstr( Va )
1950 顯示文字[ S3$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 16777215 ]
1960 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1970 GoSub date_time
1980 S1$ = S1$ + '-1'
1990 輸出文字檔( R:\cur_cmd.txt , S1$ )
2000 單K計數器( 目前K線 , 0 ) = 1
2010 End If
2020 End If
2030 End If
2040
2050 // 空單收盤平倉
2060 If 目前部位( 倉位多空 ) < 0 Then
2070 If 前1_5分_K線時間 = 1340 Then
2080 操作訊號( 空單平倉 , Vl口 , Va )
2090 Vj = 5分_最高價 + 2
2100 S3$ = '收' + Cstr( Va )
2110 顯示文字[ S3$ , 主畫面 , ( 0 , Vj ) , 字型: 新細明體 , 大小: 010 , 顏色: 16777215 ]
2120 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
2130 GoSub date_time
2140 S1$ = S1$ + '-1'
2150 輸出文字檔( R:\cur_cmd.txt , S1$ )
2160 單K計數器( 目前K線 , 0 ) = 1
2170 End If
2180 End If
2190 End If
2200
2210 // 輸出至下單機
2220 Sub date_time
2230 Vc = 目前時間( 西元年4碼 )
2240 S1$ = Cstr( Vc ) + '/'
2250 Vc = 目前時間( 月 )
2260 If Vc < 10 Then
2270 S1$ = S1$ + '0' + Cstr( Vc ) + '/'
2280 Else
2290 S1$ = S1$ + Cstr( Vc ) + '/'
2300 End If
2310 Vc = 目前時間( 日 )
2320 If Vc < 10 Then
2330 S1$ = S1$ + '0' + Cstr( Vc ) + ''
2340 Else
2350 S1$ = S1$ + Cstr( Vc ) + ''
2360 End If
2370 Vc = 目前時間( 時 )
2380 If Vc < 10 Then
2390 S1$ = S1$ + '0' + Cstr( Vc ) + ':'
2400 Else
2410 S1$ = S1$ + Cstr( Vc ) + ':'
2420 End If
2430 Vc = 目前時間( 分 )
2440 If Vc < 10 Then
2450 S1$ = S1$ + '0' + Cstr( Vc ) + ''
2460 Else
2470 S1$ = S1$ + Cstr( Vc ) + ''
2480 End If
2490 End Sub
|
|
|