public.bas

vb串口编程电表读数 vb串口编程电表读数 vb串口编程电表读数 vb串口编程电表读数

Attribute VB_Name = "public"
Public B_COMPORT As Byte '抄表设置通讯口
Public send_count As Byte '发送命令的长度
Public MARK As Byte '发送到表的通讯开始（1）
Public SEND_MARK, end_s As Boolean
'前者为每条命令开始发送标记(TRUE)，后者为全部通讯命令发送结束标记（TRUE结束)
Public mtitle As String
Type Record   ' 定义用户自定义数据类型。
   comnumber As Byte  '为抄表设置通讯口
   BOUTRATE As Long
   dbcs As String * 6 '电表常数
   diselec(15) As Byte '显示选择
   detime1 As String * 2 '轮显时间
   detime2 As String * 2 '熄灭时间
   autoday(1) As String * 2 '自动抄表日,(0）时（1）日
   times  As String * 2 '时段数
   timetabel(35) As Byte '时段表,费率，分，时
   int_power(3) As String * 9 '电表清零初始值：总，小数，峰，小数，平，小数，谷，小数，
   bh As String * 12 '最后填入的表号：如果是："123456,ascii,0,2,aa"则为江苏表号，否则为通用表号
   jubh As String * 12 '局编号
   chbh As String * 12 '厂编号
   qlpass_old As String * 6
   bcpass_old As String * 6
   qlpass_new As String * 6
   bcpass_new As String * 6
   path As String '兼容程序路径
   Datapath As String '保存文件确省路径
   item(12) As Byte '设置选择项
End Type
Public mydata As Record
Public mypath As String
Public Myfile As String '保存参数文件名