vb 串口編程

任何利用串口進行收發的程序，都可以利用將單個RS232口自身2與3腳短接，實現自發自收進行代碼調試。

新建VB工程,由工程菜單選部件項,在Microsoft Comm Control 6.0部件前打鉤確定,VB的工具箱中就有MSCOMM控件,添加到窗體.

Private Sub cmdSend_Click()

Dim strSend As String

strSend = Text2

MSComm1.Output = strSend

End Sub

Private Sub Form_Load()

MSComm1.Settings = "9600,n,8,1"

MSComm1.InputMode = comInputModeText '采用文本接收

MSComm1.InBufferCount = 0 '清空接受緩沖區

MSComm1.OutBufferCount = 0 '清空傳輸緩沖區

MSComm1.RThreshold = 1 '產生MSComm事件

MSComm1.PortOpen = True

Text1 = ""

End Sub

Private Sub MSComm1_OnComm() '接收數據

Dim strBuff As String

Select Case MSComm1.CommEvent

Case 2

strBuff = MSComm1.Input

Text1 = Text1 & strBuff

End Select

End Sub

上一篇:電工中的PLC指的是什麽

下一篇:最近想做個機器人是要用樹莓派還是Arduino？