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 '保存参数文件名