請教用VB.NET向串口發(fā)送16進制的數(shù)的方法

應(yīng)該是你的轉(zhuǎn)換格式不正確，下面代碼就是將文本框中以一個空格隔開的十六進制轉(zhuǎn)為字節(jié)的代碼，文本框中數(shù)字格式為：01 02 03

創(chuàng)新互聯(lián)服務(wù)項目包括湘陰網(wǎng)站建設(shè)、湘陰網(wǎng)站制作、湘陰網(wǎng)頁制作以及湘陰網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，湘陰網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到湘陰省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

Dim TestArray() As String = Split(TextBox1.Text)

Dim hexBytes() As Byte

ReDim hexBytes(TestArray.Length - 1)

Dim i As Integer

For i = 0 To TestArray.Length - 1

hexBytes(i) = Val("h" TestArray(i))

Next

SerialPort.Write(hexBytes, 0, hexBytes.Length)

如果有問題可以再聯(lián)系。

vb.net 串口接收問題

0x3F表示字符"?"

估計是你的發(fā)送指令不正確，設(shè)備返回你發(fā)送的指令后面加''？""

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

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

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

vb.net SerialPort控件接收數(shù)據(jù)問題，用串口調(diào)試助手發(fā)數(shù)據(jù)，只有第一次可以正常接收

你定義的委托需要帶參數(shù)才行，DataReceived事件中沒有接收數(shù)據(jù)代碼，下面的代碼經(jīng)測試可用

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '將收到的數(shù)據(jù)入接收文字框中

txt_Rect.SelectionStart = txt_Rect.Text.Length

txt_Rect.ScrollToCaret()

End Sub

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

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

BeginInvoke(d, inData)

End Sub

如何用vb做一個串口調(diào)試助手的界面

會用C,就用C做.

會用 dehphi7 就用 dehphi7 做,

最后才考慮用 VB 做.

VB做這些底層的東西,有點難度.

vb串口通信程序?qū)嵗?/h2>

我也是自己摸索開發(fā)出來的每一款VBtoCOM通訊，有具體的思路如下：

給你推薦一個工具“com串口測試工具 ComTone V1.0 中文綠色版”

1、打開你的噪音計的測試軟件，調(diào)整好串口號、通訊頻率等等，我用溫度計舉例說明。

開始查詢后有返回數(shù)值，這個Receive：就是返回的數(shù)值000304012200004b05,

打開串口監(jiān)視精靈，監(jiān)視軟件的com口事件：

這里面的Write是測試軟件發(fā)出的查詢指令，read是設(shè)備返回的數(shù)據(jù)指令

Private?Sub?Command1_Click()?'發(fā)送指令

If?Not?MSComm1.PortOpen?Then

MSComm1.CommPort?=?7?'串口為7

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

MSComm1.InBufferCount?=?0?'清除接收緩沖區(qū)

MSComm1.OutBufferCount?=?0?'清除發(fā)送緩沖區(qū)

MSComm1.InputMode?=?comInputModeBinary?'二進制接收

MSComm1.InputLen?=?0?'讀取接收緩沖區(qū)的所有字符

MSComm1.PortOpen?=?True??'打開串口

MSComm1.RTSEnable?=?False?'置為發(fā)送狀態(tài)

End?If

Dim?pu()?As?Byte

Dim?strdata??As?String

Dim?crc_js()?As?Byte

ReDim?pu(7)??'這個數(shù)組是8位的查詢指令

pu(0)?=?"H00"?'溫度計地址

pu(1)?=?"H03"?'查詢指令

pu(2)?=?"H00"?'2、3為溫度計地址

pu(3)?=?"H00"?'2、3為溫度計地址

pu(4)?=?"H00"?'4、5為讀取寄存器長度

pu(5)?=?"H02"?'4、5為讀取寄存器長度

pu(6)?=?"HC5"?'6、7為CRC校驗碼?因為我們不知道設(shè)備的CRC校驗規(guī)則所以用測試軟件產(chǎn)生的校驗碼

pu(7)?=?"HDA"?'6、7為CRC校驗碼

MSComm1.Output?=?pu

'不做任何事情，僅僅允許其它應(yīng)用程序處理它們的事件。

DoEvents

MSComm1.InBufferCount?=?0?'清除接收緩沖區(qū)

MSComm1.RThreshold?=?9?'所要接收的數(shù)據(jù)長度，我們通過COM檢測精靈看到了回傳數(shù)據(jù)一共是9字節(jié)

MSComm1.RTSEnable?=?True?'轉(zhuǎn)為接收狀態(tài)

End?Sub

Private?Sub?Command2_Click()

Timer1.Enabled?=?False

End?Sub

Private?Sub?Form_Unload(Cancel?As?Integer)

If?MSComm1.PortOpen?Then

MSComm1.PortOpen?=?False??'關(guān)閉串口

End?If

Timer1.Enabled?=?False

End?Sub

Private?Sub?MSComm1_OnComm()?'COM事件

Dim?PA()?As?Byte

Dim?PB?As?String

Select?Case?MSComm1.CommEvent

Case?comEvReceive

MSComm1.InputLen?=?0?'讀取接收緩沖區(qū)的所有字符

PB?=?MSComm1.Input

PA()?=?PB

For?i?=?0?To?UBound(PA())

'Print?"PA("??i??")";?PA(i)

If?Len(Hex(PA(i)))?=?1?Then

strdata?=?strdata??"0"??Hex(PA(i))

Else

strdata?=?strdata??Hex(PA(i))

End?If

Next

'回傳的數(shù)據(jù)串：000304012600000AC4，這9字節(jié)根據(jù)通訊協(xié)議我們進行拆分

'00為協(xié)議內(nèi)回傳機號，03為讀命令，04為返回的數(shù)據(jù)長度?0126?為我要的溫度數(shù)據(jù)為十六進制表達，下面我進行數(shù)據(jù)處理

wd?=?CLng("H"??Left(Right(strdata,?12),?4))?/?10??"℃"???'根據(jù)通訊協(xié)議換算成溫度

Text1?=?Text1??vbCrLf??strdata??"??"??wd

strdata?=?""

MSComm1.PortOpen?=?False??'關(guān)閉串口

End?Select

End?Sub

Private?Sub?Timer1_Timer()

Call?Command1_Click

End?Sub

這是我的測試結(jié)果。

下面是通訊協(xié)議

這個是我的軟件用檢測精靈檢測的結(jié)果

網(wǎng)站欄目：包含vb.net串口助手實例的詞條
URL鏈接：http://www.rwnh.cn/article34/dodoepe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、網(wǎng)站營銷、品牌網(wǎng)站設(shè)計、網(wǎng)站設(shè)計公司、企業(yè)建站、做網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)