帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-1-15 10:34 | 只看該作者

提高同步運算DDE數據效能該如何解套?

使用DDE數據來規劃策略其實已有一段時日，但隨著分析種類日益增多除了懹EXCEL短期增肥速度飆高之外，聯帶著在同步啟動運算時也讓系統效能被吃到一大半。
尤其是快市啟動(指數爆衝)甚至引發表單全面崩潰停擺而遭致損失，為求降低風險與提高準確判斷所以發了此文徵求高手解惑.......................謝謝!!!

目前規格: 同步取樣三家劵商DDE數據作線上分析

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-1-15 12:36 | 只看該作者

本帖最後由 GBKEE 於 2012-1-15 12:47 編輯

回復 1# ribbits
尤其是快市啟動(指數爆衝)甚至引發表單全面崩潰停擺而遭致損失
試著關掉一些不必要軟體減少系統的負荷看看

TOP

ribbits

中學生 Rank: 2

帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

3^#

發表於 2012-1-19 15:48 | 只看該作者

回復 2# GBKEE

唉~~~~~~就是太怕病毒侵擾所以掛了三套防毒系統所以才會綁手綁腳的:'(

這是在EXCEL上記錄每秒數據與畫K棒圖的系統，因為對VBA沒概念所以抓不出問題來

請幫忙看看哪裡出問題...........謝謝

另外，關於在OPENOFFICE上要怎麼寫VB呢?
目前都是將DDE貼入欄位目測而已，請問有大大可指導怎麼寫程序嗎????

DDE下單.rar (27.29 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-1-19 16:35 | 只看該作者

本帖最後由 GBKEE 於 2012-1-19 16:37 編輯

回復 3# ribbits
OPENOFFICE 沒用過所以不會寫
Sub ExeSelf()
      Sheets(2).Cells(j, 1) = timepart          '這是時間 =MMSDDE|FUSA!'N1CL&.143' 嗎?
      Sheets(2).Cells(j, 2) = O                      '這是開  =開盤價嗎?
      Sheets(2).Cells(j, 3) = H                         '這是高  =最高價嗎?
      Sheets(2).Cells(j, 4) = l                         '這是低  =最低價嗎?
      Sheets(2).Cells(j, 5) = C                         '這是收  =???
      Sheets(2).Cells(j, 6) = V - cumVol       '這是量  =???
      Sheets(2).Cells(j, 7) = V                         '這是累積總量  =???
      O = 0                                                          '請些問這變數為何要每次都設定
      H = -99999                                              '請些問這變數為何要每次都設定
      l = 99999                                                 '請些問這變數為何要每次都設定
      cumVol = V                                           '請些問這變數為何要每次都設定

TOP

ribbits

中學生 Rank: 2

帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

5^#

發表於 2012-1-19 18:15 | 只看該作者

回復 4# GBKEE

本人不會寫VBA對語法幾乎外行這程式是網路撿來套表的，所以請您見諒

ouote=Sheet1欄位上面欄位數據是從康和劵商下單程式傳送DDE碼轉貼，因數據隨時變動所以是動態的。
原始表格開啟DDE時要先啟動巨集指令連接劵商軟體捷徑才能看到數據。

目前使用DDE須手動啟動巨集後以目測數據無法做自動判別，有哪個大大使用相同劵商寫過類似表格請指教一下..........謝謝

目前最頭痛的是DDE訊號要如何正確連續記錄到表格上還有產生K棒..............

TOP

ribbits

中學生 Rank: 2

帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

6^#

發表於 2012-1-19 18:28 | 只看該作者

回復 4# GBKEE

這是康和劵商的原始DDE表
開啟後須先啟動巨集連結劵商下單軟體取DDE

Book1.rar (1.88 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-1-19 21:34 | 只看該作者

回復 6# ribbits
      Sheets(2).Cells(j, 1) = timepart          '這是時間 =MMSDDE|FUSA!'N1CL&.143' 嗎?
      Sheets(2).Cells(j, 2) = O                      '這是開  =開盤價嗎?
      Sheets(2).Cells(j, 3) = H                         '這是高  =最高價嗎?
      Sheets(2).Cells(j, 4) = l                         '這是低  =最低價嗎?
      Sheets(2).Cells(j, 5) = C                         '這是收  =???
      Sheets(2).Cells(j, 6) = V - cumVol       '這是量  =???
      Sheets(2).Cells(j, 7) = V                         '這是累積總量  =???
這些是你每秒要存放的資料位置我是問你那些位置分別是要放哪些資料的

TOP

ribbits

中學生 Rank: 2

帖子: 17
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2012-1-14
最後登錄: 2016-9-4

8^#

發表於 2012-1-19 21:51 | 只看該作者

回復 7# GBKEE

您的?上應該就是所敘述的，因為無法將顯示DD即時數據作出連續寫入動作

book1，那個是原始dde碼，據推測它還有個最後啟動程序可開啟與中斷寫入動作功能在(MinBar)工作表上

PS:Quote寫錯成Ouote..............請見諒..............期待您的VBA程式指導.......謝謝

TOP

提高同步運算DDE數據效能該如何解套?

提高同步運算DDE數據效能該如何解套?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]