VB和單片機串口通信

'TextReceive =

' 初始化程序：主要完成對串口的設置，包括選擇串口、設置波特率、設置數據格式、打開串口等。

' 註意：在程序開始之前，必須清空發送和接收緩沖區，以免出錯。

Private Sub Form_Load()

MSComm1.Settings = "9600,n,8,1" ' 設置波特率和發送字符格式

MSComm1.CommPort = 1 ' 設置通訊串口

MSComm1.InputLen = 0 ' 設置或返回壹次從接收緩沖區中讀取字節數，0表示壹次讀取所有數據

MSComm1.InBufferSize = 2 ' 設置接收緩沖區2Byte

MSComm1.InBufferCount = 0

MSComm1.OutBufferSize = 2 ' 設置發送緩沖區2Byte

MSComm1.OutBufferCount = 0

MSComm1.RThreshold = 1 ' 每個字符到接收緩沖區都觸發接收事件

MSComm1.SThreshold = 1

MSComm1.InputMode = comInputModeBinary '采用二進制傳輸

MSComm1.PortOpen = True ' 打開串口

End Sub

Private Sub Command1_Click()

Dim number As Integer

Dim outbyte(0) As Byte

number = Val(170)

outbyte(0) = CByte(number)

MSComm1.Output = outbyte

Label4 = outbyte(0)

Print outbyte(0)

End Sub