日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

vb.net2019- 串口serial port通信

發(fā)布時間:2025/3/12 编程问答 32 豆豆
生活随笔 收集整理的這篇文章主要介紹了 vb.net2019- 串口serial port通信 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

serial port,即串行端口,現(xiàn)在大多數(shù)硬件設(shè)備均采用串口技術(shù)與計算機相連。

Public Class Form1Private Sub GetSerialPortNames()' Show all available COM ports.For Each sp As String In My.Computer.Ports.SerialPortNamesListBox1.Items.Add(sp)NextEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickGetSerialPortNames()End SubSub SendSerialData(ByVal data As String)' Send strings to a serial port.Using com1 As IO.Ports.SerialPort =My.Computer.Ports.OpenSerialPort("COM1")com1.WriteLine(data)End UsingEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickMessageBox.Show("開始發(fā)送數(shù)據(jù)給:" & ListBox1.SelectedItem.ToString())SendSerialData(TextBox1.Text)MessageBox.Show("發(fā)送" & Trim(TextBox1.Text) & "完畢")End Sub End Class

總結(jié)

以上是生活随笔為你收集整理的vb.net2019- 串口serial port通信的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。