vb串口通訊怎么調(diào)試

沒有錯(cuò)！

為湖口等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及湖口網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、湖口網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

先模擬一下，了解一下串口通信的大概，再深入了解

你可以找個(gè) 串口通訊測試的軟件，推薦 accessport。

硬件嘛，你已經(jīng)了解了，就是 單臺計(jì)算機(jī)，將串口線的一段接電腦串口，另一端 2 3 端短接。

在accessport里發(fā)送數(shù)據(jù)，就能看到接收到的數(shù)據(jù)！

也可以 2臺電腦聯(lián)機(jī) 試驗(yàn)，這時(shí) 用用到 空調(diào)制器(Null Modem)!其實(shí)，就是做一個(gè)一端 2 3 交換 的串口線！

其他都一樣！

用 空調(diào)制器，可以 雙機(jī)串口通訊，還可以用 超級終端 登錄 到另外 的機(jī)器！

就這樣，祝你順利，也歡迎交流！

VB中如何用虛擬串口調(diào)試串口程序

樓主，你可以去下載一個(gè)“VSPM虛擬串口”軟件，安裝好后，先不要運(yùn)行，在“開始”菜單--》“程序”--》“VSPM”--》“虛擬串口互聯(lián)插件”，里面有一個(gè)Readme.txt文件，按里面的要求去做，可以用一臺PC模擬串口通信了。

另外在你的VB程序里，一個(gè)mscomm控件.com=3，另一個(gè).com=4就可以進(jìn)行數(shù)據(jù)的收發(fā)了。到時(shí)在真正的應(yīng)用時(shí)，只需將這兩個(gè)值改一下就OK

了。

有問題Hi我。

請教用VB.NET向網(wǎng)口發(fā)送16進(jìn)制的數(shù)的方法.

很有意思。

原文數(shù)據(jù)全為：“00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ”

加密后變成了：“09 51 55 F4 FB 10 6F A4 D3 E8 87 46 F8 2F 49 CD ; ”

得出這樣的結(jié)果是有很多方法都可以實(shí)現(xiàn)的：

比如每個(gè)原數(shù)上加上個(gè)常數(shù)就可以了。

00+09=09；得出第一組加密后的數(shù)值

00+51=51；得出第二組加密后的數(shù)值

...

00+CD=CD；得出第16組加密后的數(shù)值.

加密的方法還有很多，不過這種最簡單。

還有就是你給的原文太單一了，不能夠更好的分析數(shù)據(jù)的規(guī)律。

如果你能把原文改為如下這段代碼再去加密一下，再把加密結(jié)果貼上來看一下就好多了。

00000140h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;

00000150h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;

00000160h: 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 ; 00000170h: 00 10 20 30 40 50 60 70 80 90 A0 B0 C0 D0 E0 F0 ;

00000180h: 11 11 11 11 11 22 22 22 22 22 22 EE EE EE FF FF ;

以上是單片機(jī)高手團(tuán)為您解答。

如果還沒解決你的問題，可以加我百度HI賬號。

vb編寫的串口調(diào)試程序

串口

接收

可以放在MScomm控件的

OnComm

事件里

推薦看書

Visual_Basic與_RS-232_串行通信控制

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

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

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)系。