可能的情况:
1.死循环
2.程序运行效率不高,占据了CPU的全部工作
3.如果是出现05错误,就是内存访问冲突,可以只测试一个串口,如果一个串口正常,可能要修改程序框架

解决方案 »

  1.   

    我的程序是这样的:
    for k=0 to 7
            MSComm1(k).DTREnable = True
            MSComm1(k).RTSEnable = True
            MSComm1(k).CommPort = 3 + k ' 使用 COM3--COM10。
            MSComm1(k).Settings = "9600,E,8,1" ' 9600 波特,偶校验,8 位数据,一个停止位。
            MSComm1(k).PortOpen = Not MSComm1(k).PortOpen
            MSComm1(k).DTREnable = False
            MSComm1(k).RTSEnable = False
           
            MSComm1(k).InputMode = comInputModeText
            MSComm1(k).InputLen = 0
            MSComm1(k).RThreshold = 1
            MSComm1(k).SThreshold = 1
            MSComm1(k).ParityReplace = ">"
    next k