Attribute VB_Name = "Module1"
Rem 串行口初始化
Public Sub SCIinit(Msc1 As MSComm, ByVal COMx As Byte, ByVal SCIFormat As String)
   If Msc1.PortOpen = True Then
      Ms1.PortOpen = False
   End If
   Msc1.CommPort = COMx                   '串行口號(hào)
   Msc1.Settings = SCIFormat              '定義傳輸格式
   Msc1.InputMode = comInputModeBinary    '二進(jìn)制數(shù)據(jù)格式
   Msc1.RThreshold = 0                    '關(guān)閉串行中斷
   Msc1.InputLen = 2                      '一次讀取緩沖區(qū)全部數(shù)據(jù)
   Msc1.PortOpen = True                   '打開串行口
   Msc1.InBufferCount = 0
End Sub