人妻暴雨中被强制侵犯在线,亚洲国产欧美日韩精品一区二区三区,四虎影免看黄,国产无人区二卡三卡四卡不见星空

機械社區(qū)

標題: 求助：VB6.0 MSComm控件串口通信發(fā)送循環(huán) [打印本頁]

作者: robi 時間: 2011-3-31 21:03
標題: 求助：VB6.0 MSComm控件串口通信發(fā)送循環(huán)
項目需要用MSComm控件實現(xiàn)射頻設備與PC的串口通信。先說一下設備發(fā)送命令后會返回的相應的數(shù)據(jù)：

當發(fā)送命令"H!i"時，為尋找芯片。
當設備連接正確又無芯片在感應區(qū)時，設備循環(huán)返回：0630 和 1537
當設備當設備連接正確而芯片又在感應區(qū)時，設備返回0630，稍有停頓，繼續(xù)返回4831+其他信息

當芯片在感應區(qū)時，發(fā)送命令“R00000016U”，讀取芯片前十六字節(jié)數(shù)據(jù)
沒有錯誤時，設備返回：0630
此時，發(fā)送命令“STX”，或十六進制命令“02”
設備返回前十六字節(jié)數(shù)據(jù)

之后繼續(xù)發(fā)送命令“H!i”，尋找下一個芯片
--------------------------------------------------------------------
項目用MSComm進行串口通信
需要將上述幾條命令循環(huán)起來。我用的是比較MSComm1.Input是否為爭取的返回值“4831”和“0630”。
用了三個timer來控制三條命令“H!i”、“R00000016U”和“STX”的發(fā)送。把發(fā)送命令都放在了timer_timer下。
但是這樣的話，就用到了三個Private Sub MSComm1_oncomm()。系統(tǒng)報錯，“發(fā)現(xiàn)二義性名稱”。意思應該是不能重復定義Private Sub MSComm1_oncomm()吧？
----------------------------------------------------------------------------
其實程序說簡單些就是：
發(fā)送命令—>從數(shù)據(jù)返回區(qū)判定->發(fā)送命令->數(shù)據(jù)返回區(qū)判定->再發(fā)送命令->接收數(shù)據(jù)
這個循環(huán)要怎么實現(xiàn)呢？
先謝謝各位！

--------------------------------------------------------------------
下面是循環(huán)部分的代碼。系統(tǒng)報錯
Private Sub cmdStart_click()
Timer1.Enabled = True

End Sub
Private Sub timer1_timer()

MSComm1.OutBufferCount = 0 '先清空緩存
sendbuffer = "H!i"
MSComm1.Output = sendbuffer
End Sub
'結束
Private Sub cmdStop_click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

'接收數(shù)據(jù)
Private Sub MSComm1_oncomm()
Dim inbyte() As Byte
Dim revbuffer As String
Dim a, i, b
Select Case MSComm1.CommEvent
   '如果有CT在感應區(qū)

      Case comEvReceive
         inbyte = MSComm1.Input
         For i = LBound(inbyte) To UBound(inbyte)          '返回數(shù)據(jù)轉換為十六進制
            revbuffer = revbuffer + Hex(inbyte(i))
         Next i
         txtHex.Text = revbuffer
         If Mid(revbuffer, 1, 6) = "480310" Then
            Timer1.Enabled = False
            Timer1.Enabled = True
         End If
      End Select
      Case comEvSend
End Select
Private Sub timer2_timer()
      MSComm1.OutBufferCount = 0 '先清空緩存
      sendbuffer = "R00000016U"
      MSComm1.Output = sendbuffer
End Sub
Private Sub MSComm1_oncomm()
Select Case MSComm1.CommEvent
      Case comEvReceive
      inbyte = MSComm1.Input
      For i = LBound(inbyte) To UBound(inbyte)          '返回數(shù)據(jù)轉換為十六進制
         revbuffer = revbuffer + Hex(inbyte(i))
      Next i
      txtHex.Text = revbuffer
      If Mid(revbuffer, 1, 4) = "6030" Then
         Timer2.Enabled = False
         Timer3.Enabled = True
      End If
      Case comEvSend
End Select
End Sub
Private Sub timer3_timer()
MSComm1.OutBufferCount = 0 '先清空緩存
sendbuffer = "STX"
MSComm1.Output = sendbuffer
Select Case MSComm1.CommEvent
      Case comEvReceive
         inbyte = MSComm1.Input
         For i = LBound(inbyte) To UBound(inbyte)          '返回數(shù)據(jù)轉換為十六進制
            revbuffer = revbuffer + Hex(inbyte(i))
         Next i
         txtHex.Text = revbuffer
         Case comEvSend
End Select
End Sub

作者: 無能 時間: 2011-4-1 09:22
這個問題感覺不難，但你描述的有些亂，讓人看不明白。
我也用Vb編過一些東西，歡迎交流。

作者: 無能 時間: 2011-4-6 16:50
不知解決的如何了？三個Timer確實很混亂。

作者: robi 時間: 2011-4-6 22:47
回復無能的帖子

快了。
設備通信協(xié)議我沒看清，這個設備的通信不用timer。

作者: 1393065141 時間: 2011-5-4 22:34
學習、、、、、、、、、、、、、、、、、、、、

作者: robi 時間: 2011-8-15 20:09
后來發(fā)現(xiàn)其實這個通信程序的關鍵在于要弄清收發(fā)信息的格式，也就是MSComm初始設置時，是二進制還是文本。這個很重要，否則通信會出錯。

作者: 機械電氣編程 時間: 2012-11-15 11:31
讓我想起了，我畢業(yè)論文就搞的這個。

歡迎光臨機械社區(qū) (http://www.xa-space.com/)