module1.bas

This is a test ModBus comm s pragam in "STB-311".

Attribute VB_Name = "Module1"
Public Const EM_GETSEL = &HB0
Public Const EM_SETSEL = &HB1
Public Const EM_GETRECT = &HB2
Public Const EM_SETRECT = &HB3
Public Const EM_SETRECTNP = &HB4
Public Const EM_SCROLL = &HB5
Public Const EM_LINESCROLL = &HB6
Public Const EM_SCROLLCARET = &HB7
Public Const EM_GETMODIFY = &HB8
Public Const EM_SETMODIFY = &HB9
Public Const EM_GETLINECOUNT = &HBA
Public Const EM_LINEINDEX = &HBB
Public Const EM_SETHANDLE = &HBC
Public Const EM_GETHANDLE = &HBD
Public Const EM_GETTHUMB = &HBE
Public Const EM_LINELENGTH = &HC1
Public Const EM_REPLACESEL = &HC2
Public Const EM_GETLINE = &HC4
Public Const EM_LIMITTEXT = &HC5
Public Const EM_CANUNDO = &HC6
Public Const EM_UNDO = &HC7
Public Const EM_FMTLINES = &HC8
Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_SETTABSTOPS = &HCB
Public Const EM_SETPASSWORDCHAR = &HCC
Public Const EM_EMPTYUNDOBUFFER = &HCD
Public Const EM_GETFIRSTVISIBLELINE = &HCE
Public Const EM_SETREADONLY = &HCF
Public Const EM_SETWORDBREAKPROC = &HD0
Public Const EM_GETWORDBREAKPROC = &HD1
Public Const EM_GETPASSWORDCHAR = &HD2
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public COLOR_NUM(1 To 20) As Long
Public Const TOKEN_ADJUST_PRIVILEGES = &H20
Public Const TOKEN_QUERY = &H8
Public Const SE_PRIVILEGE_ENABLED = &H2
Public Const ANYSIZE_ARRAY = 1
Public Const MaxConnect = 8
Public InUsed(1 To 8) As Boolean
Public Server_In_string(1 To 8) As String
Public Current_X As Integer
Public Current_Y As Integer
Public Read_Tu_Bool As Boolean
Type Unit_Prop
  Mingcheng As String * 10 '名称
  Leixing As Integer       '类型 1 PLC 2 温度巡检仪 3 威胜表
  Dizhi As Integer         '地址
  botelv As Integer        '波特率
  Jiaoyan  As String * 1   '校验
  ShuJuwei As Integer      '数据位
  Tingzhiwei  As Integer   '停止位
End Type


Type WdDuankou_shezhi
 Name As String * 20
 Duankou_hao As Integer
 botelv As String * 12
 KaiGuan As Boolean
End Type


Type Duankou_shezhi
 Duankou_hao As Integer
 botelv As String * 12
 KaiGuan As Boolean
End Type

Type SOE_BJ
  shi As Byte
  Fen As Byte
  miao As Byte
  haomiao As Byte
  Yaoxin As Byte
  Yaoxin_bianwei As Byte
  baojing As Integer
  Zhuang_tai_1 As Long
  Zhuang_tai_2 As Long
End Type

Type Unit_type
  Dy_XHao As Integer
  Dy_Name As String * 16
  Dy_Duankou As Integer
  Dy_gzlb As Boolean
  dy_addr As Integer
  Dy_type As Integer
End Type

Type Unit_name
  Xhao As Integer
  Name As String * 28
  Dz_Long As Integer
End Type

Type S_Dingzhi
 dz_name As String * 20
 Dz_Seg As Integer
 Dz_Datatype As Integer
 Dz_Page As Integer
 Dz_St As Integer
 Dz_Xishu As Single
End Type

Type S_CeLiang
 Cl_Name As String * 20
 CL_Type As Single
 CL_Danwei As String * 10
End Type

Type baojing
 Bj_Used(1 To 16) As Boolean
 Bj_Name(1 To 16) As String * 20
 Bj_sy(1 To 16) As Integer
End Type

Type Yaoxintype
 Yx_Xh(1 To 16) As Integer
 YX_NAME(1 To 16) As String * 14
 Yx_0(1 To 16) As String * 4
 Yx_1(1 To 16) As String * 4
 Yx_sy(1 To 16) As Integer
 Yx_Used(1 To 16) As Boolean
End Type

Type WenduXunjianYi
  Shuju(1 To 7) As Integer
  XS(1 To 7) As Integer
End Type

Type Ws_biao
   GongLv(1 To 20) As Long
   Uab As Long
   Ia As Long
   Ib As Long
   Ic As Long
