直接發(fā)數(shù)字1。
創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務,包含不限于網(wǎng)站設計制作、網(wǎng)站設計、靖宇網(wǎng)絡推廣、微信小程序、靖宇網(wǎng)絡營銷、靖宇企業(yè)策劃、靖宇品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;創(chuàng)新互聯(lián)為所有大學生創(chuàng)業(yè)者提供靖宇建站搭建服務,24小時服務熱線:13518219792,官方網(wǎng)址:muchs.cn
一般可以直接發(fā)10進制的數(shù)字,當然要轉換,比如16進制的21,你可以直接發(fā)33
你定義的委托需要帶參數(shù)才行,DataReceived事件中沒有接收數(shù)據(jù)代碼,下面的代碼經(jīng)測試可用
Delegate Sub SetTextCallback(ByVal InputString As String)
Private Sub ShowString(ByVal comData As String)
txt_Rect.Text += comData '將收到的數(shù)據(jù)入接收文字框中
txt_Rect.SelectionStart = txt_Rect.Text.Length
txt_Rect.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)
BeginInvoke(d, inData)
End Sub
是獨立的東西,沒有依賴,盡管在底層有可能是類似的調用
還有在.net里一般只認為是普通類,并不屬于控件,因為沒界面
n = SerialPort1.BytesToRead '讀取字節(jié)數(shù) If n 0 Then '若字節(jié)數(shù)大于0.則執(zhí)行以下操作
ReDim rc(n) '重新定義rc的長度,(之前有定義過)
strrc = 0 '變量類型為字符串(string),一開始使它為0
For i = 1 To n
rc(i) = SerialPort1.ReadByte ‘讀取數(shù)據(jù)
strrc += CStr(Hex(rc(i))) '這里Hex 函數(shù) 返回表示數(shù)的十六進制值的字符串
'CStr 函數(shù) 返回已被轉換為字符串子類型的變體的表達式。
Next
TextBox1.Text = strrc '將strrc的值付給TextBox1.Text即可
End If
網(wǎng)站名稱:vb.net串口控件 vb串口通信教程
轉載源于:http://muchs.cn/article10/doeoogo.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供移動網(wǎng)站建設、定制網(wǎng)站、網(wǎng)站營銷、、動態(tài)網(wǎng)站、建站公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)