MCGS脚本语言二进制处理详解：从基础到高级应用47

各位自动化领域的朋友们，大家好！我是您的中文知识博主。在工业控制领域，二进制数据处理扮演着至关重要的角色，无论是PLC的状态字、设备寄存器的配置，还是通信协议中的标志位，都离不开对二进制位的精准操作。今天，我们就来深入探讨MCGS（触摸屏组态软件）的脚本语言是如何表示和处理二进制数据的，从基础概念到实际应用，让您全面掌握这一关键技能。

MCGS作为一款广泛应用的HMI/SCADA软件，其脚本语言（通常是类VBScript语法）为用户提供了强大的自定义功能。然而，与Python、JavaScript等现代编程语言直接支持`0b1011`这样的二进制字面量不同，MCGS的脚本语言在表示二进制时有其独特的方式。理解这种方式，是高效编写自动化脚本的第一步。

MCGS脚本语言的数字基础：十进制与位表示

首先，我们需要明确一点：在MCGS脚本语言中，所有的数字（无论是从外部读取的还是内部计算的）都默认以十进制形式进行存储和处理。即使您看到一个“13”，在计算机底层，它存储的实际上是`00001101`这样的二进制序列。我们所说的“处理二进制”，实际上是对这些十进制数字的底层二进制位进行操作。

MCGS脚本语言支持整数类型（如`Long`）和浮点类型（如`Double`），在进行位操作时，我们通常使用的是整数类型，因为浮点数不适合进行位级别的精确处理。

二进制字符串与十进制的转换

虽然MCGS脚本不支持直接输入二进制字面量，但我们经常会遇到需要将二进制字符串（例如从某个通信协议中解析出的“101101”）转换为十进制数字，或者将一个十进制数字转换为二进制字符串进行显示或传输的需求。这时，我们就需要编写自定义的转换函数。

1. 二进制字符串转十进制数 (BinToDec)

这个函数的工作原理是遍历二进制字符串的每一位，根据其位置（权重2的幂次）进行累加。

Function BinToDec(sBin As String) As Long
Dim i As Integer
Dim lDec As Long
Dim sBit As String
lDec = 0 ' 初始化十进制数为0
' 从字符串右侧（最低位）开始处理，或者从左侧（最高位）处理但指数递减
' 这里采用从左侧（最高位）开始，指数递减的方式
For i = 1 To Len(sBin)
sBit = Mid(sBin, i, 1) ' 获取当前位
If sBit = "1" Then
' 如果当前位是'1'，则加上对应的2的幂次
' 2 ^ (Len(sBin) - i) 表示从右往左数，当前位是第几位（0开始）的权重
lDec = lDec + (2 ^ (Len(sBin) - i))
ElseIf sBit <> "0" Then
' 处理非法字符，可以返回错误或提示
' MsgBox "二进制字符串包含非法字符！", vbExclamation
BinToDec = -1 ' 示例：返回-1表示错误
Exit Function
End If
Next
BinToDec = lDec
End Function
' 示例用法：
' Dim myDecValue As Long
' myDecValue = BinToDec("1101") ' 结果为 13
' MsgBox "二进制1101对应的十进制是：" & myDecValue

2. 十进制数转二进制字符串 (DecToBin)

这个函数通过经典的“除2取余法”来实现，不断将十进制数除以2，将余数逆序排列即可得到二进制字符串。为了方便，我们通常会提供一个参数来指定输出的位数，不足时补零。

Function DecToBin(lDec As Long, Optional iBits As Integer = 16) As String
Dim sBin As String
Dim lTemp As Long
sBin = "" ' 初始化二进制字符串
lTemp = lDec
If lTemp = 0 Then
' 如果十进制数为0，直接返回指定位数的0
DecToBin = String(iBits, "0")
Exit Function
End If
' 使用 Do While 循环进行除2取余操作
Do While lTemp > 0
sBin = (lTemp Mod 2) & sBin ' 将余数加到字符串前面
lTemp = lTemp \ 2 ' 整数除法
Loop
' 补足前导零，达到指定的位数
If Len(sBin) < iBits Then
sBin = String(iBits - Len(sBin), "0") & sBin
End If
DecToBin = sBin
End Function
' 示例用法：
' Dim myBinString As String
' myBinString = DecToBin(13, 8) ' 结果为 "00001101"
' MsgBox "十进制13对应的8位二进制是：" & myBinString
' myBinString = DecToBin(255) ' 默认16位，结果为 "0000000011111111"

核心：MCGS的位操作符

理解了转换，接下来就是如何直接操作数字内部的二进制位。MCGS脚本语言提供了一系列位操作符，它们直接作用于数字的二进制表示，实现高效的位级别控制。

1. 按位与 (And)

`And`操作符对两个数字的对应二进制位进行“与”运算。只有当两个位都为1时，结果位才为1。常用于“位清零”和“位检测”。

' 示例：检测一个状态字中的某个报警位是否置位
Const ALARM_BIT_MASK As Long = 1 ' 二进制 00000001 (位0)
Dim nStatusWord As Long ' 假设从PLC读取到的状态字
nStatusWord = 5 ' 假设状态字为5 (二进制 00000101)
If (nStatusWord And ALARM_BIT_MASK) <> 0 Then
' 说明位0是1，报警存在
MsgBox "报警位0置位！"
End If
' 示例：清零某个位（通过与上该位为0的掩码）
' 如果要清零位2 (00000100)，掩码就是除了位2是0，其他都是1 (11111011)
Const CLEAR_BIT2_MASK As Long = &HFFFB ' 16位 &HFFFB = 1111111111111011
' 或者更直观的：Not (2^2)
nStatusWord = nStatusWord And CLEAR_BIT2_MASK ' 清零位2
' MsgBox "清零位2后：" & nStatusWord ' 5 (0101) & 65531 (11111011) = 1 (0001)

2. 按位或 (Or)

`Or`操作符对两个数字的对应二进制位进行“或”运算。只要两个位中有一个为1，结果位就为1。常用于“位设置”或“位合并”。

' 示例：设置某个控制位（将位2置1）
Const START_MOTOR_BIT As Long = 4 ' 二进制 00000100 (位2)
Dim nControlWord As Long ' 假设要写入PLC的控制字
nControlWord = 1 ' 初始控制字为1 (00000001)
nControlWord = nControlWord Or START_MOTOR_BIT ' 将位2置1
' MsgBox "设置启动电机位后：" & nControlWord ' 结果为 5 (00000101)

3. 按位异或 (Xor)

`Xor`操作符对两个数字的对应二进制位进行“异或”运算。当两个位不同时，结果位为1；相同时，结果位为0。常用于“位反转”或“加密校验”。

' 示例：反转某个标志位（例如一个指示灯的状态）
Const TOGGLE_LIGHT_BIT As Long = 2 ' 二进制 00000010 (位1)
Dim nLightStatus As Long ' 假设指示灯状态字
nLightStatus = 0 ' 初始为0 (灯灭)
nLightStatus = nLightStatus Xor TOGGLE_LIGHT_BIT ' 第一次异或，变为2 (灯亮)
' MsgBox "第一次反转：" & nLightStatus
nLightStatus = nLightStatus Xor TOGGLE_LIGHT_BIT ' 第二次异或，变回0 (灯灭)
' MsgBox "第二次反转：" & nLightStatus

4. 按位非 (Not)

`Not`操作符对一个数字的每一个二进制位进行取反（0变1，1变0）。需要注意的是，在MCGS等基于VBScript的语言中，`Not`操作会涉及到数字的补码表示，结果可能会与预期有所不同，特别是对于负数。通常，我们更倾向于通过`And`和`Or`的组合来达到特定位的反转效果，或者使用特定的掩码。

' 示例：假设我们想得到一个用于清零位0的掩码
' 直接使用 Not 1 (二进制 00000001) 会得到一个非常大的负数（取决于位数）
' 而不是我们想要的 FFFFFFFE。
' 更安全的做法是：
Const CLEAR_BIT0_MASK As Long = &HFFFFFFFE ' 如果是32位整型
' 或者：
Const BIT0 As Long = 1
Const MASK_TO_CLEAR_BIT0 As Long = Not BIT0 And &HFFFFFFFF ' 仅在32位整数范围内有效

5. 位左移 (SHL) 与 位右移 (SHR)

MCGS脚本语言提供了`SHL`（Shift Left）和`SHR`（Shift Right）操作符，用于将数字的二进制位向左或向右移动指定的位数。

`SHL` (Left Shift)：将数字的二进制位向左移动。左移N位相当于乘以2的N次方。

Dim nValue As Long
nValue = 1 ' 二进制 00000001
nValue = nValue SHL 3 ' 左移3位，结果为 8 (00001000)
' MsgBox "左移3位后：" & nValue


`SHR` (Right Shift)：将数字的二进制位向右移动。右移N位相当于除以2的N次方（取整数部分）。

Dim nValue As Long
nValue = 8 ' 二进制 00001000
nValue = nValue SHR 3 ' 右移3位，结果为 1 (00000001)
' MsgBox "右移3位后：" & nValue

MCGS中二进制应用的典型场景

1. PLC状态字或报警字监控

在工业控制中，PLC常将多个状态或报警信息打包到一个16位或32位字中。MCGS脚本通过位操作可以轻松解析这些信息。