End Type

Type Jf_diandu
  Diandu(1 To 4) As Single
End Type

Type Mc_Diandu
   Diandu(1 To 2) As Long
End Type

Type Save_SG_Name
  shi As Integer
  Fen As Integer
  miao As Integer
  haomiao As Integer
  address As Integer
  Yx_bj As Integer '遥信1,报警2
  wei As Integer
  zhuantai As Integer
End Type

Type Caozuotype
  shi As Integer
  Fen As Integer
  miao As Integer
  kg_name As String * 20
  caozuoren As String * 8
  Zhuangtai As Integer '状态 分0 合 1
End Type

Type LUID
    lowpart As Long
    highpart As Long
End Type

Type LUID_AND_ATTRIBUTES
    pLuid As LUID
    Attributes As Long
End Type

Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Type Chaoliu
 C_name As String * 18
 X_Z As Integer
 Y_Z As Integer
 Danyuan_Type As Integer ' 单元箱，PLC， 温度巡检仪，
 Danyuan_Xuhao As Integer
 ShuJu_Xuhao As Integer
 Visible As Boolean
 Rece  As String * 4
End Type

Type KaiGuan_Liang
 Danyuan_xh As Integer
 K_name As String * 14
 X_Z As Integer
 Y_Z As Integer
 Fen_address As Integer
 Fen_he_type As Integer
 Danyuan_Type As Integer ' 单元箱，PLC， 温度巡检仪，
 Danyuan_Add As Integer '合闸点
 Yaoxin_xh As Integer
 Tuxing_xh As Integer
 Visible As Boolean
 Kaiguan_shuchu As Integer
 Kaiguan_dizi As Integer '开关地址
 He_address As Integer   '分闸点
 Rece  As String * 2
End Type

Type PT_DioWritePortByte
    port  As Integer
    Mask  As Integer
    State As Integer
End Type

Type PT_DEVLIST
    dwDeviceNum  As Long
    szDeviceName(0 To 49) As Byte
    nNumOfSubdevices As Integer
End Type
Type PT_DioReadPortByte
    port As Integer
    Value As Long         ' USHORT far *value
End Type


Type Jxt
TuName As String * 30
TuName_2 As String * 10
TuFile As String * 20
TuFile_2 As String * 20
End Type


Type Save_BaoBiao_Type
  Chaoliu(1 To 32, 1 To 15) As Integer
End Type

Type Save_diandu_type
  Diandu(1 To 32, 1 To 6) As Long
End Type

Type czr
 Name As String * 10
 KouLing As String * 10
End Type

Type Baobiao_type
 S_Name As String * 20
 d_Name As String * 20
 address As Integer
 Tongdao As Integer
End Type

Type Diandu_Type
 S_Name As String * 20
 d_Name As String * 20
 address As Integer
 Tongdao As Integer
End Type

Type YaoCetype
 DanyuanXh As Integer
 address As Integer
 Td As Integer
 Xishu As Single
End Type

Type Yaoxin_Type
 DanyuanXh As Integer
 address As Integer
 Weihao As Integer
 shuxing As Integer
 End Type
Type Yfjd_kongzhi
  address As Integer
  wei As Integer
End Type
 
Type Tiaoya
 Dx As Integer
 Dy As Integer
 Name As String * 8
 kz As Integer
 bcd As Integer
 dangwei_danyuan(1 To 19) As Integer
 dangwei_zijie(1 To 19) As Integer
 Yaoce_danyuan As Integer
 Yaoce_tongdao As Integer
 Visible As Integer
 Yaoce_xishu As Single
End Type

Type Rs_232_YxType
 Name As String * 20
 used As Boolean
 Status As Integer
 Res As String * 8
End Type

Type RS_232_YcType
 Name As String * 20
 Danwei As String * 8
End Type


Type Gzlb_Type
 Gz_Address As Integer
 Gz_H As Integer
 Gz_M As Integer
 Gz_S As Integer
 gz_sj_q As Integer
 tz_sj_q As Integer
 tz_sj_h As Integer
 ch_sj_h As Integer
 js_tz_sj_q As Integer
 js_tz_sj_h As Integer


 Ia(1 To 216)  As Integer
 Ic(1 To 216) As Integer
 Ib(1 To 216) As Integer
 Uab(1 To 216) As Integer
 Ubc(1 To 216) As Integer
End Type
Public Unit_gzlb(1 To 100) As Gzlb_Type
Public Read_Unit_gzlb(1 To 100) As Gzlb_Type

