📄 ramsey.bas
字号:
Ctext(4) = "输入"
Case "- DATOS BASCULA 8D -"
Ctext(1) = "- 秤的数据卷动 8D -"
Ctext(2) = "称重传感器#4阻值"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 8E -"
Ctext(1) = "- 秤的数据卷动 8E -"
Ctext(2) = "称重传感器#5阻值"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 8F -"
Ctext(1) = "- 秤的数据卷动 8F -"
Ctext(2) = "称重传感器#6阻值"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 9 -"
Ctext(1) = "- 秤的数据卷动 9 -"
Ctext(2) = "速度输入"
Select Case Mid(str, 53, 3)
Case "sim"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = ">" + "模拟" + "<"
Else
Ctext(3) = "模拟"
End If
Case "uno"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = ">" + "单一" + "<"
Else
Ctext(3) = "单一"
End If
End Select
Ctext(4) = "选择 输入"
Case "- DATOS BASCULA 10 -"
Ctext(1) = "- 秤的数据卷动 10 -"
Ctext(2) = "零点死区"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 11 -"
Ctext(1) = "- 秤的数据卷动 11 -"
Ctext(2) = "称重＆测量 模式"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "选择 输入"
Case "- DATOS BASCULA 12 -"
Ctext(1) = "- 秤的数据卷动 12 -"
Ctext(2) = "打印机截止范围"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS CALIB 1 -"
Ctext(1) = "- 校准数据卷动 1 -"
Ctext(2) = "校准模式:"
Select Case Mid(str, 53, 5)
Case "Caden"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = ">" + "链码校准" + "<"
Else
Ctext(3) = " " + "链码校准"
End If
Case "Pesos"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = ">" + "挂码校准" + "<"
Else
Ctext(3) = " " + "挂码校准"
End If
Case "R-Cal"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = ">" + "电子校准" + "<"
Else
Ctext(3) = " " + "电子校准"
End If
End Select
Ctext(4) = "选择 输入"
Case "- DATOS CALIB 2 -"
Ctext(1) = "- 校准数据卷动 2 -"
Ctext(2) = "选择电子校准"
Ctext(3) = "阻值: " + Mid(str, 54, 15)
Ctext(4) = "输入"
Case "- DATOS CALIB 3 -"
Ctext(1) = "- 校准数据卷动 3 -"
Ctext(2) = "电子校准常数"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "菜单 运行"
Case "- DATOS CALIB 4 -"
Ctext(1) = "- 校准数据卷动 4 -"
Ctext(2) = "选择链码校准"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS CALIB 5 -"
Ctext(1) = "- 校准数据卷动 5 -"
Ctext(2) = "链码校准常数"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "菜单 运行"
Case "- DATOS CALIB 6 -"
Ctext(1) = "- 校准数据卷动 6 -"
Ctext(2) = "选择挂码校准"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS CALIB 7 -"
Ctext(1) = "- 校准数据卷动 7 -"
Ctext(2) = "挂码校准常数"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "菜单 运行"
Case "- DATOS CALIB 8 -"
Ctext(1) = "- 校准数据卷动 8 -"
Ctext(2) = "校准时间间隔"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS CALIB 9 -"
Ctext(1) = "- 校准数据卷动 9 -"
Ctext(2) = "校准日期"
Ctext(3) = "上次:" + Mid(str, 57, 13)
Ctext(4) = "下次:" + Mid(str, 57, 13)
Case "- DATOS CALIB 10 -"
Ctext(1) = "- 校准数据卷动 10 -"
Ctext(2) = "物料系数"
Select Case Mid(str, 51, 4)
Case "R-CA"
Ctext(3) = Mid(str, 58, 12) + "电子校准"
Case "CADE"
Ctext(3) = Mid(str, 58, 12) + "链码校准"
Case "PESO"
Ctext(3) = Mid(str, 58, 12) + "挂码校准"
End Select
Ctext(4) = "输入 +/- 下一个"
Case "- DATOS CALIB 11 -"
Ctext(1) = "- 校准数据卷动 11 -"
Ctext(2) = "建立测试周期"
Ctext(3) = " "
Ctext(4) = "自动 手动"
Case "Teclear longitud "
Select Case Mid(str, 31, 20)
Case "de una vuelta "
Ctext(1) = "输入皮带一周的长度 "
Ctext(2) = " "
Ctext(3) = Mid(str, 56, 14)
Ctext(4) = "输入 中止"
Case "entre dos marcas "
Ctext(1) = "输入皮带上两标志间的"
Ctext(2) = "长度 "
Ctext(3) = Mid(str, 56, 14)
Ctext(4) = "输入 中止"
End Select
Case "Teclear numero de "
Select Case Mid(str, 31, 20)
Case "revoluciones de "
Ctext(1) = "输入皮带一定时间内"
Ctext(2) = "皮带旋转周数"
Ctext(3) = Mid(str, 56, 5) + "圈"
Ctext(4) = "输入 中止"
End Select
Case "Teclear el tiempo "
Select Case Mid(str, 31, 20)
Case "de las revoluciones "
Ctext(1) = "输入皮带通过参考点"
Ctext(2) = "一周的时间"
Ctext(3) = Mid(str, 60, 5) + "秒"
Ctext(4) = "输入 中止"
End Select
Case "Tiempo cinta "
If Mid(str, 31, 20) = " " Then
Ctext(1) = "皮带运行计时 "
Ctext(2) = Mid(str, 51, 5) + " 秒"
Ctext(3) = " "
Ctext(4) = " 中止"
End If
Case "Arrancar cinta "
If Mid(str, 31, 20) = "Pulsar MARCHA en " Then
Ctext(1) = "启动皮带 "
Ctext(2) = "当第一标志通过参考"
Ctext(3) = "点时,按 开始 "
Ctext(4) = "开始 中止"
End If
Case "Pulsar CONT una vez "
If Mid(str, 31, 20) = "al paso de la marca " Then
Ctext(1) = "当标志每次通过参考点"
Ctext(2) = "时,按一次 计算 键"
Ctext(3) = Mid(str, 51, 6) + "秒" + Mid(str, 60, 5) + "周"
Ctext(4) = "计算 中止 完成"
End If
Case "DURACION TEST "
If Mid(str, 31, 8) = "Longitud" Then
Ctext(1) = "测试周期"
Ctext(2) = "长度=" + Mid(str, 39, 11)
Ctext(3) = "时间=" + Mid(str, 56, 9) + "秒"
Ctext(4) = " 继续 "
End If
Case "- DATOS CALIB 12 -"
Ctext(1) = "- 校准数据卷动 12 -"
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 "- DATOS CALIB 12A -"
Ctext(1) = "- 校准数据卷动 12A -"
Ctext(2) = "自动零点跟踪"
Ctext(3) = "范围 " + Mid(str, 57, 12)
Ctext(4) = "输入"
Case "- DATOS CALIB 12B -"
Ctext(1) = "- 校准数据卷动 12B -"
Ctext(2) = "自动零点跟踪"
Ctext(3) = "最大误差 " + Mid(str, 60, 10)
Ctext(4) = "输入"
Case "- DATOS CALIB 13 -"
Ctext(1) = "- 校准数据卷动 13 -"
Ctext(2) = "最大速率"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入 获得"
Case "-DIAGNOSTICOS 1 -"
Ctext(1) = "- 诊断卷动 1 -"
Ctext(3) = "A/D 毛重" + Mid(str, 41, 10)
Ctext(4) = "A/D 净重" + Mid(str, 61, 10)
Ctext(2) = " "
Case "-DIAGNOSTICOS 2 -"
Ctext(1) = "- 诊断卷动 2 -"
Ctext(2) = "称重传感器上的负载"
Ctext(3) = "重量 " + Mid(str, 51, 15)
Ctext(4) = " 校准 "
Case "-DIAGNOSTICOS 2A -"
Ctext(1) = "- 诊断卷动 2A -"
Ctext(2) = "称重传感器输出零点"
Ctext(3) = Mid(str, 51, 13) + "计算"
Ctext(4) = "输入"
Case "-DIAGNOSTICOS 2B -"
Ctext(1) = "- 诊断卷动 2B -"
Ctext(2) = "称重传感器输出间隔"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "-DIAGNOSTICOS 3 -"
Ctext(1) = "- 诊断卷动 3 -"
Ctext(2) = "预分频数" + Mid(str, 39, 8)
Ctext(3) = Mid(str, 51, 11) + "脉冲/分"
Ctext(4) = " "
' Case "-DIAGNOSTICOS 3A -"
' Ctext(1) = "- 诊断卷动 3A -"
' Ctext(2) = "测试周期总脉冲"
' Ctext(3) = Mid(str, 51, 20)
' Ctext(4) = " "
' Case "-DIAGNOSTICOS 3B -"
' Ctext(1) = "- 诊断卷动 3B -"
' Ctext(2) = "测试周期总长:"
' Ctext(3) = Mid(str, 51, 20)
' Ctext(4) = " "
Case "-DIAGNOSTICOS 4 -"
Ctext(1) = "- 诊断卷动 4 -"
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 " "
Select Case Mid(str, 31, 20)
Case "Clave invalida "
Ctext(1) = ""
Ctext(2) = "口令无效"
Ctext(3) = " "
Ctext(4) = "返回"
Case "Clave adquirida "
Ctext(1) = ""
Ctext(2) = "新口令"
Ctext(3) = "已获得"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -