求助：VB6.0 MSComm控件串口通信發送循環

robi

項目需要用MSComm控件實現射頻設備與PC的串口通信。先說一下設備發送命令后會返回的相應的數據：

當發送命令"H!i"時，為尋找芯片。
" Y! @/ K% z  w! j當設備連接正確又無芯片在感應區時，設備循環返回：0630 和 1537
) i" ^2 p8 v; j8 D3 P1 R3 U1 P6 y當設備當設備連接正確而芯片又在感應區時，設備返回0630，稍有停頓，繼續返回4831+其他信息
# c- u+ q1 t3 l" U% l1 B1 J
+ M' v! l) K& q7 R1 @2 I/ o3 w) D3 a當芯片在感應區時，發送命令“R00000016U”，讀取芯片前十六字節數據
沒有錯誤時，設備返回：0630
此時，發送命令“STX”，或十六進制命令“02”
設備返回前十六字節數據
3 o$ u" N2 E+ {! m1 f  ?2 s
) [" k0 q. ]1 E7 h" l/ Q之后繼續發送命令“H!i”，尋找下一個芯片
--------------------------------------------------------------------
項目用MSComm進行串口通信
需要將上述幾條命令循環起來。我用的是比較MSComm1.Input是否為爭取的返回值“4831”和“0630”。
用了三個timer來控制三條命令“H!i”、“R00000016U”和“STX”的發送。把發送命令都放在了timer_timer下。
9 M" z# }3 |. R  f/ {7 g2 u% H但是這樣的話，就用到了三個Private Sub MSComm1_oncomm()。系統報錯，“發現二義性名稱”。意思應該是不能重復定義Private Sub MSComm1_oncomm()吧？
----------------------------------------------------------------------------
其實程序說簡單些就是：
發送命令—>從數據返回區判定->發送命令->數據返回區判定->再發送命令->接收數據
這個循環要怎么實現呢？
2 o+ ?4 l( [" Y% H4 e先謝謝各位！

--------------------------------------------------------------------
7 g1 R  I  `$ \9 i9 g下面是循環部分的代碼。系統報錯
- _" \* k) T9 T0 ePrivate Sub cmdStart_click()
    Timer1.Enabled = True
   
6 J9 S# Y1 b  V- X0 |   
   
End Sub
4 ^( z; O0 H5 I$ X5 g# FPrivate Sub timer1_timer()
   
   MSComm1.OutBufferCount = 0 '先清空緩存
   sendbuffer = "H!i"
8 K6 @4 R& j' U/ {! G$ r- r/ g, k   MSComm1.Output = sendbuffer
, f; ]7 G8 J+ J' c8 ^End Sub
'結束
8 ]+ C" l* t/ ]/ u5 ~Private Sub cmdStop_click()
    Timer1.Enabled = False
% T  |1 z: Q4 y% c, h    Timer2.Enabled = False
    Timer3.Enabled = False
3 f  B: u3 D! Q  y- lEnd Sub

( C  Z9 }2 t# ~'接收數據
Private Sub MSComm1_oncomm()
# H4 m9 l6 k4 g, [, ~0 G; \    Dim inbyte() As Byte
    Dim revbuffer As String
    Dim a, i, b
    Select Case MSComm1.CommEvent
       '如果有CT在感應區
3 x9 t9 W8 x& l: u% c* ]3 G        
        Case comEvReceive
  V6 y$ ]6 k& k9 {3 z- Y$ {            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回數據轉換為十六進制
                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
( T% q5 v; W, K            txtHex.Text = revbuffer
; C4 Z; `7 `. \7 x/ f5 l            If Mid(revbuffer, 1, 6) = "480310" Then
                Timer1.Enabled = False
                Timer1.Enabled = True
            End If
        End Select
        Case comEvSend
    End Select
Private Sub timer2_timer()
        MSComm1.OutBufferCount = 0 '先清空緩存
% Z3 y3 j, C$ }        sendbuffer = "R00000016U"
        MSComm1.Output = sendbuffer
' @% T" ^$ J; |; [* z6 fEnd Sub
5 M1 B" R  d5 Z$ g: ?( a6 zPrivate Sub MSComm1_oncomm()
( m! v' y; l! ^. w( V  n/ |    Select Case MSComm1.CommEvent
4 m2 |( a3 h- ?$ Y+ ]        Case comEvReceive
7 y6 P7 s5 T) P0 O        inbyte = MSComm1.Input
        For i = LBound(inbyte) To UBound(inbyte)            '返回數據轉換為十六進制
! F7 q: {9 {$ b7 R( P            revbuffer = revbuffer + Hex(inbyte(i))
. n3 K/ B- H, q( H        Next i
% ~9 V. r" i% w# ]        txtHex.Text = revbuffer
        If Mid(revbuffer, 1, 4) = "6030" Then
            Timer2.Enabled = False
            Timer3.Enabled = True
        End If
        Case comEvSend
    End Select
$ l2 F3 d2 p+ z" K4 o; yEnd Sub
/ e* T/ p# J' {( R# D1 Y) GPrivate Sub timer3_timer()
7 L1 X0 X% U. `! C+ s    MSComm1.OutBufferCount = 0 '先清空緩存
+ X& r) h. ?& d8 q9 Q" C    sendbuffer = "STX"
- W  R9 N/ B( r2 l3 n    MSComm1.Output = sendbuffer
    Select Case MSComm1.CommEvent
        Case comEvReceive
            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)            '返回數據轉換為十六進制
                revbuffer = revbuffer + Hex(inbyte(i))
            Next i
            txtHex.Text = revbuffer
            Case comEvSend
    End Select
End Sub

4 C# Q/ X% V3 e: u
7 H. q% q) o4 k
2 d7 E- ]5 y8 P' P; O

無能

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

無能

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

robi

回復 無能 的帖子

% ?, Z8 z7 C: V5 C0 @快了。
設備通信協議我沒看清，這個設備的通信不用timer。

1393065141

學習、、、、、、、、、、、、、、、、、、、、

robi

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

機械電氣編程

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