' 假设有一个标签 Tag_PLC_StatusWord 绑定了PLC的状态字
Const ALARM_OVERTEMP As Long = 2^0 ' 位0：超温报警
Const STATUS_RUNNING As Long = 2^1 ' 位1：设备运行中
Const FAULT_EMERGENCY As Long = 2^7 ' 位7：紧急停止故障
Dim nPLCStatus As Long
nPLCStatus = ReadDevice("Tag_PLC_StatusWord") ' 读取PLC状态字
If (nPLCStatus And ALARM_OVERTEMP) <> 0 Then
' 显示报警信息或触发报警画面
ShowAlarm("设备超温，请立即检查！")
End If
If (nPLCStatus And STATUS_RUNNING) <> 0 Then
' 更新界面上的运行指示灯为绿色
SetShapeProperty("lbl_RunningLight", "BackColor", RGB(0, 255, 0))
Else
' 更新界面上的运行指示灯为灰色
SetShapeProperty("lbl_RunningLight", "BackColor", RGB(192, 192, 192))
End If

2. 控制位设置与清除

通过位操作可以精确地控制PLC或设备的单个位，而不会影响到同一字中的其他位。

' 假设有一个标签 Tag_PLC_ControlWord 用于向PLC写入控制命令
Const CMD_START_PUMP As Long = 2^2 ' 位2：启动泵
Const CMD_RESET_FAULT As Long = 2^5 ' 位5：故障复位
Dim nControlWord As Long
nControlWord = ReadDevice("Tag_PLC_ControlWord") ' 先读取当前控制字，避免影响其他位
' 启动泵：将CMD_START_PUMP对应的位设置为1
nControlWord = nControlWord Or CMD_START_PUMP
WriteDevice "Tag_PLC_ControlWord", nControlWord
' 故障复位：短暂置位后清零
' 方式一：直接赋值，如果该位是瞬时触发，PLC会捕获
' nControlWord = nControlWord Or CMD_RESET_FAULT
' WriteDevice "Tag_PLC_ControlWord", nControlWord
' Call Sleep(100) ' 等待100ms
' nControlWord = nControlWord And (Not CMD_RESET_FAULT) ' 清零该位
' WriteDevice "Tag_PLC_ControlWord", nControlWord
' 方式二：更推荐PLC侧处理瞬时脉冲

3. 数据打包与解包（例如字节顺序处理）

在处理Modbus RTU、ASCII或其他串行通信协议时，经常需要将两个8位字节组合成一个16位字，或者将一个16位字拆分成两个8位字节。

' 示例：将高字节和低字节合并成一个16位字
Dim nHighByte As Integer ' 假设值为 0x12 (18)
Dim nLowByte As Integer ' 假设值为 0x34 (52)
Dim nWordValue As Long
nHighByte = 18 ' 二进制 00010010
nLowByte = 52 ' 二进制 00110100
' 高字节左移8位，然后与低字节进行或运算
nWordValue = (nHighByte SHL 8) Or nLowByte
' MsgBox "合并后的16位字：" & nWordValue ' 结果 4660 (00010010 00110100)
' 示例：将一个16位字拆分成高字节和低字节
Dim nReceivedWord As Long ' 假设接收到的16位字为 4660
Dim nExtractedHighByte As Integer
Dim nExtractedLowByte As Integer
nReceivedWord = 4660
' 提取高字节：右移8位
nExtractedHighByte = nReceivedWord SHR 8
' MsgBox "提取的高字节：" & nExtractedHighByte ' 结果 18
' 提取低字节：与0xFF (000011111111) 进行与运算
nExtractedLowByte = nReceivedWord And &HFF
' MsgBox "提取的低字节：" & nExtractedLowByte ' 结果 52

使用MCGS脚本处理二进制的技巧与最佳实践
使用常量定义位掩码：不要在代码中直接使用魔法数字（如`1`, `2`, `4`等），而是定义具名常量，例如`Const BIT_PUMP_RUN = 2^0`，这样代码更易读、易维护。
清晰的注释：位操作的代码往往比较抽象，务必添加清晰的注释解释每一行位操作的目的。
模块化函数：将常用的二进制转换或特定位组操作封装成函数，提高代码复用性。
测试与验证：在实际部署前，务必对涉及二进制操作的脚本进行充分的测试，确保逻辑正确。可以使用`MsgBox`或日志输出中间结果进行调试。
注意数据类型：确保参与位操作的变量是整数类型（`Long`或`Integer`），避免浮点数带来的问题。

掌握MCGS脚本语言中二进制的表示与操作，是每一个自动化工程师在进行HMI/SCADA开发时不可或缺的技能。尽管MCGS没有直接的二进制字面量，但通过自定义转换函数和强大的位操作符（`And`, `Or`, `Xor`, `Not`, `SHL`, `SHR`），我们依然能够灵活高效地处理底层数据，实现复杂的控制逻辑和数据解析。希望通过今天的分享，您能对MCGS中的二进制处理有一个全面而深入的理解，并能将其灵活运用于您的自动化项目中！

感谢您的阅读，如果您有任何疑问或想了解更多MCGS相关的知识，欢迎在评论区留言交流！

2025-11-21

下一篇：让Python在浏览器里跑起来：从梦想照进现实的前沿技术解析