皮皮网

1.VB6.0中的串口程序串口串口通讯
2.如何用VB6.0通过串口从电子秤中获取数据?

VB6.0中的串口通讯

       Dim Buffer As Variant 

       Dim Arr() As Byte 

       ' 设定并开启连接埠

       MSComm1.CommPort = 1 

       ' 连线速度  baud、无同位检查、通信通讯首板寻妖副图指标源码资料位元 8、源码米表网站源码停止位元 1 

       MSComm1.Settings = ",串口程序串口神仙道网站源码N,8,1" 

       告诉控制项当使用 Input 时，读取整个暂存区 

       MSComm1.InputLen = 0 

       MSComm1.PortOpen = True 

       ' 设定 InputMode 以读取二进制模式

       MSComm1.InputMode = comInputModeBinary 

       ' 等待直到输入缓冲区有  个字节

       Do Until MSComm1.InBufferCount <  

           DoEvents 

       Loop 

       ' 将二进制数据放入Buffer中

       Buffer = MSComm1.Input 

       ' 把数据给指定的通信通讯php整源码调试数组

       Arr = Buffer 

       MSComm1.PortOpen = False

       ' 通过Arr(5) 就可以得到第N个元素了

如何用VB6.0通过串口从电子秤中获取数据?

       Option Explicit

        Dim strss As String

       Private Sub Form_Load()

        MSComm1.CommPort = 1 '串口号，

        MSComm1.Settings = ",源码灰色顶目源码n,8,1 " '串口的属性

        MSComm1.InputLen = 0

        MSComm1.InputMode = comInputModeText

        MSComm1.RThreshold = 1

        MSComm1.PortOpen = True

       End Sub

       Private Sub MSComm1_OnComm()

        Select Case MSComm1.CommEvent

        Case comEvReceive

        strss = strss & MSComm1.Input

        If Right(strss, 2) = vbCrLf Then

        Label1.Caption = strss

        Open "D:\DATA.txt" For Append As #1

        Print #1, Mid(strss, 1, Len(strss) - 2) '去除回车换行

        Close

        strss = ""

        End If

        End Select

       End Sub