vb.net 串口收發(fā)數(shù)據(jù)有問題

不知道你是不是用51單片機(jī)往串口發(fā)數(shù)據(jù)，是的話那是因?yàn)?1的sbuf最多存放8個(gè)字節(jié)，所以你發(fā)12個(gè)字節(jié)會(huì)分成兩次發(fā)完。還有在接收的時(shí)候最好定義好通信協(xié)議，比如加一個(gè)偵頭，一個(gè)偵尾，通過這兩個(gè)字節(jié)的內(nèi)容來接收數(shù)據(jù)。

創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、荔波網(wǎng)絡(luò)推廣、微信小程序開發(fā)、荔波網(wǎng)絡(luò)營銷、荔波企業(yè)策劃、荔波品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供荔波建站搭建服務(wù)，24小時(shí)服務(wù)熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

老兄，提問還是給點(diǎn)懸賞分嘛，不要吝嗇哪點(diǎn)分，知識(shí)是無價(jià)的，你給得越多，回答你的人才會(huì)越多。

vb.net2010十六進(jìn)制讀取串口的問題

不是很明白你的題意

strHex = strHex + [String].Format("{0:X2} "

這里的意思是把每個(gè)字節(jié)數(shù)據(jù)轉(zhuǎn)換成了十六進(jìn)制，每個(gè)字節(jié)占兩個(gè)字符

如果你串口收到的4個(gè)字節(jié)數(shù)據(jù)：43,27,56,200

那么你的結(jié)果是：2B1B38C8

即receivebytes.Text="2B1B38C8"

不足兩位的補(bǔ)0

如果你串口收到的4個(gè)字節(jié)數(shù)據(jù)：3,27,56,200

那么你的結(jié)果是：031B38C8

即receivebytes.Text="031B38C8"

VB.NET使用AxMSComm實(shí)現(xiàn)串口通信的發(fā)送讀取問題？

上面的代碼看不出問題，如果初始化串口控件時(shí)已經(jīng)注冊(cè)了AxMSComm1_OnComm，有數(shù)據(jù)接收應(yīng)該能觸發(fā)，至于為什么沒有觸發(fā)，要看看你的接收方是否已經(jīng)收到你的發(fā)出指令，是否已經(jīng)有響應(yīng)數(shù)據(jù)回發(fā)。

建議分開調(diào)試，用一個(gè)通用的串口助手，如格西烽火串口助手之類的，分別調(diào)試你的上位機(jī)和下位機(jī)。格西烽火串口助手能輕松的定制如你上面的發(fā)送數(shù)據(jù)。

VB.NET中如何處理串口通信接收的數(shù)據(jù)？

你可以預(yù)先約定一個(gè)截止附，讀取的字節(jié)統(tǒng)統(tǒng)放到緩存區(qū)里，直到讀到截止附再處理、顯示。

vb.net 怎么用事件觸發(fā)的方式讀取串口數(shù)據(jù)

首先：

textbox里沒有顯示，是因?yàn)镾erialPort1和TextBox2不是同一線程創(chuàng)建的，需要跨線程操作。需要用到委托，這樣才能顯示出來。

其次：

我覺得用串口的接收數(shù)據(jù)事件更好一些。

下面代碼供參考：

'----------------------

'串口接收數(shù)據(jù)事件，其實(shí)比用定時(shí)器更好，

'觸發(fā)事件的條件可以自己在form_load中設(shè)置ReceivedBytesThreshold屬性數(shù)值，默認(rèn)為ReceivedBytesThreshold=1

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim strRecvData As String = ""

strRecvData = SerialPort1.ReadExisting

Call disPlayComData(strRecvData)

End Sub

Delegate Sub callback(ByVal strT As String) '定義委托

Sub showString(ByVal comdata As String) '顯示結(jié)果

Me.TextBox1.Text = "結(jié)果：" comdata

End Sub

Sub disPlayComData(ByVal strTmp As String) '判定是否為跨線程

If Me.TextBox1.InvokeRequired Then

Dim d As New callback(AddressOf showString)

Me.Invoke(d, New Object() {strTmp})

Else

Me.TextBox1.Text = strTmp

End If

End Sub