Attribute VB_Name = "Module1"
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  '二進制數據格式
   MSComm1.RThreshold = 0            '關閉串行中斷
   MSComm1.InputLen = 0              '一次讀取緩沖區全部數據
   MSComm1.PortOpen = True           '打開串行口
   MSComm1.InBufferCount = 0
End Sub