jfxqhcw
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 113 個(gè)
工控威望: 257 點(diǎn)
下載積分: 11886 分
在線時(shí)間: 223(小時(shí))
注冊時(shí)間: 2010-09-01
最后登錄: 2024-03-20
查看jfxqhcw的 主題 / 回貼
樓主  發(fā)表于: 2012-06-18 11:57
如何使用mscommon
wangxiyan338
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 90 個(gè)
工控威望: 222 點(diǎn)
下載積分: 703 分
在線時(shí)間: 43(小時(shí))
注冊時(shí)間: 2009-03-18
最后登錄: 2017-08-18
查看wangxiyan338的 主題 / 回貼
1樓  發(fā)表于: 2012-06-19 13:02
假設(shè)與FX2N通訊rivate Sub CommSet()
    On Error GoTo err1
    If CommFX.PortOpen = True Then
        CommFX.PortOpen = False
    End If
    If Not CommFX.PortOpen Then
        CommFX.CommPort = cboPort.ListIndex + 1 '通信口
        CommFX.Settings = "9600,N,8,1" '固定值即可
        CommFX.Handshaking = 0
        CommFX.InputLen = 0
        CommFX.OutBufferCount = 0
        CommFX.InBufferCount = 0
        CommFX.PortOpen = True
    End If
    Exit Sub
err1:
    MsgBox Err.Description