PC机与多功能电表通信技术探究.docVIP

PC机与多功能电表通信技术探究 　　【摘 要】文章介绍了基于Visual Basic6.0的MSComm通信控件实现PC机与多功能电表之间利用RS-485通信接口进行串行通信的方法，并定时读取电表的计量数据。 【关键词】电表；PC机；MSComm控件；RS-485 使用PC机远程读取多功能电表数据的方式不但能够节省人力，还能实时查看用电设备的用电情况，极大地提高了工作效率，是目前楼宇电能管理的发展趋势。 1 硬件搭建 为了保证通信的顺利进行，必须先搭做好通信系统的硬件设备连接，系统的拓扑图如图1所示。本文采用的电表为浙江华邦DTS866型电子有功电能表，符合《多功能电能表通信规约》DL/T645-1997的要求。对于不自带RS-485接口的PC机，还需要在PC机和多功能电表之间安装RS-232（或USB）/RS-485转换器才能进行数据的通信。 2 软件搭建 PC机系统版本至少不低于Windows95或Windows NT3.51，并安装好了Visual Basic6 .0软件。 3 程序实现 目前通用的读取串口数据的方式有3种，第一种是利用MSComm控件，第二种是调用Win32 API函数，第三种是调用第三方函数库。由于本实例的工程结构简单，故采用MSComm控件来进行串口数据的读取。 3.1 MSComm控件引用 由于VB在默认情况下MSComm控件不会出现工具箱中，因此需要对其进行引用。 单击【工程】菜单，选中【部件】命令，在弹出的对话框中选中Microsoft Comm Control6.0复选框。此时MSComm控件 就出现在工具箱中了。 3.2 界面设置 在窗体内放入3个Label标签、2个Text文本框、1个Command按钮、2个Timer时钟控件、1个MSComm控件，如图2所示。 （1）Text1文本框：输入电表地址，当电表地址不足12位时，前面以0补足。本例中，华邦电表的通讯地址为“20111100415”，因此运行程序后应输入“020111100415”。 （2）Text2 文本框：显示读取到的电表数据。 （3）Command读取按钮：用于启动串口通信。 （4）Timer1时钟控件：用于读取输入的电表地址，并通过串口发送命令帧到电表。 （5）Timer2时钟控件：用于接收并处理接收到的串口数据。 （6）MSComm控件：提供标准通信命令的接口。 3.3 主要代码 本例中电表的（当前）正向有功总电能值为0.23度，依据《多功能电能表通信规约》DL/T645-1997，需要发送的数据为：68 15 04 10 11 01 02 68 01 02 43 c3 16 16，经过串口通信后接收到的数据为：FE FE 68 15 04 10 11 01 02 68 81 06 43 C3 56 33 33 33 89 16。具体代码如下： （1）参数初始化 Private Sub Form_Load（） MSComm1.CommPort = 3 ‘设置通信端口号为COM3 MSComm1.Settings = “1200，E，8，1” ‘设置MSComm参数 MSComm1.InputMode = comInputModeBinary ‘接收二进制数据类型 Timer1.Enabled = False Timer2.Enabled = False Timer1.Interval = 2000’每2秒发送一次数据 Timer2.Interval = 2000’每2秒接收一次数据 Text1.Text = ““ Text2.Text = ““ End Sub （2）启动通信 Private Sub Command1_Click（） Timer1.Enabled = True End Sub （3）发送命令帧 Private Sub Timer1_Timer（） Dim s， ss， stri As String Dim ssByt（1 To 14） As Byte Static i Dim k， j As Integer s = Text1.Text ‘传递电表地址 ss = Str$（s） k = Len（s） ‘获得电表地址长度 j = 2 For i = 11 To 1 Step -2 ‘每2位截取电表地址并转换为16进制 ssByt（j） = Mid$（ss， i， 2） ssByt（j） = Val（”H” s