串口vb.net文本 vb 串口

vb.net怎么实现串口传输文件

Imports System

我们提供的服务有：网站制作、成都网站建设、微信公众号开发、网站优化、网站认证、崖州ssl等。为上1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的崖州网站制作公司

Imports System.IO.Ports

Public Class Form1

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

'获取计算机有效串口

Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间，用SerialPort,获取计算机的有效串口

Dim port As String

For Each port In ports

portnamebox.Items.Add(port) '向combobox中添加项

Next port

'初始化界面

怎么实现用VB.NET把从单片机串口接收到的一个数组中的每个数依次分给不同的文本框显示出来？

这样写是错误的。

dim rcv as byte()=new byte(2){}

for i as integer =0 to 2

rcv(i)=serialPort.ReadExisting

next

TextBox1.Text = rcv(0)

TextBox2.Text = rcv(1)

TextBox3.Text = rcv(2)

请教用VB.NET向串口发送16进制的数的方法

应该是你的转换格式不正确，下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：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)

如果有问题可以再联系。

vb.net用SerialPort1获取串口信息对比文本框内容

搜一下

有串口通信的例程

借鉴一下，再根据你的情况 编程

vb.net程序如何实现向电脑的Com口发送一段字符串信息，之后再接收显示发送的字符串信息？

'vb.net的串口接收数据要用到委托

Delegate Sub SetTextCallback(ByVal InputString As String) '声明一个委派类，并声明符合函数参数有一个，而其型态是字符串

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '将收到的数据入接收文字框中--- txt_Re.Text 是接收用的文本框

txt_Re.SelectionStart = txt_Re.Text.Length

txt_Re.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)

Invoke(d, inData)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '发送指令

SerialPort1.Write("123")

End Sub