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

robi

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

当发送命令"H!i"时，为寻找芯片。
当设备连接正确又无芯片在感应区时，设备循环返回：0630 和 1537
当设备当设备连接正确而芯片又在感应区时，设备返回0630，稍有停顿，继续返回4831+其他信息

当芯片在感应区时，发送命令“R00000016U”，读取芯片前十六字节数据
没有错误时，设备返回：0630
此时，发送命令“STX”，或十六进制命令“02”
6 U5 i# c! @+ m8 Q' @& j0 S7 W设备返回前十六字节数据
. @' j3 F0 n% Q: ~" U& \5 S5 F
5 p# U& g6 [0 U  |( Z1 r之后继续发送命令“H!i”，寻找下一个芯片
--------------------------------------------------------------------
项目用MSComm进行串口通信
9 y" h, [5 ^( u. d6 R( \需要将上述几条命令循环起来。我用的是比较MSComm1.Input是否为争取的返回值“4831”和“0630”。
用了三个timer来控制三条命令“H!i”、“R00000016U”和“STX”的发送。把发送命令都放在了timer_timer下。
5 Z% s; d/ ?+ b) B但是这样的话，就用到了三个Private Sub MSComm1_oncomm()。系统报错，“发现二义性名称”。意思应该是不能重复定义Private Sub MSComm1_oncomm()吧？
! ]. F( f3 A& R4 @  b) k----------------------------------------------------------------------------
6 H$ V/ G& A9 v: G其实程序说简单些就是：
( t$ _: A# @$ r9 Y发送命令—>从数据返回区判定->发送命令->数据返回区判定->再发送命令->接收数据
* n) y- m# e0 x这个循环要怎么实现呢？
先谢谢各位！

& x; @6 X2 T& W3 A9 }' Z, x--------------------------------------------------------------------
下面是循环部分的代码。系统报错
- n" m3 m( s+ {3 y- y/ U8 y+ Y- uPrivate Sub cmdStart_click()
    Timer1.Enabled = True
  @$ l2 I2 G  \5 g, e) [: ^   
   
) k, i# w. E7 a; K6 K   
End Sub
) l5 {2 i, m/ B/ b6 v! rPrivate Sub timer1_timer()
/ ?, ~4 j5 j7 n* i) l% J0 r; g2 M   
   MSComm1.OutBufferCount = 0 '先清空缓存
, {3 ?. b3 N2 s% u7 f   sendbuffer = "H!i"
   MSComm1.Output = sendbuffer
+ Y. F% m* ?6 \End Sub
'结束
Private Sub cmdStop_click()
    Timer1.Enabled = False
    Timer2.Enabled = False
6 E3 c' y2 E. t/ e6 M% C    Timer3.Enabled = False
End Sub

'接收数据
Private Sub MSComm1_oncomm()
    Dim inbyte() As Byte
6 k' ^* h0 b2 f7 a    Dim revbuffer As String
    Dim a, i, b
    Select Case MSComm1.CommEvent
       '如果有CT在感应区
+ q$ u; k- e% i, m5 ^5 S6 f) f$ Q0 z( L        
        Case comEvReceive
            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
                revbuffer = revbuffer + Hex(inbyte(i))
  ]) ~, F8 l. y  W: g2 v* [  E            Next i
            txtHex.Text = revbuffer
            If Mid(revbuffer, 1, 6) = "480310" Then
# S" y3 B$ f; T# O                Timer1.Enabled = False
                Timer1.Enabled = True
            End If
        End Select
        Case comEvSend
    End Select
/ c/ p$ d2 ]6 Z. OPrivate Sub timer2_timer()
) Y! b& a; g  i2 _* ^        MSComm1.OutBufferCount = 0 '先清空缓存
$ x# K0 j0 I: ^        sendbuffer = "R00000016U"
: x0 x: |  a2 u0 M: Y3 p2 k+ @        MSComm1.Output = sendbuffer
3 @/ t; s: T( s+ \' @5 I3 I' @End Sub
Private Sub MSComm1_oncomm()
    Select Case MSComm1.CommEvent
        Case comEvReceive
        inbyte = MSComm1.Input
# d# c5 t0 A. h; y        For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
            revbuffer = revbuffer + Hex(inbyte(i))
        Next i
+ H$ ~( x* C" ?        txtHex.Text = revbuffer
        If Mid(revbuffer, 1, 4) = "6030" Then
' E1 T8 P+ `9 t6 {            Timer2.Enabled = False
            Timer3.Enabled = True
- k3 y5 U3 N+ a: ?& T8 m  N        End If
        Case comEvSend
    End Select
$ W9 n6 u5 |4 h* p  iEnd Sub
Private Sub timer3_timer()
    MSComm1.OutBufferCount = 0 '先清空缓存
5 U* ~1 x0 L& t    sendbuffer = "STX"
    MSComm1.Output = sendbuffer
4 |& y" w8 `6 Y# D    Select Case MSComm1.CommEvent
6 |4 e) H1 ~. Q% ~8 l0 b6 V# k$ c2 F        Case comEvReceive
/ {0 E  p! H! j            inbyte = MSComm1.Input
. K- U( ?4 t& S7 ]            For i = LBound(inbyte) To UBound(inbyte)            '返回数据转换为十六进制
. u$ g: P) a1 z/ N. J- z; F                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
            txtHex.Text = revbuffer
2 p5 e$ G7 W: b& ~, s            Case comEvSend
    End Select
6 n" C- g0 x8 k+ f% rEnd Sub
6 T: ?6 K0 ^; T1 E+ S2 ^; d1 d* @0 J
/ o& z2 s6 M& d1 f, s  {: v' H
$ ?0 ^# F8 \  n! {) Z" w& Q
) F  l/ C* i/ f* |" {

无能

这个问题感觉不难，但你描述的有些乱，让人看不明白。
. `0 ]" h& @& U$ r我也用Vb编过一些东西，欢迎交流。

无能

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

robi

回复 无能 的帖子

快了。
) a: a' N' \4 ~* k  J6 U7 C. h设备通信协议我没看清，这个设备的通信不用timer。
$ a7 h; e* J+ o$ E- Y

1393065141

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

robi

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

机械电气编程

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