10年以前編輯過一個串口程序,已經忘的差不多了。
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:申請域名、網站空間、營銷軟件、網站建設、通城網站維護、網站推廣。
你這個只是按鈕事件往串口發數據,事件完了,不會檢測接受到的數據。你應該加個時間事件,定期檢測接收的到數據并顯示。
首先應該弄清楚串口發送和接受的數據是字符還是十六進制數據(字節)。
假如是十六進制數據(字節),只要分別定義輸出字節數組和輸入字節數組。
輸出傳完后,接收的數據就在輸入字節數組。其他的就是串口屬性設置的問題了,你也應該懂得。
補充:
Private Sub Command1_Click()
Dim data(6) As Byte
Dim recieve(1000) As Byte
If Not MSComm1.PortOpen Then
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
data(0) = HAA
data(1) = HAA
data(2) = H1
data(3) = H0
data(4) = H90
data(5) = HA5
data(6) = H1
MSComm1.Output = data
( 這里加一段延時)
MSComm1.Input = recieve
End Sub '發送測試指令,讓下位機進行采集
直接用上面的程序調試一下,鼠標點在參數上可以顯示結果。
當然還有一個辦法,看一下是你的程序的問題還是硬件連接的問題可以從網上下一個串口調試助手,很直觀
這問題LZ在Csdn上發了兩帖,已經給了答復!
不知為何又在此處發帖?
服務器先進行
Bind ()綁定服務器的端口
然后BeginReceive接受客戶端發送的數據
客戶端Bind ()綁定客戶端接受和發送數據的端口
SendTo()來發送數據就可以
不需要進行BeginConnect,因為UDP不需要連接
網站欄目:vb.net串口無消息 vb 串口通信
轉載來源:http://m.newbst.com/article14/ddojede.html
成都網站建設公司_創新互聯,為您提供做網站、網站改版、網站內鏈、面包屑導航、網站收錄、用戶體驗
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