三相智能电表软件系统设计_课程设计说明书(编辑修改稿)

三相智能电表软件系统设计_课程设计说明书(编辑修改稿)内容摘要：

移动 100各单位的距离。 If = () Then = 5070 End If 这三句代码的作用是当 全部移动到图片框外时，它距离图片框左边的距离为 5070 个 单 位 ， 以 便控件能够在图片框中滚动显示。 = – 100 If = () Then = 5070 End If 这部分代码的作用与前一部分代码的功能类似， 代码的作用是为了让两个标签中的“欢迎进入西华大学电能管理 中心。 ”的字体循环显示。 实时数据显示界面的软件代码设计原理 图 实时数据显示界面中的 按钮和 按钮与需要设置代码，还有窗体的 form load 事件需要代码， 控件 西华大学课程设计说明书 第 13 页 需要代码， 该通讯控件需要代码。 （ 1） 按钮的名称为 ckcmd，代码 If = 打开串口 的作用是：如果 的 caption 属性是“打开串口”，代码 Then = True 的作用是打开相应的 RS232 串口，代码 = 关闭串口 的作 用是名称为 ckcmd 的按钮的 caption 属性变为“关闭串口”，代码 = amp。 HFFamp。 的作用是将 shape 控件的颜色变为红色，代码 = False 的作用是组合框不可用， 代码 = True 的作用是 按钮变为可用。 代码 Else = 打开串口 的作用是： 如果名称为 ckcmd 按钮的 caption 属性是“关闭串口”单击该命令按钮之后 ckcmd 的按钮 caption 属性变为“打开串口”，代码 = False 的作用是：单击命令按钮后，关闭相应的串口。 代码 = True 的作用是组合框 可用，可以选择相应的串口。 代码 = 0 = 0 的作 用 是 两个 图像 框 均变 为 黑色 ， 以显 示现 在 未从 串 口中 读取 数 据。 代 码 = 自动读取 的作用是 按钮的 caption 属性变为 “ 自动读取”代码 = False End If Exit Sub 的作用是按钮变为不可用，结束 If 语句和退出 Sub 过程。 代码 On Error GoTo BLAK 的作用是：如果出错就跳到名称为 BLAK 的子程序。 代码 BLAK: MsgBox 串口不存在或者被占用 !, vbOKOnly, 提示信息 的作用是如果出错就用 MsgBox 显示相应的提示信息。 如图 所示。 （ 2） 命令按钮的名称为 dqcmd，代码 If = 自动读取 的作用是如果 按钮的 caption 属性是“自动读取”，代码 Then = 暂停读取 的作用是单击该按钮后名称为 dqcmd 的命令按钮的caption 属性变为 “暂停读取”。 代码 = amp。 HFFamp。 的作用是 shape2的颜色变为红色，代码 = True 的作用是 timer1 不可用，代码 Else 西华大学课程设计说明书 第 14 页 图 登录界面 图 实时数据显示界面 (1) 西华大学课程设计说明书 第 15 页 图 错误提示界面 图 实时数据显示界面 (2) 化 SSTab1 控件的 高度、宽度等参数。 代码 = 9600,n,8,1 的作用是：设置初始化参数，设置 RS232 的波特率等，代码 = 0 的 作 用 是清 空 从 接收 缓 存器 中 读到 的 字符。 代 码 = 1000 = False 的作用是设置 Timer1 的 Interval 属性为 1s。 代码 = False 的 作 用 是 最 开始 按钮不可用。 代码 = C:\fyr\My = jkh 西华大学课程设计说明书 第 16 页 的作用是在 C 盘创建一个文件夹以便保存数据。 代码 = 60000 的作用是设置数据库采样周期为 6秒。 代码 = = = = = = = = = = = = = = = = 的作用是在 form load 事件中将这 16 个文本框清空。 代码 End Sub 的作用是结束 form load 这个事件过程。 （ 5） ， 该 组 合 框 按 钮 的 名 称 是 Combo1 ， 代 码 = + 1 的作用是：单击组合框打开相应的串口。 （ 6） 它为通讯控件，它能实现单片机与上位机之间的通讯。 代码 Dim m1 As Single 的作用是设置 m1是单精度类型的变量，代码 Select Case 的作用是控件 MSComm1 的CommEvent 事件，代码 Case EventRxOver Exit Sub 的作用是如果检测到EventRxOver 事件就退出 Sub 过程。 代码 Case EvReceive BytReceived = 的作用是 MSComm1 控件的 EvReceive 事件，将接受到的数据放到BytReceived（）变量中，代码 For i = 0 To UBound(BytReceived)的作用是 for 循环从 0 开始到 BytReceived 的上限，代码 If Len(Hex(BytReceived(i))) = 1 Then strData = strData amp。 0 amp。 Hex(BytReceived(i))的作用是将 BytReceived(i)转换为16 进制数，如果只有一位 数则在前面添 0，并将它赋给 strData 这个数组中，代码 Else strData = strData amp。 Hex(BytReceived(i))的作用是：否则，直接将 BytReceived(i)赋给变量 strData 中，代码 End If flag = strData 的作用是：结束 if语句，将 strData 赋给变量 flag，代码 If Len(flag) = 2 Then 的意思是：如果 flag 的长度是 2，代码If flag = F0 Or F1 Or F2 Or F3 Or F4 Or F5 Or F6 Or F7 Or F8 Then flag = Else strData = flag = End If End IF 的作用是设置F0,F1,F1,F3,F4,F5,F6,F7,F8 为标志位，如果检测到标志位则将 flag 清空，如果没有检测到标志位，则将 flag 和 ctrData 均清空。 代码 If Len(flag) = 10 Then flag = Mid(flag, 9, 2)的作用是如果 flag的长度是 10，则取 flag的后两位赋给新的变量 flag， 代码的 If flag = 0F Then flag = gl = AP ElseIf flag = 1F Then flag = gl = AQ ElseIf flag = 2F Then flag = gl = ASZ ElseIf flag = 3F Then flag = gl = BP ElseIf flag = 4F Then flag = gl = BQ ElseIf flag = 5F Then flag = gl = BSZ ElseIf flag = 6F Then flag = gl = CP ElseIf flag = 7F Then flag = gl = CQ ElseIf flag = 8F Then flag = gl = CSZ这部分代码的作用是根据需要将 A、 B、 C三相的有功，无功和视在电功放在相应的变量中。 代码 newdata = Mid(strData, 3, 6) strData 西华大学课程设计说明书 第 17 页 = End If 的作用是将 strData 的 3至 6 位赋值给变量 newdata 中。 代码 findata = Val(amp。 H amp。 newdata)的作用是将 newdata 转化为 16 进制数赋给 findata 中。 代码 Select Case gl Case AP = findata Case AQ = findata Case ASZ = findata Case BP = findata Case BQ = findata Case BSZ = findata Case CP = findata Case CQ = findata Case CSZ = findata End Select 的作用是把电功在对应的文本框中显示。 代码 = + + 的作用是在 text13 中显示总的有功，代码 = + + 的作用是在 text14 中显示总的无功，代码 = + + 的作用是在 text15 中显示总的视在电功。 代码 = / 的作用是在 text4 中显示 A相功率因素，代码 = / 的作用是在 text8 中显示 B相功率因素，代码 = / 的作用是在 text12 总显示 C相功率因素。 代码 = / 的作用是在 text16中显示总的功率因素，代码 Nexti End Select End Sub 的作用是结束 select 语句，结束 sub 过程。 以上便是整个实时数据界面的软件代码的设计的详细解释与说明，没有任何的语法错误。 历史数据显示界面的软件代码设计原理 历史数据显示界面如图 所示，其中 和 需要设计 代码。 西华大学课程设计说明书 第 18 页 图 历史数据显示界面 (1)其中 的代码 If = False Then 的作用是在数据库的末尾加入新记录。 代码 End If 的作用是加入新记录。 代码 (0) = Date 的作用是添加系统日期。 代码 (1) = Time 的作用是将系统时间写入数据库中。 代码 (2) = Val() 的作用是将总有功写入数据库中。 代码 (3) = Val() 的作用是将总无功写入数据库中。 代码(4) = Val()的作用是将总视在电功写入数据库中。 代码 (5) = Val() 的作用是将总功率因数写入数据库中。 代码 (6) = Val()的作用是将 A 有功写入数据库中，代码 (7) = Val() 的作用是将 A无功写入数据库中，代码 (8) = Val() 的作用是将B 相有功写入数据库中。 代码 (9) = Val() 的作用是将 B 相无功写入数据库中。 代码 (10) = Val()的作用是将 C相有功写入数据库中。 代码 (11) = Val() C相无功写入数据库中。 (2) 西华大学课程设计说明书 第 19 页 其中 的代码 form3历史数据查询窗体。 如图 所示。 图 对于图 的窗体需要对 和窗体的 form load 事件写代码。 （ 1）其中的代码 Set dbs = OpenDatabase(c:\fyr\My ) strSQL = PARAMETERS [DateFrom] DateTime, amp。 _ a。