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

robi

項目需要用MSComm控件實現(xiàn)射頻設(shè)備與PC的串口通信。先說一下設(shè)備發(fā)送命令后會返回的相應(yīng)的數(shù)據(jù)：
' c. k1 i" I" i8 A/ Q* T$ d
當(dāng)發(fā)送命令"H!i"時，為尋找芯片。
* Y& F* a; y' C- D9 |+ G5 e3 q7 `9 ]當(dāng)設(shè)備連接正確又無芯片在感應(yīng)區(qū)時，設(shè)備循環(huán)返回：0630 和 1537
當(dāng)設(shè)備當(dāng)設(shè)備連接正確而芯片又在感應(yīng)區(qū)時，設(shè)備返回0630，稍有停頓，繼續(xù)返回4831+其他信息

/ l* s* Z3 V+ t當(dāng)芯片在感應(yīng)區(qū)時，發(fā)送命令“R00000016U”，讀取芯片前十六字節(jié)數(shù)據(jù)
6 _6 @# l( g. |1 K沒有錯誤時，設(shè)備返回：0630
/ M+ m( Y* A9 b此時，發(fā)送命令“STX”，或十六進制命令“02”
1 g2 n4 n* K* c! \1 N% o設(shè)備返回前十六字節(jié)數(shù)據(jù)

' ^! t2 h& ~7 \. Q+ k: }之后繼續(xù)發(fā)送命令“H!i”，尋找下一個芯片
--------------------------------------------------------------------
項目用MSComm進行串口通信
' h' ]+ J6 k3 K: Z需要將上述幾條命令循環(huán)起來。我用的是比較MSComm1.Input是否為爭取的返回值“4831”和“0630”。
用了三個timer來控制三條命令“H!i”、“R00000016U”和“STX”的發(fā)送。把發(fā)送命令都放在了timer_timer下。
. r6 j4 P: x' Z- O( c" Y, u, J但是這樣的話，就用到了三個Private Sub MSComm1_oncomm()。系統(tǒng)報錯，“發(fā)現(xiàn)二義性名稱”。意思應(yīng)該是不能重復(fù)定義Private Sub MSComm1_oncomm()吧？
7 K9 v9 P. M# D: g  c----------------------------------------------------------------------------
. L2 l1 A" i5 [8 o2 b1 c其實程序說簡單些就是：
發(fā)送命令—>從數(shù)據(jù)返回區(qū)判定->發(fā)送命令->數(shù)據(jù)返回區(qū)判定->再發(fā)送命令->接收數(shù)據(jù)
這個循環(huán)要怎么實現(xiàn)呢？
# X; Y, M' L9 l0 q. n先謝謝各位！

! G' H4 ~& C, e/ ~4 ~6 ?9 V--------------------------------------------------------------------
下面是循環(huán)部分的代碼。系統(tǒng)報錯
- N! J* ~8 s: G" q9 [Private Sub cmdStart_click()
    Timer1.Enabled = True
0 \0 [0 u% v$ |- B+ t   
( t3 @) R8 ?! }$ n5 m+ k   
   
1 X8 h. ?" H6 }- b$ y; }3 z! E# lEnd Sub
' i/ z( p: l; \' O# q9 ~Private Sub timer1_timer()
   
3 G8 N! ?  M+ \, g3 z   MSComm1.OutBufferCount = 0 '先清空緩存
   sendbuffer = "H!i"
   MSComm1.Output = sendbuffer
3 M) J4 H$ f3 nEnd Sub
. q: }/ ]$ X$ v1 v$ Y# X) Q/ Q'結(jié)束
1 D  e) |0 A0 APrivate Sub cmdStop_click()
    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer3.Enabled = False
End Sub

8 \, W! Y% Y# w'接收數(shù)據(jù)
Private Sub MSComm1_oncomm()
7 i4 ]5 \3 q1 P9 @    Dim inbyte() As Byte
  v- M- @! Z. T1 R* y1 h    Dim revbuffer As String
    Dim a, i, b
1 Y/ [# x& b) _" j" _/ T    Select Case MSComm1.CommEvent
       '如果有CT在感應(yīng)區(qū)
! h* q# F6 U: u        
1 ~* g) N% l  V8 z6 B) ?        Case comEvReceive
, H' J+ ]; b* w6 Q; o  F; u            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進制
& \, s, u0 [9 P4 O  t5 U                revbuffer = revbuffer + Hex(inbyte(i))
0 M# r9 [4 X; N% ^, M- a5 ^' p" E            Next i
            txtHex.Text = revbuffer
            If Mid(revbuffer, 1, 6) = "480310" Then
+ P  b2 j: p, |, X2 U# T0 [5 r                Timer1.Enabled = False
0 t5 [8 I6 [5 V5 ^8 b: K                Timer1.Enabled = True
            End If
6 Z/ w7 g% z# _: r3 q; J        End Select
) K# j3 s. \, S# }6 ?        Case comEvSend
    End Select
, e( @1 F  y; y, }" G, EPrivate Sub timer2_timer()
        MSComm1.OutBufferCount = 0 '先清空緩存
+ W3 k8 a. d$ [        sendbuffer = "R00000016U"
        MSComm1.Output = sendbuffer
End Sub
* v/ A) l8 f3 \: pPrivate Sub MSComm1_oncomm()
    Select Case MSComm1.CommEvent
        Case comEvReceive
# D# p  w; z+ A7 L' ]        inbyte = MSComm1.Input
) T: @, f% k9 q+ w        For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進制
            revbuffer = revbuffer + Hex(inbyte(i))
! W. @2 q, V3 k2 p        Next i
$ \+ ^& T, Z' ]; Q# |+ C        txtHex.Text = revbuffer
, T' |' P, |- M( x5 P7 L        If Mid(revbuffer, 1, 4) = "6030" Then
& t) G: ?0 i6 F% n            Timer2.Enabled = False
" q/ D) E# x/ \: i$ e( f9 ?            Timer3.Enabled = True
7 @$ o3 j9 h% p0 ]! Z9 T! P7 v        End If
        Case comEvSend
3 T" x4 z0 H; {  O    End Select
7 ]+ O2 M% h/ I) q: p* L" c2 Y# _End Sub
Private Sub timer3_timer()
0 \* @7 m! b3 P9 s    MSComm1.OutBufferCount = 0 '先清空緩存
    sendbuffer = "STX"
    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
        Case comEvReceive
9 e/ h& K' C% H# Q            inbyte = MSComm1.Input
' w6 {( M; H0 Q$ M            For i = LBound(inbyte) To UBound(inbyte)            '返回數(shù)據(jù)轉(zhuǎn)換為十六進制
7 }/ N% ], c) M! s0 v9 z2 ~. \                revbuffer = revbuffer + Hex(inbyte(i))
: v6 h6 u, v( o5 H, h  N  }0 W            Next i
+ b% }. ~2 F: W            txtHex.Text = revbuffer
            Case comEvSend
5 |6 a& F2 o7 n3 @  m1 B9 x    End Select
( H$ {/ Z: e; Y) g! G1 v+ {End Sub

  ^( h; l* L. h' T7 h/ W/ @0 }' |

無能

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

無能

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

robi

回復(fù) 無能 的帖子

# j) I" |. c+ {: a* X  K  U快了。
設(shè)備通信協(xié)議我沒看清，這個設(shè)備的通信不用timer。

1393065141

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

robi

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

機械電氣編程

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