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

robi

項(xiàng)目需要用MSComm控件實(shí)現(xiàn)射頻設(shè)備與PC的串口通信。先說一下設(shè)備發(fā)送命令后會(huì)返回的相應(yīng)的數(shù)據(jù)：
8 c7 z( H0 E* w& X& M8 s
: J+ I' ?! S( [當(dāng)發(fā)送命令"H!i"時(shí)，為尋找芯片。
1 v: _# j4 t2 }+ f5 }3 y當(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+其他信息
: m) A3 G# w# Q) t
: A5 [- X- Q# ~  |; F當(dāng)芯片在感應(yīng)區(qū)時(shí)，發(fā)送命令“R00000016U”，讀取芯片前十六字節(jié)數(shù)據(jù)
6 v5 f( S0 B6 X沒有錯(cuò)誤時(shí)，設(shè)備返回：0630
此時(shí)，發(fā)送命令“STX”，或十六進(jìn)制命令“02”
設(shè)備返回前十六字節(jié)數(shù)據(jù)

之后繼續(xù)發(fā)送命令“H!i”，尋找下一個(gè)芯片
6 s0 [4 E6 _* {$ O! ~1 H--------------------------------------------------------------------
2 x$ v3 }9 ]4 m0 Z' g' V項(xiàng)目用MSComm進(jìn)行串口通信
需要將上述幾條命令循環(huán)起來。我用的是比較MSComm1.Input是否為爭(zhēng)取的返回值“4831”和“0630”。
% z7 z1 Y3 P) y2 a4 ~) z用了三個(gè)timer來控制三條命令“H!i”、“R00000016U”和“STX”的發(fā)送。把發(fā)送命令都放在了timer_timer下。
1 l% N7 T6 u8 }* x但是這樣的話，就用到了三個(gè)Private Sub MSComm1_oncomm()。系統(tǒng)報(bào)錯(cuò)，“發(fā)現(xiàn)二義性名稱”。意思應(yīng)該是不能重復(fù)定義Private Sub MSComm1_oncomm()吧？
4 `) b) \1 X- F2 M" g( k% K$ H# B( g----------------------------------------------------------------------------
( {9 C" u/ V( D9 l( y- D& U其實(shí)程序說簡(jiǎn)單些就是：
0 n% q5 L( n) e) ^) a/ ?9 R( N4 R: S發(fā)送命令—>從數(shù)據(jù)返回區(qū)判定->發(fā)送命令->數(shù)據(jù)返回區(qū)判定->再發(fā)送命令->接收數(shù)據(jù)
這個(gè)循環(huán)要怎么實(shí)現(xiàn)呢？
先謝謝各位！

--------------------------------------------------------------------
" Q0 Y6 I' H, U( }  V下面是循環(huán)部分的代碼。系統(tǒng)報(bào)錯(cuò)
6 {* B0 `* B& @" ]9 e5 oPrivate Sub cmdStart_click()
4 ?) O$ `# |. a2 T3 |$ \& y) F) w    Timer1.Enabled = True
8 B% k( y4 t- G6 Y- q& v   
! h& U3 `+ n' p   
/ p8 h, l9 P/ ]* o0 m! O$ b   
: }2 v; L& `! ^9 i- l* yEnd Sub
Private Sub timer1_timer()
* k; f, s9 O% ?$ u) R) u0 Q, u$ T   
3 L: ^% I2 E( V/ m5 h( T( J   MSComm1.OutBufferCount = 0 '先清空緩存
   sendbuffer = "H!i"
. R7 P3 p' z' b& r   MSComm1.Output = sendbuffer
End Sub
'結(jié)束
; F; G, y/ z/ K# N! LPrivate Sub cmdStop_click()
8 w" t- v, `1 t) R2 k    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer3.Enabled = False
" @0 ?- D$ d/ YEnd Sub
& `' N$ J8 r" z
'接收數(shù)據(jù)
. ?1 X7 {* r3 b, A  b: e4 sPrivate Sub MSComm1_oncomm()
    Dim inbyte() As Byte
! C  K6 p1 l5 e' \    Dim revbuffer As String
5 @' C" d) V" K$ l! l3 A    Dim a, i, b
    Select Case MSComm1.CommEvent
       '如果有CT在感應(yīng)區(qū)
" ?1 M, B) B# C        
$ ]3 J7 m/ i5 C5 }        Case comEvReceive
            inbyte = MSComm1.Input
7 K. O/ x! R4 F" c' c4 C# L* }            For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
$ d$ {3 G; h( ]$ l6 |' v+ F            txtHex.Text = revbuffer
            If Mid(revbuffer, 1, 6) = "480310" Then
                Timer1.Enabled = False
( H6 n5 ~: c: H9 U! v                Timer1.Enabled = True
$ ~0 a- |- y* Z: ]$ o- a5 N            End If
) S8 F5 G- n+ q$ D! G- S        End Select
        Case comEvSend
1 y0 r0 O2 T, H5 k    End Select
5 W* s; w- H+ r* ]Private Sub timer2_timer()
( g! ?/ D: P5 M& k        MSComm1.OutBufferCount = 0 '先清空緩存
7 j3 F" s2 a( n" ^+ h" L1 |        sendbuffer = "R00000016U"
3 z$ o3 r/ \, [  c  `        MSComm1.Output = sendbuffer
End Sub
" Z7 t$ D9 k  l- w% J- }  `, cPrivate Sub MSComm1_oncomm()
    Select Case MSComm1.CommEvent
0 N+ R. q/ M% S5 B, B' c$ }9 x# \        Case comEvReceive
2 B/ d! u" V  @: I% K, g        inbyte = MSComm1.Input
+ P% n" T$ ?7 o( |, F        For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
' a: M1 ?% V8 G8 [/ z) O$ r: i            revbuffer = revbuffer + Hex(inbyte(i))
        Next i
        txtHex.Text = revbuffer
, t5 t" L/ T' D$ F" X* ]9 Z        If Mid(revbuffer, 1, 4) = "6030" Then
            Timer2.Enabled = False
4 {8 ~* F6 ?& y+ z( W            Timer3.Enabled = True
3 J/ M: M, u, M" |" h+ u        End If
( m+ a+ }6 y; g$ K1 Y9 a        Case comEvSend
    End Select
End Sub
% _. {% b3 r% |' W- U6 R6 pPrivate Sub timer3_timer()
# y4 a# q* ^$ p+ f    MSComm1.OutBufferCount = 0 '先清空緩存
3 u4 _) E' @% g    sendbuffer = "STX"
    MSComm1.Output = sendbuffer
1 _$ ^  ?! ?( W: f- H6 A    Select Case MSComm1.CommEvent
6 J$ }( S/ Y3 N. |; }        Case comEvReceive
4 P8 o: ~& B+ Y- v* d& K- [- E8 T            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
1 S) w; `8 l5 n* c' a4 w4 S# F% H                revbuffer = revbuffer + Hex(inbyte(i))
, ~) L8 E3 W/ p( V, A            Next i
+ V0 c  C6 I' z+ @) Y            txtHex.Text = revbuffer
            Case comEvSend
    End Select
End Sub

無能

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

無能

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

robi

回復(fù) 無能 的帖子

! K8 V" c7 I6 {1 |5 u% C7 W& {快了。
設(shè)備通信協(xié)議我沒看清，這個(gè)設(shè)備的通信不用timer。
9 r. i9 P; D# B3 n$ v  l  f- j! P, W

1393065141

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

robi

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

機(jī)械電氣編程

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