HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> HSQL語言討論區 >> 請幫忙修正錯誤
請幫忙修正錯誤
wintanfa,2012-07-12 08:06:32
敬啟者您好:
下列判別式無法執行...請幫忙修正錯誤...感恩!
200 If 1分_K線時間 = 846 And 1分_收盤價 <= 前1_日__收盤價 Then
210 顯示資訊[ 攻守區間 , 序號: 14 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
220 S1$ = Cstr( Vg ) + '<>' + Cstr( Vr ) + '↗'
230 Else
240 If 1分_K線時間 = 846 And 1分_收盤價 >= 前1_日__收盤價 Then
250 顯示資訊[ 攻守區間 , 序號: 14 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
260 S1$ = Cstr( Vr ) + '<>' + Cstr( Vg ) + '↘'
270 End If
280 End If
Hunta,2012-07-12 08:30:24
無法執行是什麼狀況?
wintanfa,2012-07-12 08:48:36
敬啟者您好:
預設正常狀況:
開低 攻守區間 7100 <> 7300 ↘
開高 攻守區間 7300 <> 7100 ↗
結果顯示:
開低 攻守區間 7187↓
開高 攻守區間 7187↓ (前一的最低價)
Hunta,2012-07-12 09:07:34
我想是你的判斷邏輯不大對,才會出現與想法不同的結果
試著改為下列架構看看:
If 1分_K線時間 = 846 Then
If 1分_收盤價 <= 前1_日__收盤價 Then
.......
ElseIf 1分_收盤價 > 前1_日__收盤價 Then
.......
End If
End If
wintanfa,2012-07-12 14:38:30
敬啟者您好:
新的判別式沒有執行...請幫忙修正錯誤...感恩!
210 顯示資訊[ 攻守區間 , 序號: 14 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
220 If 1分_K線時間 = 846 Then
230 If 1分_收盤價 <= 前1_日__收盤價 Then
240 S1$ = Cstr( Vg ) + '<>' + Cstr( Vr ) + '↗'
250 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
260 ElseIf 1分_收盤價 > 前1_日__收盤價 Then
270 S1$ = Cstr( Vr ) + '<>' + Cstr( Vg ) + '↘'
280 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
290 End If
300 End If
wintanfa,2012-07-12 14:57:02
敬啟者您好:
以前沒有設220 230 260自動判別條件
等開盤後..開低執行240 250 開高執行270 280 二個人工程式...
請幫忙修正錯誤...感恩!
Hunta,2012-07-12 15:46:09
220 If 1分_K線時間 = 846 Then
230 If 1分_收盤價 <= 前1_日__收盤價 Then
240 S1$ = Cstr( Vg ) + '<>' + Cstr( Vr ) + '↗'
250 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
-------> 這裡加上一行Vz = 1
260 ElseIf 1分_收盤價 > 前1_日__收盤價 Then
270 S1$ = Cstr( Vr ) + '<>' + Cstr( Vg ) + '↘'
280 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
-------> 這裡加上一行Vz = 2
290 End If
300 End If
後面再判斷
If Vz = 1 Then
..........
ElseIf Vz = 2 then
..........
End If
wintanfa,2012-07-12 16:18:56
敬啟者您好:
新的判別式還是沒有執行? 傷腦筋!
210 顯示資訊[ 攻守區間 , 序號: 14 , 大小: 009 , 文字色: 0 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
220 If 1分_K線時間 = 846 Then
230 If 1分_收盤價 <= 前1_日__收盤價 Then
240 S1$ = Cstr( Vg ) + '<>' + Cstr( Vr ) + '↗'
250 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
260 Vz = 1
270 ElseIf 1分_收盤價 > 前1_日__收盤價 Then
280 S1$ = Cstr( Vr ) + '<>' + Cstr( Vg ) + '↘'
290 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
300 Vz = 2
310 End If
320 End If
330
340 If Vz = 1 Then
350 S1$ = Cstr( Vg ) + '<>' + Cstr( Vr ) + '↗'
360 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
370 ElseIf Vz = 2 Then
380 S1$ = Cstr( Vr ) + '<>' + Cstr( Vg ) + '↘'
390 顯示資訊[ S1$ , 序號: 15 , 大小: 009 , 文字色: 16711935 , 背景色: 16777215 , 置中 , 字型: 新細明體 , 最後 ]
400 End If
Hunta,2012-07-12 16:21:13
用Debug函數找一下問題在哪裡。
記得Debug函數是用來找問題的超好用工具。
wintanfa,2012-07-12 17:33:17
敬啟者您好:
單獨執行OK
組合執行就不OK
Hunta,2012-07-12 18:05:50
我沒有你的策略,也只能用猜的。
用Debug函數查一下最快。
wintanfa,2012-07-12 18:44:20
敬啟者您好:
我不會用Debug函數查?
97 1 2 8: 此主題共有17帖 此頁12帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時62.5毫秒 請求2次
|