求助：VB6.0 MSComm控件串口通信发送循环

robi

项目需要用MSComm控件实现射频设备与PC的串口通信。先说一下设备发送命令后会返回的相应的数据：

当发送命令"H!i"时，为寻找芯片。
当设备连接正确又无芯片在感应区时，设备循环返回：0630 和 1537
# ]. d; x5 o/ q# y/ s& r4 C当设备当设备连接正确而芯片又在感应区时，设备返回0630，稍有停顿，继续返回4831+其他信息
) l2 t' P& y, q5 j
0 ~3 `" X3 B! o% Z* Q当芯片在感应区时，发送命令“R00000016U”，读取芯片前十六字节数据
没有错误时，设备返回：0630
此时，发送命令“STX”，或十六进制命令“02”
设备返回前十六字节数据

之后继续发送命令“H!i”，寻找下一个芯片
. g: [$ y2 f/ n% A  k1 T--------------------------------------------------------------------
/ g3 Z0 M' q$ H1 X" R项目用MSComm进行串口通信
3 T6 c2 l0 d8 ?% J需要将上述几条命令循环起来。我用的是比较MSComm1.Input是否为争取的返回值“4831”和“0630”。
用了三个timer来控制三条命令“H!i”、“R00000016U”和“STX”的发送。把发送命令都放在了timer_timer下。
' y: Z1 u  c' Q但是这样的话，就用到了三个Private Sub MSComm1_oncomm()。系统报错，“发现二义性名称”。意思应该是不能重复定义Private Sub MSComm1_oncomm()吧？
----------------------------------------------------------------------------
1 k( Z. M4 l& m0 |其实程序说简单些就是：
2 K2 s4 m+ b% ]/ H/ f' q* F发送命令—>从数据返回区判定->发送命令->数据返回区判定->再发送命令->接收数据
这个循环要怎么实现呢？
先谢谢各位！
. a1 o3 S7 Q7 O9 d7 X
% C, Y% j" u* k' T--------------------------------------------------------------------
+ e- y# ?/ l) N5 _8 \! l0 @+ d2 B下面是循环部分的代码。系统报错
' M8 M) ]8 i8 J( l7 B  fPrivate Sub cmdStart_click()
    Timer1.Enabled = True
: a* n0 Q- J3 s) C. Y   
' L4 Y1 N- U' A1 |  Y( w( y   
   
End Sub
Private Sub timer1_timer()
5 i: l% s$ v$ m% i& P   
" `6 ]+ T. b* j" @8 l- P   MSComm1.OutBufferCount = 0 '先清空缓存
   sendbuffer = "H!i"
/ Z! F5 [  ~  N   MSComm1.Output = sendbuffer
End Sub
'结束
4 k6 @9 g9 L# e5 H; o( ?6 }6 mPrivate Sub cmdStop_click()
    Timer1.Enabled = False
: E+ O$ |5 i! s" q    Timer2.Enabled = False
    Timer3.Enabled = False
End Sub

' f! w' R4 s* l/ ^; a'接收数据
Private Sub MSComm1_oncomm()
, i( T6 ^4 u" {8 s+ E. ?    Dim inbyte() As Byte
    Dim revbuffer As String
    Dim a, i, b
- N, ^2 L( b% F' `) F    Select Case MSComm1.CommEvent
, _' \! K# R  t4 @* \       '如果有CT在感应区
2 d. q1 q- m; k  g        
        Case comEvReceive
, ?2 z: Z  i1 k            inbyte = MSComm1.Input
0 H5 X1 G/ a9 y: t            For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
            txtHex.Text = revbuffer
# d+ O, y) |: Z: o. X            If Mid(revbuffer, 1, 6) = "480310" Then
! s& O0 {9 n9 I6 u                Timer1.Enabled = False
                Timer1.Enabled = True
* C7 W) q5 ]) d            End If
        End Select
        Case comEvSend
1 o) v; N; U- c7 K$ ?* k    End Select
Private Sub timer2_timer()
        MSComm1.OutBufferCount = 0 '先清空缓存
        sendbuffer = "R00000016U"
; Y4 Z" E# c7 J( [. S$ j: k, w4 D        MSComm1.Output = sendbuffer
3 c  i/ h/ H6 [* C6 k$ E( S* ^End Sub
& D* l+ E9 p$ _+ C/ qPrivate Sub MSComm1_oncomm()
    Select Case MSComm1.CommEvent
        Case comEvReceive
! _* w4 }( N7 x5 q2 z% Q0 C        inbyte = MSComm1.Input
0 w& F6 ?1 S/ i, S! Y        For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
            revbuffer = revbuffer + Hex(inbyte(i))
        Next i
- h) ~! [' F; _9 \4 M$ B( U* S, s        txtHex.Text = revbuffer
        If Mid(revbuffer, 1, 4) = "6030" Then
! V+ m# T4 h! w            Timer2.Enabled = False
) ]$ Q4 ~6 ~" R8 i' u% e            Timer3.Enabled = True
        End If
        Case comEvSend
    End Select
End Sub
7 @! d, Y# m5 }8 w) r# nPrivate Sub timer3_timer()
    MSComm1.OutBufferCount = 0 '先清空缓存
; U" _2 u; t" O/ Q+ W: Q2 f0 ^    sendbuffer = "STX"
    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
/ o0 {; V  |+ H# F; a/ j  s& ~        Case comEvReceive
            inbyte = MSComm1.Input
4 x: t& {" g7 R2 X            For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
+ c0 T" h( m* h& a* u; z                revbuffer = revbuffer + Hex(inbyte(i))
, ^* Q' p* m' p5 g            Next i
            txtHex.Text = revbuffer
            Case comEvSend
- x/ H$ o( C. f    End Select
End Sub
2 S1 I; d2 c' @" ^# V. e! ~# H1 [0 ]
& x% {* k* f3 @& Z+ w8 P; Z  {3 _, S2 z

无能

这个问题感觉不难，但你描述的有些乱，让人看不明白。
我也用Vb编过一些东西，欢迎交流。

无能

不知解决的如何了？三个Timer确实很混乱。

robi

回复 无能 的帖子
3 P3 s1 M6 G, A6 U6 a% y1 y
1 ~2 ~; H3 @: q1 l# c; I6 k: s; b快了。
) F! V3 \* ?9 m& d+ x( X1 x设备通信协议我没看清，这个设备的通信不用timer。

1393065141

学习、、、、、、、、、、、、、、、、、、、、

robi

后来发现其实这个通信程序的关键在于要弄清收发信息的格式，也就是MSComm初始设置时，是二进制还是文本。这个很重要，否则通信会出错。

机械电气编程

让我想起了，我毕业论文就搞的这个。