📄 ramsey.bas
字号:
End If
End Select
Ctext(4) = "选择 输入"
Case "- ALARM 2A -"
Ctext(1) = "- 报警卷动 2A -"
Ctext(2) = "低载荷设置点"
Ctext(3) = Mid(str, 51, 17) + "秒"
Select Case Mid(str, 78, 13)
Case "ESPERA UNIDS "
Ctext(4) = "输入 延时 单位"
Case "SET UNIDS "
Ctext(4) = "输入 设置 单位"
Case "ESPERA % "
Ctext(4) = "输入 延时 % "
Case "SET % "
Ctext(4) = "输入 设置 % "
End Select
Case "- ALARM 2B -"
Ctext(1) = "- 报警卷动 2B -"
Ctext(2) = "高载荷设置点"
Ctext(3) = Mid(str, 51, 17) + "秒"
Select Case Mid(str, 78, 13)
Case "ESPERA UNIDS "
Ctext(4) = "输入 延时 单位"
Case "SET UNIDS "
Ctext(4) = "输入 设置 单位"
Case "ESPERA % "
Ctext(4) = "输入 延时 % "
Case "SET % "
Ctext(4) = "输入 设置 % "
End Select
Case "- ALARM 3 -"
Ctext(1) = "- 报警卷动 3 -"
Ctext(2) = "速度报警"
Select Case Mid(str, 53, 2)
Case "no"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = " >否<"
Else
Ctext(3) = " 否"
End If
Case "si"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = " >是<"
Else
Ctext(3) = " 是"
End If
End Select
Ctext(4) = "选择 输入"
Case "- ALARM 3A -"
Ctext(1) = "- 报警卷动 3A -"
Ctext(2) = "低速报警设置点"
Ctext(3) = Mid(str, 51, 17) + "秒"
Select Case Mid(str, 78, 13)
Case "ESPERA UNIDS "
Ctext(4) = "输入 延时 单位"
Case "SET UNIDS "
Ctext(4) = "输入 设置 单位"
Case "ESPERA % "
Ctext(4) = "输入 延时 % "
Case "SET % "
Ctext(4) = "输入 设置 % "
End Select
Case "- ALARM 3B -"
Ctext(1) = "- 报警卷动 3B -"
Ctext(2) = "高速报警设置点"
Ctext(3) = Mid(str, 51, 17) + "秒"
Select Case Mid(str, 78, 13)
Case "ESPERA UNIDS "
Ctext(4) = "输入 延时 单位"
Case "SET UNIDS "
Ctext(4) = "输入 设置 单位"
Case "ESPERA % "
Ctext(4) = "输入 延时 % "
Case "SET % "
Ctext(4) = "输入 设置 % "
End Select
Case "- ALARMAS 5 -"
Ctext(1) = "- 报警卷动 5 -"
Ctext(2) = "- 报警定义 -"
Ctext(3) = "按NEXT键 或 "
Ctext(4) = "输入报警序号"
Case "NUMERO ALARMA 1 "
Ctext(1) = "报警序号 #.1 "
Ctext(2) = "时钟失灵 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 2 "
Ctext(1) = "报警序号 #.2 "
Ctext(2) = "称重传感器错误 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 3 "
Ctext(1) = "报警序号 #.3 "
Ctext(2) = "RAM错误 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 4 "
Ctext(1) = "报警序号 #.4 "
Ctext(2) = "ROM错误 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 10 "
Ctext(1) = "报警序号 #.10 "
Ctext(2) = "高速 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 11 "
Ctext(1) = "报警序号 #.11 "
Ctext(2) = "低速 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 12 "
Ctext(1) = "报警序号 #.12 "
Ctext(2) = "热启动 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 13 "
Ctext(1) = "报警序号 #.13 "
Ctext(2) = "冷启动 "
Select Case Mid(str, 61, 4)
Case "NADA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">无报警<"
Else
Ctext(3) = "设置 " + " 无报警 "
End If
Case "ALAR"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">报警<"
Else
Ctext(3) = "设置 " + " 报警 "
End If
Case "PARA"
If Mid(str, 60, 1) = ">" Then
Ctext(3) = "设置 " + ">关闭<"
Else
Ctext(3) = "设置 " + " 关闭 "
End If
End Select
Ctext(4) = "选择 输入 下一次"
Case "NUMERO ALARMA 14 "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -