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 ssByt（j）） 　　j