求助：VB6.0 MSComm控件串口通信發(fā)送循環(huán)

robi · 發(fā)表于 2011-3-31 21:03:06

項(xiàng)目需要用MSComm控件實(shí)現(xiàn)射頻設(shè)備與PC的串口通信。先說一下設(shè)備發(fā)送命令后會(huì)返回的相應(yīng)的數(shù)據(jù)：

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

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

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

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

End Sub
Private Sub timer1_timer()

MSComm1.OutBufferCount = 0 '先清空緩存
sendbuffer = "H!i"
MSComm1.Output = sendbuffer
End Sub
'結(jié)束
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在感應(yīng)區(qū)

      Case comEvReceive
         inbyte = MSComm1.Input
         For i = LBound(inbyte) To UBound(inbyte)          '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
            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)          '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
         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)          '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
            revbuffer = revbuffer + Hex(inbyte(i))
         Next i
         txtHex.Text = revbuffer
         Case comEvSend
End Select
End Sub

無能 · 發(fā)表于 2011-4-1 09:22:34

這個(gè)問題感覺不難，但你描述的有些亂，讓人看不明白。
我也用Vb編過一些東西，歡迎交流。

無能 · 發(fā)表于 2011-4-6 16:50:39

不知解決的如何了？三個(gè)Timer確實(shí)很混亂。

robi · 發(fā)表于 2011-4-6 22:47:31

回復(fù) 無能的帖子

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

1393065141 · 發(fā)表于 2011-5-4 22:34:47

學(xué)習(xí)、、、、、、、、、、、、、、、、、、、、

robi · 發(fā)表于 2011-8-15 20:09:08

后來發(fā)現(xiàn)其實(shí)這個(gè)通信程序的關(guān)鍵在于要弄清收發(fā)信息的格式，也就是MSComm初始設(shè)置時(shí)，是二進(jìn)制還是文本。這個(gè)很重要，否則通信會(huì)出錯(cuò)。

機(jī)械電氣編程 · 發(fā)表于 2012-11-15 11:31:42

讓我想起了，我畢業(yè)論文就搞的這個(gè)。

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員

求助：VB6.0 MSComm控件串口通信發(fā)送循環(huán)

點(diǎn)評(píng)

評(píng)分

點(diǎn)評(píng)