?? public.bas
字號:
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 '保存參數文件名
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -