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

robi

項目需要用MSComm控件實現(xiàn)射頻設備與PC的串口通信。先說一下設備發(fā)送命令后會返回的相應的數(shù)據(jù)：
3 J0 ]" X/ r9 k2 H7 A' X
當發(fā)送命令"H!i"時，為尋找芯片。
1 `" i) }& m3 ^; n. N3 ^' _當設備連接正確又無芯片在感應區(qū)時，設備循環(huán)返回：0630 和 1537
當設備當設備連接正確而芯片又在感應區(qū)時，設備返回0630，稍有停頓，繼續(xù)返回4831+其他信息

當芯片在感應區(qū)時，發(fā)送命令“R00000016U”，讀取芯片前十六字節(jié)數(shù)據(jù)
沒有錯誤時，設備返回：0630
, u& j6 ]6 n' v" U, y# n% x此時，發(fā)送命令“STX”，或十六進制命令“02”
/ H6 v3 Z- H3 {! d設備返回前十六字節(jié)數(shù)據(jù)

之后繼續(xù)發(fā)送命令“H!i”，尋找下一個芯片
8 D& }/ D. M+ K0 p- L--------------------------------------------------------------------
項目用MSComm進行串口通信
) c, W4 I. g- b) f需要將上述幾條命令循環(huán)起來。我用的是比較MSComm1.Input是否為爭取的返回值“4831”和“0630”。
2 X  p& x6 `8 ~4 g5 f用了三個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ù)
; S+ F% a4 G6 N6 z" w這個循環(huán)要怎么實現(xiàn)呢？
先謝謝各位！
1 P& K/ D/ S1 y( l1 a7 ^# `
--------------------------------------------------------------------
' \3 U" h& O  ?6 \* j下面是循環(huán)部分的代碼。系統(tǒng)報錯
Private Sub cmdStart_click()
! E6 x0 b/ v% t    Timer1.Enabled = True
( G/ ~" b9 m5 ~   
   
& p" n) e9 Z) Q* T' Z% d# {   
End Sub
% y; M5 x! g) r6 P; vPrivate Sub timer1_timer()
   
! y+ {+ R" R  c4 g: e& Z, l   MSComm1.OutBufferCount = 0 '先清空緩存
  k" X9 `) m6 b7 x4 A* J- \   sendbuffer = "H!i"
   MSComm1.Output = sendbuffer
End Sub
'結束
Private Sub cmdStop_click()
    Timer1.Enabled = False
    Timer2.Enabled = False
0 N1 `7 R# x( x! c) G0 h+ w0 d  u    Timer3.Enabled = False
End Sub
& `6 z) L9 J7 r% L+ `( S2 K) o+ s
+ a" |" f3 Y% @. @4 r'接收數(shù)據(jù)
+ N$ J' H. i( E8 v* J& yPrivate Sub MSComm1_oncomm()
/ q2 m  w; \6 P) ?1 ]+ }! N    Dim inbyte() As Byte
, N; l  [1 x3 Q; l+ M    Dim revbuffer As String
    Dim a, i, b
    Select Case MSComm1.CommEvent
* [" {0 D4 c9 y2 O       '如果有CT在感應區(qū)
        
* N. m4 E! u2 j6 h/ r# M        Case comEvReceive
            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進制
                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
            txtHex.Text = revbuffer
            If Mid(revbuffer, 1, 6) = "480310" Then
! `0 L/ h8 h2 ]                Timer1.Enabled = False
                Timer1.Enabled = True
            End If
1 l, B/ h: r, _' e        End Select
        Case comEvSend
    End Select
' \& [; a9 z$ B; YPrivate Sub timer2_timer()
, Y; |" s4 p" A' E9 s4 f# W: W        MSComm1.OutBufferCount = 0 '先清空緩存
        sendbuffer = "R00000016U"
: p* t4 L1 e* ?. j4 b. Z  I        MSComm1.Output = sendbuffer
5 q& ]8 r6 Z) [: }3 cEnd Sub
2 z: ], h' d; i3 y5 e' k4 sPrivate Sub MSComm1_oncomm()
3 Q4 f7 l9 [" a" E    Select Case MSComm1.CommEvent
        Case comEvReceive
        inbyte = MSComm1.Input
- U: R, Y; X1 Q; @- v        For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進制
            revbuffer = revbuffer + Hex(inbyte(i))
6 g, C/ N4 A/ J+ b        Next i
5 }  X. }/ }" n! M9 k) r0 y        txtHex.Text = revbuffer
        If Mid(revbuffer, 1, 4) = "6030" Then
            Timer2.Enabled = False
( ]0 S- Q& q1 W            Timer3.Enabled = True
        End If
        Case comEvSend
    End Select
End Sub
8 }( q9 `5 e, i+ ~. _Private Sub timer3_timer()
    MSComm1.OutBufferCount = 0 '先清空緩存
    sendbuffer = "STX"
8 ?! ?" Q. }. |/ `7 g1 {$ M    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
9 x) m( @" q+ K( d0 E7 G        Case comEvReceive
            inbyte = MSComm1.Input
# q5 c: S3 u  \  v8 I8 w: H            For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進制
1 e2 o9 V5 K* [: Y( C! r, L6 L: Q$ i                revbuffer = revbuffer + Hex(inbyte(i))
  ~! {7 w, f4 T3 e5 ?0 z            Next i
& j; }0 F% U8 F& c3 Q1 [            txtHex.Text = revbuffer
            Case comEvSend
3 A+ x' c* X; S% }7 ]    End Select
End Sub

無能

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

無能

不知解決的如何了？三個Timer確實很混亂。

robi

回復 無能 的帖子
( o) h; O' y& D3 n
快了。
4 T* l% o  c9 n設備通信協(xié)議我沒看清，這個設備的通信不用timer。

1393065141

學習、、、、、、、、、、、、、、、、、、、、

robi

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

機械電氣編程

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