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