⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmsr33.frm

📁 加上一个GSM模块
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
        txtINFO.Text = "04"
    End If
End Sub

Private Sub cmbSR2_Change()
    Dim i As Integer
    If cmbSR2.Text = "获取模拟量量化数据（浮点数）" Then
        txtCID2.Text = "41"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据1（浮点数）" Then
        txtCID2.Text = "C0"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据2（浮点数）" Then
        txtCID2.Text = "C1"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据3（浮点数）" Then
        txtCID2.Text = "C2"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据4（浮点数）" Then
        txtCID2.Text = "C3"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据5（浮点数）" Then
        txtCID2.Text = "C4"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取开关量输入状态" Then
        txtCID2.Text = "43"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
        
    End If
    If cmbSR2.Text = "获取告警状态（电总标准告警量）" Then
        txtCID2.Text = "44"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
        
    End If
    If cmbSR2.Text = "获取告警量扩展数据1（厂家扩展告警1）" Then
        txtCID2.Text = "C7"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
        
    End If
    If cmbSR2.Text = "获取告警量扩展数据2（厂家扩展告警2）" Then
        txtCID2.Text = "C8"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    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 = "获取UPS并机基本信息" Then
        txtCID2.Text = "E0"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取UPS并机实时信息" Then
        txtCID2.Text = "E9"
        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 = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据1（浮点数）" Then
        txtCID2.Text = "C0"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据2（浮点数）" Then
        txtCID2.Text = "C1"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据3（浮点数）" Then
        txtCID2.Text = "C2"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据4（浮点数）" Then
        txtCID2.Text = "C3"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取模拟量量化数据5（浮点数）" Then
        txtCID2.Text = "C4"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    End If
    If cmbSR2.Text = "获取开关量输入状态" Then
        txtCID2.Text = "43"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
        
    End If
    If cmbSR2.Text = "获取告警状态（电总标准告警量）" Then
        txtCID2.Text = "44"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
        
    End If
    If cmbSR2.Text = "获取告警量扩展数据1（厂家扩展告警1）" Then
        txtCID2.Text = "C7"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
        
    End If
    If cmbSR2.Text = "获取告警量扩展数据2（厂家扩展告警2）" Then
        txtCID2.Text = "C8"
        txtLEN.Text = "E002"
        txtINFO.Text = ""
        cmbSon.Clear
        cmbSon.AddItem "单机系统"
        cmbSon.AddItem "获取第一台遥测数据" '1
        cmbSon.AddItem "获取第二台遥测数据" '2
        cmbSon.AddItem "获取第三台遥测数据" '3
        cmbSon.AddItem "获取第四台遥测数据" '4
    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 = "获取UPS并机基本信息" Then
        txtCID2.Text = "E0"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    If cmbSR2.Text = "获取UPS并机实时信息" Then
        txtCID2.Text = "E9"
        txtLEN.Text = "0000"
        txtINFO.Text = ""
        
        cmbSon.Clear
    End If
    
End Sub

Private Sub cmdAdd_Click()
    If ltClient.ListIndex <> -1 Then
        Call Get_Sim(ltClient.List(ltClient.ListIndex))
        ltQun.AddItem sim_NUM
    Else
        MsgBox "请选择客户", vbOKOnly, "通知"
    End If
End Sub

Private Sub cmdCHK_Click()
Dim chksum As Long
Dim Length As Integer
Dim i As Integer
txtCHK.Text = ""
    If cmbSR2.Text <> "" And (cmbSR1.Text <> "" Or ltQun.ListCount <> 0) Then
        chksum = 0
        chksum = Asc(Left(txtVER.Text, 1)) + Asc(Right(txtVER.Text, 1))
        chksum = chksum + Asc(Left(cmbADR.Text, 1)) + Asc(Right(cmbADR.Text, 1))
        chksum = chksum + Asc(Left(txtCID1.Text, 1)) + Asc(Right(txtCID1.Text, 1))
        chksum = chksum + Asc(Left(txtCID2.Text, 1)) + Asc(Right(txtCID2.Text, 1))
        chksum = chksum + Asc(Mid(txtLEN.Text, 1, 1)) + Asc(Mid(txtLEN.Text, 2, 1)) + Asc(Mid(txtLEN.Text, 3, 1)) + Asc(Mid(txtLEN.Text, 4, 1))
        If txtINFO.Text <> "" Then
            Length = Len(txtINFO.Text)
            For i = 1 To Length Step 1
                chksum = chksum + Asc(Mid(txtINFO.Text, i, 1))
            Next i
        End If
        chksum = chksum Mod 65536
        chksum = Not chksum
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -