MSCOMM控件的使用

5．如何用单机进行通信测试
    通常在写好了通信程序后需要两台PC或一台Pc、一台单片机．将通信口连接后进行测试，但很多时侯因条件限制仅有单台PC机，
测试项目很简单，那么能否测试呢？当然可以，而且方法也很简单。对于九针的串口，找一个废弃的串口鼠标，剥外鼠标线，将连
接2、3针的线对接即可；对于25针的串口，找一枚曲别针（最好有塑料外套的）将它扯直，剥削去两头的塑料后在两头各弯一个圆
圈，中间对忻后直接套接在串口的2、3针上即可。如果但心不够安全，则可以将5针按地。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
关于mscomm的用法，提高篇......[mgwmj]©

MSCOMM控件是个好东西，如果您能够充分了解他，他会为您衷心的效劳。

    大致看了一下下午有关讨论MSCOMM的话题，觉得有必要说说我的心得，我一般只做硬件，没有系统的学过软件，只是业余时间
学学用用，多少掌握了一点，也在此拿出来玩玩，不知有错没有，我可是以为我已经做的很好了^_^

这是一个VB通用串口事件驱动接收程序。一次性接收一个数据包，数据包可以为任意字节，保证不会丢失一个数据！
Private Sub MSComm_OnComm()
    Dim S() As Byte
    Dim SS(1024) As Byte
    Static N As Long
    Static T As Variant

    If (MSComm.CommEvent = comEvReceive) Then
        S = MSComm.Input                      '只要有数据就收进来，哪怕只是一个
        If (Timer - T > 0.01) Then            '间隔10MS以上就认为是一个新的包
            text1=""                          'text1用于搜集和显示接收(HEX格式)
            N = 0
        End If
        T = Timer
        For i = 0 To UBound(S)               '一个数据包可能产生若干个oncomm事件
            Text1.Text = Text1.Text & Right("0" & Hex(S(i)) & "H", 3) + " "
            SS(N+i)=S(i)                     '接收数据包缓存于SS()
            N=N+UBound(S)
        Next i
    End If
End Sub

上一页  [1] [2] [3] 

本文关键字：暂无联系方式自动控制-单片机，电子制作 - 自动控制-单片机