請幫忙修正錯誤 - HSP程式交易論壇


	上篇重新整理下篇

9712 8 : 此主題共有17帖此頁12帖每頁12帖

主題：請幫忙修正錯誤 - 複製地址

wintanfa

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 08:06:32 人氣:86036

樓主

請幫忙修正錯誤

敬啟者您好:

下列判別式無法執行...請幫忙修正錯誤...感恩!

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

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2012-07-12 08:30:24

第2樓

無法執行是什麼狀況?

wintanfa

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 08:48:36

第3樓

敬啟者您好:

預設正常狀況:
開低攻守區間 7100 <> 7300 ↘
開高攻守區間 7300 <> 7100 ↗

結果顯示:
開低攻守區間 7187↓
開高攻守區間 7187↓ (前一的最低價)

Hunta

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2012-07-12 09:07:34

第4樓

我想是你的判斷邏輯不大對，才會出現與想法不同的結果
試著改為下列架構看看:
If　1分_K線時間　=　846　Then
If 1分_收盤價　<=　前1_日__收盤價　Then
.......
ElseIf 1分_收盤價　>　前1_日__收盤價　Then
.......
End If
End If

wintanfa

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 14:38:30

第5樓

敬啟者您好:

新的判別式沒有執行...請幫忙修正錯誤...感恩!

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

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 14:57:02

第6樓

敬啟者您好:

以前沒有設220 230 260自動判別條件
等開盤後..開低執行240 250 開高執行270 280 二個人工程式...
請幫忙修正錯誤...感恩!

Hunta

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2012-07-12 15:46:09

第7樓

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

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 16:18:56

第8樓

敬啟者您好:

新的判別式還是沒有執行? 傷腦筋!

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

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2012-07-12 16:21:13

第9樓

用Debug函數找一下問題在哪裡。
記得Debug函數是用來找問題的超好用工具。

wintanfa

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 17:33:17

第10樓

敬啟者您好:
單獨執行OK
組合執行就不OK

Hunta

門派管理員
職務總版主
級別法老
聲望＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15

發表: 2012-07-12 18:05:50

第11樓

我沒有你的策略，也只能用猜的。
用Debug函數查一下最快。

wintanfa

級別精靈
積分 574
經驗 4577
文章 455
註冊 10-04-18 11:11

發表: 2012-07-12 18:44:20

第12樓

敬啟者您好:

我不會用Debug函數查?

9712 8 : 此主題共有17帖此頁12帖每頁12帖

回覆文章注意: *為必填項

*驗證訊息

用戶名稱密碼註冊

*文章名稱

長度不得超過255字

內容(最大25K)
是否是UBB代碼

內容支持插入UBB標籤
使用方法請參考幫助

其它選項:

顯示簽名

鎖定文章

- 顏色表 Alt+S或Ctrl+Enter快速提交