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

robi

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

2 l* U4 [' d" N5 O當(dāng)發(fā)送命令"H!i"時，為尋找芯片。
當(dāng)設(shè)備連接正確又無芯片在感應(yīng)區(qū)時，設(shè)備循環(huán)返回：0630 和 1537
當(dāng)設(shè)備當(dāng)設(shè)備連接正確而芯片又在感應(yīng)區(qū)時，設(shè)備返回0630，稍有停頓，繼續(xù)返回4831+其他信息
4 X! R$ f( t2 z( v
1 t/ t$ F8 r: [0 {: {: i當(dāng)芯片在感應(yīng)區(qū)時，發(fā)送命令“R00000016U”，讀取芯片前十六字節(jié)數(shù)據(jù)
沒有錯誤時，設(shè)備返回：0630
此時，發(fā)送命令“STX”，或十六進(jìn)制命令“02”
# @& M8 D- z  ^7 v+ A3 P設(shè)備返回前十六字節(jié)數(shù)據(jù)
- ~7 h2 r! J2 ?7 w
  v8 K/ I1 U* p之后繼續(xù)發(fā)送命令“H!i”，尋找下一個芯片
--------------------------------------------------------------------
4 o# R9 F- {$ b. u2 A! @) N- }項目用MSComm進(jìn)行串口通信
7 y5 ]  K5 H4 X0 t% S/ I5 E- @需要將上述幾條命令循環(huán)起來。我用的是比較MSComm1.Input是否為爭取的返回值“4831”和“0630”。
用了三個timer來控制三條命令“H!i”、“R00000016U”和“STX”的發(fā)送。把發(fā)送命令都放在了timer_timer下。
7 j' T7 l- C& k8 a. \% v但是這樣的話，就用到了三個Private Sub MSComm1_oncomm()。系統(tǒng)報錯，“發(fā)現(xiàn)二義性名稱”。意思應(yīng)該是不能重復(fù)定義Private Sub MSComm1_oncomm()吧？
1 Y9 a5 l$ ?# i  N1 A6 [- N# @----------------------------------------------------------------------------
其實程序說簡單些就是：
發(fā)送命令—>從數(shù)據(jù)返回區(qū)判定->發(fā)送命令->數(shù)據(jù)返回區(qū)判定->再發(fā)送命令->接收數(shù)據(jù)
這個循環(huán)要怎么實現(xiàn)呢？
先謝謝各位！

--------------------------------------------------------------------
. s) \  G, _/ t( z2 v+ E) n8 n下面是循環(huán)部分的代碼。系統(tǒng)報錯
6 l3 n! r6 }" M6 F; JPrivate Sub cmdStart_click()
    Timer1.Enabled = True
   
  A. a% b# M: p) h1 p   
9 Q$ R, a( E( V' [% N6 ?' G   
4 w% G( H6 O/ ~End Sub
, U& R0 J, O3 W) G+ s# l# M& Y4 TPrivate Sub timer1_timer()
   
   MSComm1.OutBufferCount = 0 '先清空緩存
: X+ V# K) V# H. h$ v: Q% I   sendbuffer = "H!i"
! ?& w' ?" `; O6 n& z" I0 b   MSComm1.Output = sendbuffer
End Sub
+ l$ b6 l5 ^  U6 x" U'結(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
- J' T9 W+ Y4 T& G! i    Dim revbuffer As String
    Dim a, i, b
0 }: n1 n/ J; f    Select Case MSComm1.CommEvent
       '如果有CT在感應(yīng)區(qū)
        
: R2 V# z# f( G4 c' V- C4 @- O/ |, H        Case comEvReceive
* \% w3 l* b% S            inbyte = MSComm1.Input
2 Y1 G1 o2 Z0 o) c            For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
                revbuffer = revbuffer + Hex(inbyte(i))
, p  W% ]& O+ f2 ]' q            Next i
# F7 {2 M- T/ t5 D4 d4 w            txtHex.Text = revbuffer
$ M! `4 ~- E! Z& D$ q5 c- S# Q            If Mid(revbuffer, 1, 6) = "480310" Then
                Timer1.Enabled = False
6 y) C4 V' c" s1 G/ j                Timer1.Enabled = True
% Y: @0 s9 s% T6 v, q            End If
        End Select
        Case comEvSend
6 `) d( h/ z) I, r2 B3 _: ?    End Select
. J8 A2 u8 e" c0 z9 sPrivate Sub timer2_timer()
/ J2 ~# I5 }- t        MSComm1.OutBufferCount = 0 '先清空緩存
        sendbuffer = "R00000016U"
        MSComm1.Output = sendbuffer
End Sub
Private Sub MSComm1_oncomm()
2 o, a7 s  W- J2 V) ]$ c    Select Case MSComm1.CommEvent
        Case comEvReceive
) \) T; ?0 Z  T9 A  c6 b0 {: U        inbyte = MSComm1.Input
        For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
            revbuffer = revbuffer + Hex(inbyte(i))
) p" c" o& P8 T4 i1 Q        Next i
        txtHex.Text = revbuffer
% r8 U  t2 Q/ n4 g        If Mid(revbuffer, 1, 4) = "6030" Then
1 s5 L( p( [5 B* w" _1 b            Timer2.Enabled = False
2 z. g, ^$ v' G( f" f/ Y9 W- `( s            Timer3.Enabled = True
        End If
        Case comEvSend
    End Select
End Sub
- |" a4 @% K5 O) C3 t4 u) hPrivate Sub timer3_timer()
  v8 e8 H! Y- G4 S    MSComm1.OutBufferCount = 0 '先清空緩存
3 s$ h/ b, ?; g+ v5 H# O) Z3 q    sendbuffer = "STX"
2 L: M" x% n; E! j$ Y: X- o    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
        Case comEvReceive
4 d! F- T/ p* b% [9 ~3 R3 ]; p+ t            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進(jìn)制
: i2 o9 a" C+ b+ W, x) X6 `                revbuffer = revbuffer + Hex(inbyte(i))
0 h2 e& L$ M* l4 [' q            Next i
            txtHex.Text = revbuffer
            Case comEvSend
    End Select
End Sub

0 r- t# J5 M+ y) m. G
" c  ^8 v5 K1 A: \! e
* {5 Q& z) P* [% Q' }

無能

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

無能

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

robi

回復(fù) 無能 的帖子
1 d& h3 H9 F) T: o, v/ z5 M
$ U& U9 w' M' N. A8 l快了。
設(shè)備通信協(xié)議我沒看清，這個設(shè)備的通信不用timer。

1393065141

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

robi

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

機械電氣編程

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