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

Imports System

成都創(chuàng)新互聯(lián)公司專注于上思企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站設(shè)計,電子商務(wù)商城網(wǎng)站建設(shè)。上思網(wǎng)站建設(shè)公司,為上思等地區(qū)提供建站服務(wù)。全流程按需定制設(shè)計，專業(yè)設(shè)計，全程項目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)

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ī)有效串口

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

Dim port As String

For Each port In ports

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

Next port

'初始化界面

vb.net程序如何實現(xiàn)向電腦的Com口發(fā)送一段字符串信息，之后再接收顯示發(fā)送的字符串信息？

'vb.net的串口接收數(shù)據(jù)要用到委托

Delegate Sub SetTextCallback(ByVal InputString As String) '聲明一個委派類，并聲明符合函數(shù)參數(shù)有一個，而其型態(tài)是字符串

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '將收到的數(shù)據(jù)入接收文字框中--- 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 '發(fā)送指令

SerialPort1.Write("123")

End Sub

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

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

網(wǎng)站標(biāo)題：vb.net串口編程,c語言串口編程
轉(zhuǎn)載來于：http://chinadenli.net/article15/dsgcpgi.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供靜態(tài)網(wǎng)站、移動網(wǎng)站建設(shè)、網(wǎng)站排名、App開發(fā)、、用戶體驗

廣告

聲明：本網(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)