Type clfx_type
 address As Integer
 Td As Integer
 Current_X As Integer
 Current_Y As Integer
 tu_Index As Integer
 Visible As Boolean
 Fx As Boolean
End Type
Public Clfx(1 To 128) As clfx_type

Type Ws_name
 Name As String * 16
 Xishu As Single
End Type

 
Type Ws_Data
 Zxyg(1 To 16) As Long
 Gxwg(1 To 16) As Long
 Rxwg(1 To 16) As Long
 Fxyg(1 To 16) As Long
End Type
Public Save_Ws_data As Ws_Data
Public Get_Ws_data(1 To 31) As Ws_Data

Type Ws_ss_Value
 Cl_Value(1 To 8) As Single
 Cl_Xishu(1 To 8) As Single
End Type
Public Weishen_value_Unit(0 To 128) As Ws_ss_Value

Public TY_Index As Integer
Public Ty_zz(1 To 5)  As Tiaoya
Public Yfjd As Yfjd_kongzhi
Public ty_dy_flag As Integer
Public YaoCe(0 To 64) As YaoCetype
Public Yaoxin(0 To 256) As Yaoxin_Type
Public Baobiao_tou(1 To 120) As Baobiao_type
Public Diandu_tou(1 To 120) As Diandu_Type
Public Czry(0 To 17) As czr

Public Huawei_yx(0 To 512) As Rs_232_YxType
Public Huawei_CL(0 To 512) As RS_232_YcType
Public Save_Baobiao As Save_BaoBiao_Type
Public Get_Baobiao(1 To 144) As Save_BaoBiao_Type
Public TxGzcs As Integer
Public Save_Now_Diandu As Save_diandu_type
Public Temp_Now_diandu As Save_diandu_type
Public Get_Now_Diandu(1 To 24) As Save_diandu_type
Public Play_Bool As Boolean


Public Jxt_BT As Jxt
Public lpDioWritePort As PT_DioWritePortByte
Public lpDioReadPort As PT_DioReadPortByte
Public devicelist(0 To 255) As PT_DEVLIST
Public DeviceHandle As Long
Public yt_dangwei(1 To 5) As Long
Public yt_dangwei_2(1 To 5) As Long

Public KC_ZT As Integer
Public Jifen_diandu(1 To 128) As Jf_diandu
Public Maichong_diandu(1 To 128) As Mc_Diandu
Public Danyuanshu As Integer
Public Disp_Chaoliu(1 To 120) As Chaoliu
Public Disp_KG(1 To 120) As KaiGuan_Liang
Public Weisheng_Biao(1 To 255) As Ws_biao

Public BjYanshi As Integer
Public Bjys As Integer
Public Page_1 As Integer
Public Shang(1 To 128) As Boolean
Public Shang_enab As Boolean
Public KG_Flag(1 To 128) As Integer
Public KG_Flag_2(1 To 128) As Integer
Public YC_1(0 To 256) As Single
Public YC_2(0 To 256) As Single
Public YC_3(0 To 256) As Single

Public WenDu_Unit(1 To 32) As WenduXunjianYi
Public Unit_bj(1 To 255) As baojing
Public Unit_Yx(1 To 255) As Yaoxintype
Public YX_byte(1 To 255) As Integer
Public YX_byte_2(1 To 255) As Integer
Public BJ_byte(1 To 255) As Integer
Public Temp_BJ_byte(1 To 255) As Integer
Public Temp_YX_byte(1 To 255) As Integer
Public Baojing_I(1 To 32) As Integer
Public KG_index As Integer
Public CeLiang(1 To 255, 1 To 100) As S_CeLiang
Public uFlags As Integer
Public Celiang_Num(1 To 255) As Integer
Public RS_485_DanyuanShu As Integer
Public RS_422_DanyuanShu As Integer
Public Last_SOE_S(1 To 255) As Integer
Public Krb_i(0 To 8) As Integer
Public Temp_Krb_i(0 To 8) As Integer

Public XC_Page As Integer
Public XC_Weizhi As Integer
Public XC_XS As Single
Public Dy_flag As Integer
Public Max_CL_shu As Integer
Public Max_KG_shu As Integer
Public Max_CLFX_shu As Integer
Public Index_1 As Integer

Public Dingzhi(0 To 255, 0 To 100) As S_Dingzhi
Public TuoTui_Dingzhi(0 To 255, 0 To 100) As S_Dingzhi

Public Danyuan_Leixing(0 To 40) As Unit_name
Public Danyuan(0 To 255) As Unit_type
Public Tongxinduankou(0 To 12) As Duankou_shezhi
Public WdTxDuankou(0 To 12) As WdDuankou_shezhi

Public In_str As String