奇狐社區論壇 - 如何暫停五秒後再繼續往下執行

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > 如何暫停五秒後再繼續往下執行

上一主題下一主題

作者

主題

hwyhon
資深會員

註冊日期: Sep 2004
來　　自: 台中
文章數量: 332

如何暫停五秒後再繼續往下執行

原碼:
Order := numtostr(DATE,0);
Da:=numtostr(DATE,0);
<%
'on error resume next
WScript.Sleep(5000)'我如何暫停五秒後再繼續往下執行底下程式
Dim fso, MyFile
Order = FFL.VarData("Order")
Da = FFL.VarData("Da")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\ Da.txt", True)
MyFile.WriteLine(Order)
MyFile.Close
'err.clear
%>

C;

WScript.Sleep(5000)
好像只能暫停外部程序
VBS仍會一氣執行完畢並不受WScript.Sleep(5000)的影響
我需如何才能延遲VBS本身的程式執行
或是奇狐本身如何延遲五秒後才執行<%......%>
盤後用喔

__________________

就是發蓊梨(ㄛㄥˇ ㄌㄞˊ) 程式交易網站
[教學]指標公式及程式交易系統撰寫 [代工]

學會指標策略程式化的撰寫,將可讓你不再盲目投下辛苦賺來的血汗錢
要知道交易的策略或交易的模式長期執行下確實可獲利
交易才有意義的.否則寧可不交易

最後由 hwyhon 在 2012-12-29 13:17 編輯

向版主報告此篇 |

2012-12-29 13:12

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18194

回覆: 如何暫停五秒後再繼續往下執行

引用:
最初由 hwyhon 發表
原碼:
Order := numtostr(DATE,0);
Da:=numtostr(DATE,0);
<%
'on error resume next
WScript.Sleep(5000)'我如何暫停五秒後再繼續往下執行底下程式
Dim fso, MyFile
Order = FFL.VarData("Order")
Da = FFL.VarData("Da")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\ Da.txt", True)
MyFile.WriteLine(Order)
MyFile.Close
'err.clear
%>

C;
WScript.Sleep(5000)
好像只能暫停外部程序
VBS仍會一氣執行完畢並不受WScript.Sleep(5000)的影響
我需如何才能延遲VBS本身的程式執行
或是奇狐本身如何延遲五秒後才執行<%......%>
盤後用喔

奇狐是算完後一次輸出所有結果於畫面
若您是要在 vbscript 中去 delay 5秒

那麼當公式被觸發計算, 計算一輪所需的時間
至少需要五秒以上( 因為中間被 delay5 秒 )

在 vbscript 中, 您可運用迴圈加計數器, 來做 delay
以下為 vbscript 程式, delay 五秒的範例

原碼:StartTime = Timer
do
  EndTime = Timer
  UseTime = EndTime + (EndTime<StartTime)*86400 - StartTime
loop while UseTime<5

絕大多數的運用是不需要去 delay 的
若無特殊需求, 不建議去套用它
因為其會造成盤中 delay, 每次觸發都會 delay 五秒
且 delay 可能會導致無回應, 進而引發軟體當掉

向版主報告此篇 |

2013-01-02 10:14

hwyhon
資深會員

註冊日期: Sep 2004
來　　自: 台中
文章數量: 332

謝謝版主
我下午再試看看是否可達成我要的效果

向版主報告此篇 |

2013-01-02 10:22

全部時間均為台灣時間, 現在時間為04:14

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。