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

robi

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

& ^% g0 N+ l, a7 P. R當(dāng)發(fā)送命令"H!i"時(shí)，為尋找芯片。
1 F6 x; u. X0 u3 d當(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+其他信息

5 ~( w% S4 e% U5 ~% \( E0 Y8 L' v' C當(dāng)芯片在感應(yīng)區(qū)時(shí)，發(fā)送命令“R00000016U”，讀取芯片前十六字節(jié)數(shù)據(jù)
8 V2 ^" d4 Z6 J5 h7 k& T* ]& Z( [沒有錯(cuò)誤時(shí)，設(shè)備返回：0630
* O+ ]7 i' B3 C! w+ W, A$ j  J1 [此時(shí)，發(fā)送命令“STX”，或十六進(jìn)制命令“02”
設(shè)備返回前十六字節(jié)數(shù)據(jù)

6 q) n2 x0 i, d5 j# c之后繼續(xù)發(fā)送命令“H!i”，尋找下一個(gè)芯片
5 ^* [% Y" s5 I) R9 U' @; C9 R( j9 t--------------------------------------------------------------------
9 ~4 ~' \+ v% F* v+ j! F1 b項(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()吧？
( b8 R, b( _9 r" V----------------------------------------------------------------------------
其實(shí)程序說簡單些就是：
* i9 z% X+ U8 ?發(fā)送命令—>從數(shù)據(jù)返回區(qū)判定->發(fā)送命令->數(shù)據(jù)返回區(qū)判定->再發(fā)送命令->接收數(shù)據(jù)
這個(gè)循環(huán)要怎么實(shí)現(xiàn)呢？
先謝謝各位！

% A* Q6 a- {3 {0 r--------------------------------------------------------------------
; Y' s4 t' z, J6 P7 r! i, r# r7 W下面是循環(huán)部分的代碼。系統(tǒng)報(bào)錯(cuò)
Private Sub cmdStart_click()
    Timer1.Enabled = True
   
   
   
3 J& s5 O. Q3 w* G' g* D3 ~1 aEnd Sub
' t. I7 M* E% fPrivate Sub timer1_timer()
   
4 [% w# O+ V* D+ Q/ R   MSComm1.OutBufferCount = 0 '先清空緩存
9 A2 _( s1 I, X6 X+ L   sendbuffer = "H!i"
6 P- r; H' _0 L   MSComm1.Output = sendbuffer
3 h+ b8 K0 W8 }2 k" ^( i/ UEnd Sub
. o3 z% w$ @+ O/ @'結(jié)束
Private Sub cmdStop_click()
3 g6 S5 m5 B8 E" w    Timer1.Enabled = False
    Timer2.Enabled = False
7 H1 ]5 \6 b: F% q2 g; |6 q    Timer3.Enabled = False
) ^! C/ V/ W8 A: `; BEnd Sub

'接收數(shù)據(jù)
Private Sub MSComm1_oncomm()
7 {) R) N  o+ R/ n3 e0 M, K4 w    Dim inbyte() As Byte
    Dim revbuffer As String
6 U0 F& F& A, T* w1 D    Dim a, i, b
' o- o) z: p+ I3 K; P1 U& g3 t. {+ ]    Select Case MSComm1.CommEvent
8 S4 _* f7 b$ Y; R% R, ~" O! p       '如果有CT在感應(yīng)區(qū)
        
        Case comEvReceive
. n& f' J$ W# w1 t            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
; W7 M+ F9 V* O2 S/ s* j# [0 c+ n                revbuffer = revbuffer + Hex(inbyte(i))
( T5 [( z$ p. V0 F: o3 C9 G4 N            Next i
1 k8 T& W  q. O# D4 o* s0 y            txtHex.Text = revbuffer
            If Mid(revbuffer, 1, 6) = "480310" Then
& V" R. _# o4 s, i                Timer1.Enabled = False
( M$ y1 d# ^; i                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()
0 L" O. Q+ T% D$ W" ~3 I. D    Select Case MSComm1.CommEvent
# M- c: J: c1 k8 T9 h8 E        Case comEvReceive
4 {: Z% g: ~, ~% @: g9 {        inbyte = MSComm1.Input
        For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
            revbuffer = revbuffer + Hex(inbyte(i))
: a# M/ X& j0 `/ K8 E" {        Next i
        txtHex.Text = revbuffer
        If Mid(revbuffer, 1, 4) = "6030" Then
- ^8 x8 \% C8 K' T            Timer2.Enabled = False
            Timer3.Enabled = True
+ X6 L* f& W6 ?. P2 N5 O        End If
        Case comEvSend
    End Select
" m2 q$ s3 {, b, ^! ~End Sub
$ R' J& [0 L1 OPrivate Sub timer3_timer()
8 [  f9 V' J$ W, N% L% E0 ~& M    MSComm1.OutBufferCount = 0 '先清空緩存
    sendbuffer = "STX"
    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
6 S  F( j. U5 {  w' n& }$ \        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))
8 H& d6 X9 y1 x  F( m5 G' }: d            Next i
            txtHex.Text = revbuffer
            Case comEvSend
    End Select
End Sub
$ a' }5 M7 g; K3 u  d/ N$ y& [


" e1 e3 G4 t" j& a) l) g

無能

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

無能

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

robi

回復(fù) 無能 的帖子
. O3 n$ d& t2 j/ K8 X% `2 @- n5 m
快了。
: D6 ~( _; N) |3 d! H4 U9 q* w設(shè)備通信協(xié)議我沒看清，這個(gè)設(shè)備的通信不用timer。

1393065141

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

robi

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

機(jī)械電氣編程

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