傳送的值如果有錯的話 我不要讓它顯示ERROR 'MsgBox ("error")← 這段可以拿掉

如何讓下段程式碼在自動重新執行

請問這樣要怎麼寫??


Private Sub Command5_Click()
MSComm1.Output = "#bcegik00250100*"
'delay comm ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

問題一：傳送的值如果有錯的話 我不要讓它顯示ERROR 'MsgBox ("error")← 這段可以拿掉
答案就如同您講的，拿掉MsgBox ("error")就好。況且你給的程式碼已經註解那行了，所以結果如同您所需要的

問題二：如何讓下段程式碼在自動重新執行
這邊可能要您解釋一下何謂自動重新執行？這邊我看不懂..所以幫不上忙..

問題一這我知道

問題二我是想說要怎麼讓他重新RUN程式碼??不是按執行那個鍵再按一次喔

是本身已經在執行 就算錯誤,他也會一直執行但是不會有動作這樣

只有執行才會有動作

我這是rs232-步進馬達的程式碼

麻煩一下,如果會請教我怎麼寫??

可以使用以下程式碼
On Error Resume Next '此指令開始一直到 End Sub/Function，所有錯誤一律會被忽略


此指令雖好用，但可能會對 debug 造成一些困擾(不知哪裡出現錯誤)，請慎用

依照你貼的程式碼來看，你這邊的行為是因為按了一個button才去觸發的。

所以你這邊的行為如果沒有要做重複操作的話，其實他應該是只會做一次而已，程式碼看起來也只會做一次而已。

至於"本身已經在執行 就算錯誤,他也會一直執行但是不會有動作這樣"，那麼你要在你的執行條件之前，加入錯誤的判斷（有點像你寫的if的那行，只是條件你要改成不發生錯誤時才繼續執行）

複製程式
就邏輯來看，你的程式碼已經符合你的要求了阿，至於裡面的行為跟判斷條件，就要你自己去補足嚕

請問3樓的大大~~

那一段句子是要加在哪裡??

4樓的大大感謝你的回覆~

我大概有個靈感了!

謝謝

假設有 5 句程式敘述，
On Error Resume Next 此句可以放在 Line1~4 的任意位置(放在 Line 5 沒有意義，因為已是最後一行程式碼)

Private Sub Command5_Click()
  'Line 1
  'Line 2
  'Line 3
  'Line 4
  'Line 5
End Sub



例如
Private Sub Command5_Click()
  On Error Resume Next
  .......
  .......
End Sub

3樓的大大如果有要重複操作那要怎麼寫？？

4樓的大大～

我測試過了還是不行～

但還是謝謝你提供意見

不行？！

這還蠻奇怪的說

你要不要貼一下你改過的程式碼阿？

如果可以的話順便解釋一下一些相關變數（自定的或是MSComm的return值）的定義

MSComm太久沒碰了..已經完全忘記那怎麼用了XD