传送的值如果有错的话 我不要让它显示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