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

robi

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

当发送命令"H!i"时，为寻找芯片。
当设备连接正确又无芯片在感应区时，设备循环返回：0630 和 1537
当设备当设备连接正确而芯片又在感应区时，设备返回0630，稍有停顿，继续返回4831+其他信息
' l; `0 h5 E9 x, ~$ x7 e& y
当芯片在感应区时，发送命令“R00000016U”，读取芯片前十六字节数据
4 d4 M# W0 v7 ?" O没有错误时，设备返回：0630
& p1 C, [% U* K7 g1 O此时，发送命令“STX”，或十六进制命令“02”
1 B8 @7 B: y1 b( B( b设备返回前十六字节数据

之后继续发送命令“H!i”，寻找下一个芯片
0 Q3 _5 w. ~' ^8 l/ i% G--------------------------------------------------------------------
项目用MSComm进行串口通信
需要将上述几条命令循环起来。我用的是比较MSComm1.Input是否为争取的返回值“4831”和“0630”。
9 e! F+ r! @, T, X用了三个timer来控制三条命令“H!i”、“R00000016U”和“STX”的发送。把发送命令都放在了timer_timer下。
但是这样的话，就用到了三个Private Sub MSComm1_oncomm()。系统报错，“发现二义性名称”。意思应该是不能重复定义Private Sub MSComm1_oncomm()吧？
6 d8 Z  v! P6 o+ Q----------------------------------------------------------------------------
其实程序说简单些就是：
发送命令—>从数据返回区判定->发送命令->数据返回区判定->再发送命令->接收数据
这个循环要怎么实现呢？
先谢谢各位！
; T1 s5 O. H  o( K' x* Y
! ^5 O1 j4 Q0 M. L3 b5 x7 n# |--------------------------------------------------------------------
3 E. g% S* B8 {0 f& |下面是循环部分的代码。系统报错
Private Sub cmdStart_click()
8 _5 {# |5 g. V7 _% b3 h    Timer1.Enabled = True
' d# E+ Y7 `) I$ O1 c   
1 @+ m0 u% r4 c8 ~( V" E   
   
End Sub
Private Sub timer1_timer()
   
   MSComm1.OutBufferCount = 0 '先清空缓存
9 ^# [, v: U) k   sendbuffer = "H!i"
0 l  ]; W& P8 H* K7 t6 ?: V   MSComm1.Output = sendbuffer
End Sub
'结束
Private Sub cmdStop_click()
8 C2 l7 s" e1 S1 a/ _/ D: K    Timer1.Enabled = False
# B# }! P7 z& `1 U% S    Timer2.Enabled = False
    Timer3.Enabled = False
5 p: l9 W9 ~& E6 k! VEnd Sub
" K/ B4 J5 ]" `; g
'接收数据
/ a5 z/ I" P0 C$ z; i+ J( l$ q  N3 tPrivate Sub MSComm1_oncomm()
1 f1 k4 Y2 r9 Z& c# B0 U8 u* q    Dim inbyte() As Byte
    Dim revbuffer As String
    Dim a, i, b
    Select Case MSComm1.CommEvent
- G( ~$ u8 V# Z+ a8 z8 O9 t       '如果有CT在感应区
        
! v" t$ \+ V+ y        Case comEvReceive
            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
7 X# ?  O( T) x% O. I  X                revbuffer = revbuffer + Hex(inbyte(i))
, Y8 G2 Y  \: Z  E8 }            Next i
            txtHex.Text = revbuffer
5 |) c* c! r7 B$ [            If Mid(revbuffer, 1, 6) = "480310" Then
                Timer1.Enabled = False
1 y' w6 c: p, J8 ]                Timer1.Enabled = True
            End If
        End Select
        Case comEvSend
    End Select
: n+ S7 {! ]2 N# |. i* fPrivate Sub timer2_timer()
5 Y! p5 U8 M$ U. y. i- {7 e. M        MSComm1.OutBufferCount = 0 '先清空缓存
        sendbuffer = "R00000016U"
8 W3 ?7 T8 w2 S3 Y1 d' x7 n& r        MSComm1.Output = sendbuffer
End Sub
Private Sub MSComm1_oncomm()
    Select Case MSComm1.CommEvent
* E5 l7 s4 L6 a1 X5 `+ P1 u        Case comEvReceive
        inbyte = MSComm1.Input
        For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
            revbuffer = revbuffer + Hex(inbyte(i))
  _5 T/ i/ \, U7 ^+ \% M2 o5 a        Next i
& B$ g( u* t4 Z/ C5 ]; b1 Q4 [        txtHex.Text = revbuffer
/ p: l0 _2 o& |3 v        If Mid(revbuffer, 1, 4) = "6030" Then
- v9 s1 i: k7 M- x6 F3 d3 ^            Timer2.Enabled = False
            Timer3.Enabled = True
" D5 A: \, I$ I7 @/ o; [        End If
4 @- c% H  M% \4 d8 v/ t        Case comEvSend
    End Select
End Sub
3 `) o$ m+ G9 E/ f/ d) ^Private Sub timer3_timer()
+ s2 s/ n% C0 w9 O& f5 r    MSComm1.OutBufferCount = 0 '先清空缓存
9 t' N- F8 l2 T+ l, S2 N9 }& o    sendbuffer = "STX"
1 W' A4 P2 B2 H  Z0 C; x' ?    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
  @! [, |0 [9 V1 [6 U4 H$ u+ x        Case comEvReceive
" b/ H, R7 |! a            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
( o7 y- t9 L( Z# p                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
            txtHex.Text = revbuffer
4 l+ K: s; |. C5 J! g* i- r+ ]& D            Case comEvSend
    End Select
End Sub
$ o! J" S( c; ~  T. j/ q/ a$ {1 [
! P% F- a5 S+ U1 r5 j4 X, ^

/ g  Q3 `/ B, b; E3 s/ }

无能

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

无能

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

robi

回复 无能 的帖子

快了。
设备通信协议我没看清，这个设备的通信不用timer。

1393065141

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

robi

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

机械电气编程

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