如何用vb实现通过RS232C通讯接口采集数据

Question

如何使用RS232C通讯接口，按给出的接口协议，实现检测数据的现场采集，采集的是千分表的数据，哪位高手能够说一下设计的思路或者告诉一下哪里能找到Rs232C通讯接口的协议，给点资料，实例。十分感谢！

Answer 1

所谓协议是千分表传出的数据，知道千分表的波特率，数据位，停止位等数据并设置好串口控件就能接受数据了，推荐用 vb自带的MSComm 控件.
接受的数据要分析处理成可以给用户读取并把数据显示出来。

Answer 2

谢谢大家，我现在还没有拿到“千分表技的术文档”，拿到之后我就上传，另外大家能不能给我一些关于rs232c的资料，我第一次做关于这方面的东西，在网上搜索没有找到介绍rs232c的资料。谢谢！

Answer 3

串口通信编程大全：
http://www.mndsoft.com/downfiles/Rs232cai.rar

Answer 4

引脚 簡寫 意義
1 CD 載波檢測
2 RXD 接收字元
3 TXD 發送字元
4 DTR 資料端備妥
5 GND 接地
6 DSR 資料備妥
7 RTS 要求發送
8 CTS 清除以發送
9 RI 響鈴檢測

Answer 5

在Visual Basic中有一个名为Microsoft Communication Control（简称MSComm）的通讯控件。
MSComm控件的主要属性、事件 1、MSComm的属性     由于MSComm控件属性很多，在此笔者仅介绍与实现串口通讯密切相关的核心属性。     Commport：设置通讯所占用的串口号。如设成1（默认值），表示对Com1进行操作。     Setting：对串口通讯的相关参数。包括串口通讯的比特率，奇偶校验，数据位长度、停止位等。其默认值 是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校验，8位数据位，1个停止位。     Portopen：设置串口状态，值为True时打开串口，值为False时关闭串口。     Input：从输入寄存器读取数据，返回值为从串口读取的数据内容，同时输入寄存器将被清空。     Ouput：发送数据到输出寄存器。     InBufferCount：设置输入寄存器所存储的字符数，当将其值设为0时，则输入寄存器将被清空。    InputMode：设置从输入寄存器中读取数据的形式。若值为0，则表示以文本形式读取；值为1，则表示以 二进制形式读取。     OutBufferCount：设置输出寄存器所存储的字符数，当将其值设为0时，则输出寄存器将被清空。     RThreshold：设置在MSComm控件设置CommEvent属性为comEvReceive并产生OnComm事件之前要接受的字符 数。     CommEvent属性：返回最近的通讯事件或错误。通过对它具体属性值的查询，我们就可以获得通讯事件和通 讯错误的完整信息。当其值是comEvReceive时表示接收到数据。 2、MSComm的事件     除了公共事件之外，MSComm只有一个OnComm事件。当CommEvent属性值变化时将发生OnComm事件，指示发生 一个通讯事件或错误。当我们设置Rtheshold属性值为0时，将使得捕获comEvReceive事件无效。 三、串口通讯编程实例     在完成了对MSComm控件的简要介绍之后，笔者就以实际程序为例，介绍一下串口通讯的具体实现方法。1、PC机间的串口通讯   （1）、实现方法：    A、新建一个窗体，在上面放两个Text控件、两个CommandButton控件和两个Label控件（如图1.bmp所示）。 具体见下表：控件类型           名称            Caption属性          作用 ------------------------------------------------------------------------------- Text                Text1            -------          输入所要发送的信息 Text                Text2            -------          显示接收到的信息 CommandButton       Command1         发  送             ---------            CommandButton       Command2         退  出             --------- Label               Label1         发送的数据             提示 Label               Label2         接收的数据             提示    B、在控件工具箱中的空白处点击鼠标右键，在弹出的菜单中选择“部件”，在弹出的窗口中的控件列表中 找到“Microsoft Comm Control”，将其选中，在点击“应用”、“关闭”，在控件工具栏中就会出现一个电 话的小图标。    C、用串口线将两台电脑连接起来。您可以使用Com1对Com1的对应连接，也可以使用Com1和Com2的交叉连接。 本程序使用的是Com1对Com1的连接。    D、输入以下代码： Private Sub Command1_Click() '...发送数据 MSComm1.OutBufferCount = 0 '...清空输出寄存器 MSComm1.Output = Text1.Text '...发送数据 End Sub Private Sub Command2_Click() '...退出 Unload Me End Sub Private Sub Form_Load() '...初始化 MSComm1.CommPort = 1 '...使用Com1口 MSComm1.Settings = "9600,n,8,1" '...设置通讯参数 MSComm1.PortOpen = True '...打开串口 End Sub Private Sub Mscomm1_Oncomm() '...通讯事件发生 Select Case MSComm1.CommEvent Case comEvReceive '...有接受事件发生 Text2.Text = MSComm1.Input '...接受显示数据 MSComm1.InBufferCount = 0 '...清空输入寄存器 End Select End Sub