📄 ramsey.bas
字号:
Ctext(4) = "返回"
Case "- FINAL -"
Ctext(1) = " "
Ctext(2) = "- 结束 -"
Ctext(3) = " "
Ctext(4) = "运行 菜单 "
Case Else
Ctext(1) = Mid(str, 11, 20)
Ctext(2) = Mid(str, 31, 20)
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = Mid(str, 71, 20)
End Select
Case "-DIAGNOSTICOS 5 -"
Ctext(1) = "- 诊断卷动 5 -"
Select Case Mid(str, 31, 20)
Case "Teclear clave "
Ctext(2) = "输入操作"
Ctext(3) = "口令 " + Mid(str, 60, 8)
Ctext(4) = "输入"
Case "Teclear clave de "
Ctext(2) = "重新输入操作"
Ctext(3) = "口令 " + Mid(str, 60, 8)
Ctext(4) = "输入"
End Select
Case "-DIAGNOSTICOS 6 -"
Ctext(1) = "- 诊断卷动 6 -"
Ctext(2) = "软件版本号"
Ctext(3) = "02.24.99.F1.RAMSEY"
Ctext(4) = " "
Case "-DIAGNOSTICOS 7 -"
Ctext(1) = "- 诊断卷动 7 -"
Ctext(2) = "日期: " + Mid(str, 38, 12)
Select Case Mid(str, 51, 3)
Case "DIA"
Ctext(3) = "日: " + Mid(str, 48, 2)
Case "MES"
Ctext(3) = "月: " + Mid(str, 45, 2)
Case "ANO"
Ctext(3) = "年: " + Mid(str, 40, 4)
End Select
Ctext(4) = "选择"
Case "-DIAGNOSTICOS 8 -"
Ctext(1) = "- 诊断卷动 8 -"
Ctext(2) = "时间: " + Mid(str, 40, 8)
Select Case Mid(str, 51, 4)
Case "HORA"
Ctext(3) = "小时: " + Mid(str, 60, 6)
Case "MINU"
Ctext(3) = "分钟: " + Mid(str, 60, 6)
End Select
Ctext(4) = "选择 AM/PM"
Case "-DIAGNOSTICOS 10 -"
Ctext(1) = "- 诊断卷动 10 -"
Ctext(2) = "扩展槽" + Mid(str, 47, 2) + "插板类型"
Select Case Mid(str, 51, 4)
Case "Comm"
Ctext(3) = "通信板 A"
End Select
Ctext(4) = " "
'以下翻译主菜单3内子菜单/* 测试 */
Case "- TEST 1 -"
Ctext(1) = "- 测试卷动 1 -"
Ctext(2) = "检测显示灯"
Ctext(3) = " "
Ctext(4) = "开始"
Case "- TEST 2 -"
Ctext(1) = "- 测试卷动 2 -"
Ctext(2) = "微处理机的内部检测"
Ctext(3) = " "
Ctext(4) = "开始"
Case "- TEST 2A -"
Ctext(1) = "- 测试卷动 2A -"
Ctext(2) = "测试ROM"
Ctext(3) = "通过测试"
Ctext(4) = " "
Case "- TEST 2B -"
Ctext(1) = "- 测试卷动 2B -"
Ctext(2) = "测试RAM"
Ctext(3) = "通过测试 "
Ctext(4) = " "
Case "- TEST 2C -"
Ctext(1) = "- 测试卷动 2C -"
Ctext(2) = "测试 E2PROM"
Ctext(3) = "通过测试 "
Ctext(4) = " "
Case "- TEST 3 -"
Ctext(1) = "- 测试卷动 3 -"
Ctext(2) = "数字输入测试"
Ctext(3) = "0#槽 " + Mid(str, 60, 8)
Ctext(4) = ""
Case "- TEST 4 -"
Ctext(1) = "- 测试卷动 4 -"
Ctext(2) = "检测数字输出"
If Mid(str, 63, 2) = "SI" Then
Ctext(3) = "1# 输出: " + "开"
Else
Ctext(3) = "1# 输出: " + "关"
End If
If Mid(str, 78, 4) = "BORR" Then
Ctext(4) = "输入 清除 开/关"
Else
Ctext(4) = "输入 开/关"
End If
Case " WARNING "
If Mid(str, 31, 20) = "EQUIPMENT MAY START " Then
Ctext(1) = " 注意 "
Ctext(2) = "设备可能会启动"
Ctext(3) = " "
Ctext(4) = "继续 中止"
'Else
' Ctext(1) = Mid(str, 11, 20)
' Ctext(2) = Mid(str, 31, 20)
' Ctext(3) = Mid(str, 51, 20)
' Ctext(4) = Mid(str, 71, 20)
End If
Case "- TEST 8 -"
Ctext(1) = "- 测试卷动 8 -"
Ctext(2) = "测试通信板 A"
Select Case Mid(str, 51, 8)
Case "TEST MAL"
Ctext(3) = "测试失败"
Case Else
Ctext(3) = ""
End Select
Ctext(4) = "端口1"
Case "- TEST 12 -"
Ctext(1) = "- 测试卷动 12 -"
Ctext(2) = "测试CPU连线"
Select Case Mid(str, 51, 8)
Case "TEST MAL"
Ctext(3) = "测试失败"
Case Else
Ctext(3) = ""
End Select
Ctext(4) = "开始"
Case "- TEST 13 -"
Select Case Mid(str, 31, 3)
Case "Set"
Ctext(1) = "- 测试卷动 13 -"
Ctext(2) = "设置调制解调器"
Select Case Mid(str, 51, 15)
Case "MODEM NOT FOUND"
Ctext(3) = "调制解调器没有安装"
Case Else
Ctext(3) = ""
End Select
Ctext(4) = "端口1"
Case "Tes"
Ctext(1) = "- 测试卷动 15 -"
Ctext(2) = "键盘测试"
Select Case Mid(str, 91, 1)
Case "x"
Ctext(3) = "键 " + "↑"
Case "v"
Ctext(3) = "键 " + "↓"
Case Else
Ctext(3) = "键 " + Mid(str, 61, 5)
End Select
Ctext(4) = " "
End Select
Case "- TEST 14 -"
Ctext(1) = "- 测试卷动 14 -"
Ctext(2) = "测试调制解调器"
Select Case Mid(str, 51, 8)
Case "TEST MAL"
Ctext(3) = "测试失败"
Case Else
Ctext(3) = ""
End Select
Ctext(4) = "端口1"
'以下翻译主菜单4内子菜单/* I/O定义 */
Case "- I/O DEFINICION 4 -"
Ctext(1) = "- I/O 定义卷动 4 -"
Ctext(2) = "数字输入定义"
Select Case Mid(str, 51, 9)
Case "Ext alarm"
Ctext(3) = "外部报警 " + Mid(str, 61, 10)
Case "Cinta mar"
Ctext(3) = "皮带运行 " + Mid(str, 66, 5)
Case "Borrar to"
Ctext(3) = "累计复位 " + Mid(str, 66, 5)
Case "Borrar al"
Ctext(3) = "报警复位 " + Mid(str, 66, 5)
Case "Auto cero"
Ctext(3) = "自动调零 " + Mid(str, 66, 5)
Case "Detect. g"
Ctext(3) = "夹子探测器 " + Mid(str, 66, 5)
End Select
Ctext(4) = "输入 常关/常开 下一个"
Case "- I/O DEFINICION 5 -"
Ctext(1) = "- I/O 定义卷动 5 -"
Ctext(2) = "数字输出定义"
Select Case Mid(str, 51, 5)
Case "Alarm"
Ctext(3) = "报警 " + Mid(str, 61, 10)
Case "Parad"
Ctext(3) = "关闭 " + Mid(str, 66, 5)
Case "Listo"
Ctext(3) = "预备 " + Mid(str, 66, 5)
Case "Total"
Ctext(3) = "累加 " + Mid(str, 66, 5)
Case "Peso "
Ctext(3) = "挂码加载 " + Mid(str, 66, 5)
End Select
Ctext(4) = "输入 常关/常开 下一个"
Case "- I/O DEFINICION 6 -"
Ctext(1) = "- I/O 定义卷动 6 -"
Ctext(2) = "远程计算器的分度数"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- I/O DEFINICION 7 -"
Ctext(1) = "- I/O 定义卷动 7 -"
Ctext(2) = "远程计算器的脉冲宽度"
Ctext(3) = Mid(str, 51, 7) + " 秒"
Ctext(4) = "输入"
'以下翻译主菜单4内子菜单 /* 报警定义 */
Case "- ALARM 1 -"
Ctext(1) = "- 报警卷动 1 -"
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 1A -"
Ctext(1) = "- 报警卷动 1A -"
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 1B -"
Ctext(1) = "- 报警卷动 1B -"
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 2 -"
Ctext(1) = "- 报警卷动 2 -"
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) = " 是"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -