frmsr31.frm

加上一个GSM模块

    If cmbSon.Text = "参考电压校正系数" Then
        txtINFO.Text = "A1" + InputBox("请输4位十六进制参考电压校正系数，字母大写", "参考电压校正系数")
    End If
    If cmbSon.Text = "逆变电压监测校正系数" Then
        txtINFO.Text = "A2" + InputBox("请输4位十六进制逆变电压监测校正系数，字母大写", "逆变电压监测校正系数")
    End If
    If cmbSon.Text = "旁路电压监测校正系数" Then
        txtINFO.Text = "A3" + InputBox("请输4位十六进制旁路电压监测校正系数，字母大写", "旁路电压监测校正系数")
    End If
    If cmbSon.Text = "负载电流监测校正系数" Then
        txtINFO.Text = "A4" + InputBox("请输4位十六进制负载电流监测校正系数，字母大写", "负载电流监测校正系数")
    End If
    
End Sub

Private Sub cmbSR2_Change()
    Dim i As Integer
    If cmbSR2.Text = "获取模拟量量化数据（浮点数）" Then
        txtCID2.Text = "41"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取模拟量量化数据（定点数）" Then
        txtCID2.Text = "42"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取开关量输入状态" Then
        txtCID2.Text = "43"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取告警状态" Then
        txtCID2.Text = "44"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    
    If cmbSR2.Text = "遥控" Then
        txtCID2.Text = "45"
        txtINFO.Text = ""
        txtLEN.Text = "0000"
        cmbSon.Clear
        
        cmbSon.AddItem "切旁路（切到旁路）"
        cmbSon.AddItem "切旁路（切离旁路）"
        cmbSon.AddItem "报警消音"
        cmbSon.AddItem "报警声测试"
        cmbSon.AddItem "电池自检"
        cmbSon.AddItem "取消遥控关机"
        cmbSon.AddItem "取消电池自检"
        cmbSon.AddItem "遥控开机"
        cmbSon.AddItem "遥控立即关机（不关旁路）"
        cmbSon.AddItem "遥控延迟关机（不关旁路）"
        cmbSon.AddItem "遥控紧急关机（关旁路，保留）"
        txtLEN.Text = "C004"
    End If
    If cmbSR2.Text = "获取系统参数（浮点数）" Then
        txtCID2.Text = "46"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取系统参数（定点数）" Then
        txtCID2.Text = "47"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "设定系统参数（浮点数）" Then
        txtCID2.Text = "48"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        
        cmbSon.AddItem "设置蓄电池总电压上限"
        cmbSon.AddItem "设置蓄电池总电压下限"
        cmbSon.AddItem "设置蓄电池单体电压上限"
        cmbSon.AddItem "设置蓄电池单体电压下限"
        cmbSon.AddItem "电池自检时间长度"
        cmbSon.AddItem "遥控关机延迟时间"
        cmbSon.AddItem "UPS恢复延迟时间"
        cmbSon.AddItem "是否自动重启机"
        cmbSon.AddItem "是否允许均匀设置"
        cmbSon.AddItem "主/从/单机设置"
        cmbSon.AddItem "主从机交替工作时间"
        cmbSon.AddItem "UPS工作模式设置"
        cmbSon.AddItem "UPS告警继电器设置"
        txtLEN.Text = "600A"
    End If
    If cmbSR2.Text = "设定系统参数（定点数）" Then
        txtCID2.Text = "49"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取系统历史数据（浮点数）" Then
        txtCID2.Text = "4A"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取系统历史数据（定点数）" Then
        txtCID2.Text = "4B"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取历史告警" Then
        txtCID2.Text = "4C"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        
        cmbSon.AddItem "获取第一条历史告警命令"
        cmbSon.AddItem "收到历史告警正确，要求上送下一条"
        cmbSon.AddItem "接收历史告警错误，重发上一条"
        txtLEN.Text = "E002"
    End If
    If cmbSR2.Text = "获取监控模块时间" Then
        txtCID2.Text = "4D"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "设定监控模块时间" Then
        txtCID2.Text = "4E"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取通信协议版本号" Then
        txtCID2.Text = "4F"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取设备地址" Then
        txtCID2.Text = "50"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取设备（监控模块）厂家信息" Then
        txtCID2.Text = "51"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取DSP某内存单元数据" Then
        txtCID2.Text = "E0"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "调节UPS输出电压范围" Then
        txtCID2.Text = "E1"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    
End Sub

Private Sub cmbSR2_Click()
Dim i As Integer
    If cmbSR2.Text = "获取模拟量量化数据（浮点数）" Then
        txtCID2.Text = "41"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取模拟量量化数据（定点数）" Then
        txtCID2.Text = "42"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取开关量输入状态" Then
        txtCID2.Text = "43"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取告警状态" Then
        txtCID2.Text = "44"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    
    If cmbSR2.Text = "遥控" Then
        txtCID2.Text = "45"
        txtINFO.Text = ""
        txtLEN.Text = "0000"
        cmbSon.Clear
        
        cmbSon.AddItem "切旁路（切到旁路）"
        cmbSon.AddItem "切旁路（切离旁路）"
        cmbSon.AddItem "报警消音"
        cmbSon.AddItem "报警声测试"
        cmbSon.AddItem "电池自检"
        cmbSon.AddItem "取消遥控关机"
        cmbSon.AddItem "取消电池自检"
        cmbSon.AddItem "遥控开机"
        cmbSon.AddItem "遥控立即关机（不关旁路）"
        cmbSon.AddItem "遥控延迟关机（不关旁路）"
        cmbSon.AddItem "遥控紧急关机（关旁路，保留）"
        txtLEN.Text = "C004"
    End If
    If cmbSR2.Text = "获取系统参数（浮点数）" Then
        txtCID2.Text = "46"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取系统参数（定点数）" Then
        txtCID2.Text = "47"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "设定系统参数（浮点数）" Then
        txtCID2.Text = "48"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        
        cmbSon.AddItem "设置蓄电池总电压上限"
        cmbSon.AddItem "设置蓄电池总电压下限"
        cmbSon.AddItem "设置蓄电池单体电压上限"
        cmbSon.AddItem "设置蓄电池单体电压下限"
        cmbSon.AddItem "电池自检时间长度"
        cmbSon.AddItem "遥控关机延迟时间"
        cmbSon.AddItem "UPS恢复延迟时间"
        cmbSon.AddItem "是否自动重启机"
        cmbSon.AddItem "是否允许均匀设置"
        cmbSon.AddItem "主/从/单机设置"
        cmbSon.AddItem "主从机交替工作时间"
        txtLEN.Text = "600A"
    End If
    If cmbSR2.Text = "设定系统参数（定点数）" Then
        txtCID2.Text = "49"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取系统历史数据（浮点数）" Then
        txtCID2.Text = "4A"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取系统历史数据（定点数）" Then
        txtCID2.Text = "4B"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取历史告警" Then
        txtCID2.Text = "4C"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        
        cmbSon.AddItem "获取第一条历史告警命令"
        cmbSon.AddItem "收到历史告警正确，要求上送下一条"
        cmbSon.AddItem "接收历史告警错误，重发上一条"
        txtLEN.Text = "E002"
    End If
    If cmbSR2.Text = "获取监控模块时间" Then
        txtCID2.Text = "4D"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "设定监控模块时间" Then
        txtCID2.Text = "4E"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取通信协议版本号" Then
        txtCID2.Text = "4F"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取设备地址" Then
        txtCID2.Text = "50"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取设备（监控模块）厂家信息" Then
        txtCID2.Text = "51"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取DSP某内存单元数据" Then
        txtCID2.Text = "E0"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        
        txtINFO.Text = InputBox("请输入4位数内存单元地址，字母大写", "内存地址输入")
    End If
    If cmbSR2.Text = "调节UPS输出电压范围" Then
        txtCID2.Text = "E1"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        
        txtINFO.Text = InputBox("请输入4位逆变输出电压，字母大写", "调节UPS逆变输出电压")
    End If
    If cmbSR2.Text = "设置调试级校正系数" Then
        txtCID2.Text = "E4"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
        cmbSon.AddItem "参考电压校正系数"
        cmbSon.AddItem "逆变电压监测校正系数"
        cmbSon.AddItem "旁路电压监测校正系数"
        cmbSon.AddItem "负载电流监测校正系数"
        txtLEN.Text = "A006"
        
    End If
    
End Sub

Private Sub cmdAdd_Click()
    If ltClient.ListIndex <> -1 Then