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

robi

項(xiàng)目需要用MSComm控件實(shí)現(xiàn)射頻設(shè)備與PC的串口通信。先說(shuō)一下設(shè)備發(fā)送命令后會(huì)返回的相應(yīng)的數(shù)據(jù)：
" \: @8 [, o+ F$ Z) n
當(dāng)發(fā)送命令"H!i"時(shí)，為尋找芯片。
+ I1 H/ ~+ F- D# p/ I  Z當(dāng)設(shè)備連接正確又無(wú)芯片在感應(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ù)
; l3 \7 q& \" S% n' D沒(méi)有錯(cuò)誤時(shí)，設(shè)備返回：0630
* f+ P5 }- O; J2 u% R: ?; a- B此時(shí)，發(fā)送命令“STX”，或十六進(jìn)制命令“02”
) R- x  ]2 ]. c% V5 e設(shè)備返回前十六字節(jié)數(shù)據(jù)

5 c2 T7 d4 G: X6 c之后繼續(xù)發(fā)送命令“H!i”，尋找下一個(gè)芯片
--------------------------------------------------------------------
6 e; X" A) j+ ]" L% {項(xiàng)目用MSComm進(jìn)行串口通信
+ s  \0 j8 M8 w2 t9 q需要將上述幾條命令循環(huán)起來(lái)。我用的是比較MSComm1.Input是否為爭(zhēng)取的返回值“4831”和“0630”。
用了三個(gè)timer來(lái)控制三條命令“H!i”、“R00000016U”和“STX”的發(fā)送。把發(fā)送命令都放在了timer_timer下。
# |" L: U% L; q- x6 C) j" W但是這樣的話，就用到了三個(gè)Private Sub MSComm1_oncomm()。系統(tǒng)報(bào)錯(cuò)，“發(fā)現(xiàn)二義性名稱”。意思應(yīng)該是不能重復(fù)定義Private Sub MSComm1_oncomm()吧？
----------------------------------------------------------------------------
其實(shí)程序說(shuō)簡(jiǎn)單些就是：
) r: Y- H0 e+ Y* p3 ]- ~5 s發(fā)送命令—>從數(shù)據(jù)返回區(qū)判定->發(fā)送命令->數(shù)據(jù)返回區(qū)判定->再發(fā)送命令->接收數(shù)據(jù)
; Q9 p, y: Y% \/ K1 O/ r# l2 @這個(gè)循環(huán)要怎么實(shí)現(xiàn)呢？
2 y3 R: l' c8 F; p" Y. V先謝謝各位！
! r1 {) Y  I* _4 y. N
) B- C8 F. c- H" l--------------------------------------------------------------------
下面是循環(huán)部分的代碼。系統(tǒng)報(bào)錯(cuò)
% k4 H: ^2 a, M4 Q) r, z! `4 ePrivate Sub cmdStart_click()
9 n5 K5 B4 z6 i$ r  T* F* B$ Q# M    Timer1.Enabled = True
   
   
. x  J3 @6 W% h0 F   
! F$ N( S& L7 f% A9 X+ T1 r' d  Q' QEnd Sub
, a) z& X* z! ]3 c* D1 EPrivate Sub timer1_timer()
, ?3 E; g) n0 K4 ^- O   
, }5 u8 H* l, B; S   MSComm1.OutBufferCount = 0 '先清空緩存
! a! U+ n4 b# E4 M; ?- Z   sendbuffer = "H!i"
   MSComm1.Output = sendbuffer
8 O1 J* `/ G+ v, kEnd Sub
# h# c6 m' z* g) U5 a/ L'結(jié)束
) P6 r7 ]) }+ p+ H* GPrivate Sub cmdStop_click()
    Timer1.Enabled = False
    Timer2.Enabled = False
& k' _! U# F9 G8 ]0 C6 s$ d( ]    Timer3.Enabled = False
" J6 w! j8 H2 V0 R5 L7 \, @End Sub
& W9 i  q- H  n- p
9 \2 f8 q. y1 ~# i" E; L'接收數(shù)據(jù)
Private Sub MSComm1_oncomm()
    Dim inbyte() As Byte
    Dim revbuffer As String
    Dim a, i, b
    Select Case MSComm1.CommEvent
- C9 f0 B$ f2 Y1 Z       '如果有CT在感應(yīng)區(qū)
5 p: R0 X- g* u9 }0 {* f& D        
4 F2 i1 X3 M- V! v% x' j0 y/ P        Case comEvReceive
# {6 }! {1 k4 g) k5 k6 l& z6 s            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
7 r5 L% t3 }  i                revbuffer = revbuffer + Hex(inbyte(i))
6 o- }; ?. a" r( H8 ?  |            Next i
            txtHex.Text = revbuffer
            If Mid(revbuffer, 1, 6) = "480310" Then
                Timer1.Enabled = False
                Timer1.Enabled = True
( O2 W" R6 D1 |/ ?( e; K            End If
8 p( l( N* o* q8 V        End Select
        Case comEvSend
    End Select
Private Sub timer2_timer()
        MSComm1.OutBufferCount = 0 '先清空緩存
        sendbuffer = "R00000016U"
        MSComm1.Output = sendbuffer
" L4 d+ S+ w# Z! A+ s* ?" XEnd Sub
0 S  A) q) [3 h! v: kPrivate Sub MSComm1_oncomm()
    Select Case MSComm1.CommEvent
  C5 Z' H2 F7 G        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
  L8 ^' K% P! i. m9 V8 E  J- C' ~        If Mid(revbuffer, 1, 4) = "6030" Then
$ t- o# N% T! a; Y            Timer2.Enabled = False
5 r9 i; l, _0 Z( \. T  r            Timer3.Enabled = True
        End If
: W" a9 P& \2 r5 o        Case comEvSend
    End Select
End Sub
Private Sub timer3_timer()
& m5 W* G* q& ?, N% @; ~7 }    MSComm1.OutBufferCount = 0 '先清空緩存
    sendbuffer = "STX"
; i7 ~  s( v; h+ k6 h    MSComm1.Output = sendbuffer
' O1 M' {8 J7 p1 ~2 q3 M: L    Select Case MSComm1.CommEvent
        Case comEvReceive
            inbyte = MSComm1.Input
0 ?: \# Y! V9 w) [& W            For i = LBound(inbyte) To UBound(inbyte)            '返回?cái)?shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
                revbuffer = revbuffer + Hex(inbyte(i))
& X9 y: y. j' [% A  L$ N4 }            Next i
9 x' |6 `+ o3 X6 p/ `2 v            txtHex.Text = revbuffer
            Case comEvSend
    End Select
End Sub
9 h1 g- C8 ]& H. V* b
0 r* R7 G0 J% {$ J
" W! [' q' j) V
6 n: W* g$ f: ]  X$ \

無(wú)能

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

無(wú)能

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

robi

回復(fù) 無(wú)能 的帖子

快了。
9 w3 u* l/ ]3 P3 [' e# }設(shè)備通信協(xié)議我沒(méi)看清，這個(gè)設(shè)備的通信不用timer。

1393065141

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

robi

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

機(jī)械電氣編程

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