snare wrote:
其實轉換是成功的，是...(恕刪)
來人
這個snare太厲害了
請出題考死他
bioleon69 wrote:
關於程式裡面的某個子程式
...(恕刪)
有點看不懂這程式意思,delaytick(100)
這個實際上是延遲0.1秒的意思嗎?...(恕刪)
今天測試一下，才發現這是錯的這是我在(2017-06-20)189樓回答問題時
大概看一下以為的對的，就直接抄printf.tw寫的副程式，不是我寫的
因為0.1秒的時間太短，再加上我的寫法本來就很快，所以一直沒發現是錯的
快一年了，居然沒人發現，我用的是副程式，其實是無效、錯的
我下次還是不要偷懶抄別人的比較好
'=======正確寫法如下=======
Sub Delaytick(setdelay As Single)
Dim StartTime As Double, NowTime As Double
StartTime = Timer * 100
setdelay = setdelay * 100
Do
NowTime = Timer * 100
DoEvents
Loop Until NowTime - StartTime > setdelay
End Sub
'========================
'=========測試方式如下=====
Sub test()
ttt = Timer
DelayTick(0.02)
'直接用秒數就可以，0.02就是0.02秒，最低大約可以到0.007秒
'延遲時間是近似值
Debug.Print Round(Timer - ttt, 3)
End Sub
'========================
189樓之後，Delaytick副程式要改成上面正確的寫法
程式中Delaytick(100)，需改成Delaytick(0.1)
也可以自己決定要延遲久一點，或短一點
189樓之後的範例，因為網站特性的關係，就算不改也不影響功能，不理它也可以
有空我在修正189樓之後的文章、檔案內容
(20180402 修正完畢)，錯誤的，只有244樓回答問題的文章，328樓範例
內文搜尋
從 APP 打開
X