vb.net 串口點(diǎn)亮小燈

SCON = 0x50; //REN=1允許串行接受狀態(tài)，串口工作模式1 TMOD|= 0x20; 試下這個(gè)程序，PC發(fā)什么，它就回送什么，收到數(shù)據(jù)，點(diǎn)亮P2.0的LED。

紅河網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,紅河網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為紅河成百上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設(shè)要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的紅河做網(wǎng)站的公司定做！

VB與VB.NET串口及以太網(wǎng)通迅

關(guān)于串口通訊的問題：

很明顯，你還不知道（不會(huì)、不習(xí)慣）使用事件驅(qū)動(dòng)的方式接收數(shù)據(jù)。

建議你仔細(xì)看看串口組件（無論VB6還是VB.net）的OnComm事件，你的問題很容易解決。

關(guān)于以太網(wǎng)通訊：

在TCP通訊中端口確實(shí)可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數(shù)情況下不推薦端口重用，而應(yīng)該采取服務(wù)器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。

vb.net怎么實(shí)現(xiàn)串口傳輸文件

Imports System

Imports System.IO.Ports

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'獲取計(jì)算機(jī)有效串口

Dim ports As String() = SerialPort.GetPortNames() '必須用命名空間，用SerialPort,獲取計(jì)算機(jī)的有效串口

Dim port As String

For Each port In ports

portnamebox.Items.Add(port) '向combobox中添加項(xiàng)

Next port

'初始化界面

請(qǐng)教用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)系。

vb.NET中用mscomm控件編寫串口通信軟件數(shù)據(jù)無法接收

.net中不用mscomm 而改用 searport

AxMSComm1.Input 只能一次，會(huì)把輸入緩沖區(qū)的內(nèi)容全都讀出來并清空

如果沒有產(chǎn)生Oncomm事件，你可以把輸入經(jīng)部區(qū)的大小改一下改成1就行了

VB.NET串口通訊怎么發(fā)送和接收十六進(jìn)制？

串口通信最終都是用二進(jìn)制傳輸?shù)?，你用代碼把二進(jìn)制轉(zhuǎn)化成十六進(jìn)制就可以了。不需要額外設(shè)置。