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 '保存參數文件名