comminit.vb

项目是为日本瑞萨工作所做的BAKE炉温控系统 整个文件夹包括设计文档

Module CommInit
    ' 串行口初始化
    Public Sub SCIinit(ByRef MSComm1 As AxMSCommLib.AxMSComm, 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 = MSCommLib.InputModeConstants.comInputModeBinary  '二进制数据格式
        MSComm1.RThreshold = 0 '关闭串行中断
        MSComm1.InputLen = 0 '一次读取缓冲区全部数据
        MSComm1.PortOpen = True '打开串行口
        MSComm1.InBufferCount = 0
    End Sub

End Module