10年以前編輯過一個(gè)串口程序,已經(jīng)忘的差不多了。
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長期合作伙伴,公司提供的服務(wù)項(xiàng)目有:申請域名、網(wǎng)站空間、營銷軟件、網(wǎng)站建設(shè)、通城網(wǎng)站維護(hù)、網(wǎng)站推廣。
你這個(gè)只是按鈕事件往串口發(fā)數(shù)據(jù),事件完了,不會檢測接受到的數(shù)據(jù)。你應(yīng)該加個(gè)時(shí)間事件,定期檢測接收的到數(shù)據(jù)并顯示。
首先應(yīng)該弄清楚串口發(fā)送和接受的數(shù)據(jù)是字符還是十六進(jìn)制數(shù)據(jù)(字節(jié))。
假如是十六進(jìn)制數(shù)據(jù)(字節(jié)),只要分別定義輸出字節(jié)數(shù)組和輸入字節(jié)數(shù)組。
輸出傳完后,接收的數(shù)據(jù)就在輸入字節(jié)數(shù)組。其他的就是串口屬性設(shè)置的問題了,你也應(yīng)該懂得。
補(bǔ)充:
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
( 這里加一段延時(shí))
MSComm1.Input = recieve
End Sub '發(fā)送測試指令,讓下位機(jī)進(jìn)行采集
直接用上面的程序調(diào)試一下,鼠標(biāo)點(diǎn)在參數(shù)上可以顯示結(jié)果。
當(dāng)然還有一個(gè)辦法,看一下是你的程序的問題還是硬件連接的問題可以從網(wǎng)上下一個(gè)串口調(diào)試助手,很直觀
這問題LZ在Csdn上發(fā)了兩帖,已經(jīng)給了答復(fù)!
不知為何又在此處發(fā)帖?
服務(wù)器先進(jìn)行
Bind ()綁定服務(wù)器的端口
然后BeginReceive接受客戶端發(fā)送的數(shù)據(jù)
客戶端Bind ()綁定客戶端接受和發(fā)送數(shù)據(jù)的端口
SendTo()來發(fā)送數(shù)據(jù)就可以
不需要進(jìn)行BeginConnect,因?yàn)閁DP不需要連接
網(wǎng)站欄目:vb.net串口無消息 vb 串口通信
轉(zhuǎn)載來源:http://jinyejixie.com/article14/ddojede.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供做網(wǎng)站、網(wǎng)站改版、網(wǎng)站內(nèi)鏈、面包屑導(dǎo)航、網(wǎng)站收錄、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)