📄 ramsey.bas
字号:
If Mid(str, 52, 1) = ">" Then
Ctext(3) = " " + ">速度<"
Else
Ctext(3) = " " + " 速度"
End If
Case "Pe"
If Mid(str, 52, 1) = ">" Then
Ctext(3) = " " + ">载荷<"
Else
Ctext(3) = " " + " 载荷"
End If
End Select
Ctext(4) = "选择 输入 "
Case "- DISPLAY 10 -"
Ctext(1) = "- 显 示 卷 动 10 -"
Ctext(2) = "缓冲显示流量 "
Ctext(3) = " " + "缓冲流量=" + Mid(str, 59, 6) + "秒"
Ctext(4) = "输入 "
Case "- CAL CERO -"
Ctext(1) = "- 自动零点校准 -"
Ctext(2) = "空载运行 "
Ctext(3) = "再按开始键"
Ctext(4) = "开始 退出 手动"
Case "- AUTO CERO -"
Ctext(1) = "自动零点"
Ctext(2) = "剩余时间 " + Mid(str, 46, 5)
Ctext(3) = "流量: " + Mid(str, 59, 6) + " 吨/小时"
Ctext(4) = "累计: " + Mid(str, 77, 6) + " 吨"
Case "- MANUAL CERO -"
Ctext(1) = "- 手动零点校准 -"
Ctext(2) = "流量 " + Mid(str, 37, 9) + "吨/小时"
Ctext(3) = "零点 ＃ " + Mid(str, 59, 8)
Ctext(4) = "输入 退出 "
Case "- CERO # CAMBIADO -"
Ctext(1) = "零点 ＃ 已改变"
Ctext(2) = "新零点 ＃" + Mid(str, 41, 10)
Select Case Mid(str, 51, 5)
Case "Total"
Ctext(3) = "累计量＃" + Mid(str, 57, 9)
Case "Error"
Ctext(3) = "误差率＃" + Mid(str, 57, 9)
Case "Vie c"
Ctext(3) = "旧零点＃" + Mid(str, 61, 7)
Case "Cauda"
Ctext(3) = "流量 ＃" + Mid(str, 57, 9)
End Select
Ctext(4) = "运行 菜单 ADＶ"
Case "- MANUAL SPAN -"
If Mid(str, 31, 6) = "Caudal" And Mid(str, 51, 4) = "Span" Then
Ctext(1) = "- 手动间隔校准 -"
Ctext(2) = "流量 " + Mid(str, 37, 9) + "吨/小时"
Ctext(3) = "间隔 ＃ " + Mid(str, 59, 8)
Ctext(4) = "输入 退出 ADV"
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 "- AUTO SPAN R Cal -"
Ctext(1) = "- 电子校准自动调间隔 -"
Ctext(2) = "皮带空载运行,"
Ctext(3) = "再按 开始 键"
Ctext(4) = "开始 退出 手动"
Case "- AUTO SPAN Cadenas "
Ctext(1) = "- 链码自动校准间隔 -"
If Mid(str, 85, 6) = "MANUAL" Then
Ctext(2) = "加链码,"
Ctext(4) = "开始 退出 手动"
Else
Ctext(2) = "皮带运行"
Ctext(4) = "开始 退出 "
End If
Ctext(3) = "再按 开始 键"
Case "- AUTO SPAN Pesos- "
Ctext(1) = "－挂码自动校准间隔 －"
If Mid(str, 85, 6) = "MANUAL" Then
Ctext(2) = "挂上挂码"
Else
Ctext(2) = "皮带运行,"
End If
Ctext(3) = "再按 开始 键"
Ctext(4) = "开始 退出 手动"
Case "AUTO SPAN "
Ctext(1) = "自动间隔校准"
Ctext(2) = "剩余时间 " + Mid(str, 46, 5)
Ctext(3) = "流量: " + Mid(str, 59, 6) + " 吨/小时"
Ctext(4) = "累计: " + Mid(str, 77, 6) + " 吨"
Case "- CERO # CAMBIADO -"
Ctext(1) = "零点 ＃ 已改变"
Ctext(2) = "新零点 ＃" + Mid(str, 41, 10)
Select Case Mid(str, 51, 5)
Case "Total"
Ctext(3) = "累计量＃" + Mid(str, 57, 9)
Case "Error"
Ctext(3) = "误差率＃" + Mid(str, 57, 9)
Case "Vie c"
Ctext(3) = "旧零点＃" + Mid(str, 61, 7)
Case "Cauda"
Ctext(3) = "流量 ＃" + Mid(str, 57, 9)
End Select
Ctext(4) = "运行 菜单 ADＶ"
Case "SPAN NO CAMBIADO "
Ctext(1) = "间隔 ＃ 已改变"
Ctext(3) = "新间隔 ＃" + Mid(str, 61, 10)
Select Case Mid(str, 31, 5)
Case "Total"
Ctext(2) = "累计量＃" + Mid(str, 37, 9)
Case "Error"
Ctext(2) = "误差率＃" + Mid(str, 37, 14)
Case "Vie s"
Ctext(2) = "旧间隔＃" + Mid(str, 41, 7)
Case "ConCa"
Ctext(2) = "校准常数" + Mid(str, 37, 9)
End Select
Ctext(4) = "运行 重复 ADＶ"
Case "Quitar cadenas antes"
Ctext(1) = "在返回到正常操作前"
Ctext(2) = "请移去链码"
Ctext(3) = "(或挂码)!!"
Ctext(4) = "运行"
Case "CALIBRACION MATERIAL"
Select Case Mid(str, 31, 5)
Case "March"
Ctext(1) = "- 实物校准 -"
Ctext(2) = "皮带空载运行"
Ctext(3) = "再按 开始 键"
Ctext(4) = "开始 菜单"
Case "Pasar"
Ctext(1) = "- 实物校准 -"
Ctext(2) = "物料流量"
Ctext(3) = " <40%.的满量程"
Ctext(4) = " 准备 "
Case "3 pun"
Ctext(1) = "- 实物校准 -"
Ctext(2) = "3 点线性化"
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) = "选择 输入"
End Select
Case "Pasar una cantidad "
Ctext(1) = "秤上运行大量的物料"
Ctext(2) = " "
Ctext(3) = " "
Ctext(4) = "继续"
Case "SPAN # CAMBIADO "
Ctext(1) = "间隔＃ 已改变"
Ctext(2) = "新间隔＃ " + Mid(str, 41, 10)
Ctext(3) = "旧间隔＃ " + Mid(str, 61, 10)
Ctext(4) = "继续"
Case "- DATOS BASCULA 1 -"
Ctext(1) = "- 秤的数据卷动 1 -"
Ctext(2) = "秤的最大容量"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 2 -"
Ctext(1) = "- 秤的数据卷动 2 -"
Ctext(2) = "秤分度"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "选择 输入"
Case "- DATOS BASCULA 3 -"
Ctext(1) = "- 秤的数据卷动 3 -"
Ctext(2) = "皮带秤型号＃"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "选择 细目"
Case "- DATOS BASCULA 3A -"
Ctext(1) = "- 秤的数据卷动 3A -"
Ctext(2) = "支点到称重传感器"
Ctext(3) = "的距离：" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3B -"
Ctext(1) = "- 秤的数据卷动 3B -"
Ctext(2) = "称重托辊数"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3C -"
Ctext(1) = "- 秤的数据卷动 3C -"
Ctext(2) = "支点到第一个称重托辊"
Ctext(3) = "的距离" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3D -"
Ctext(1) = "- 秤的数据卷动 3D -"
Ctext(2) = "支点到第二个称重托辊"
Ctext(3) = "的距离" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3E -"
Ctext(1) = "- 秤的数据卷动 3E -"
Ctext(2) = "支点到第三个称重托辊"
Ctext(3) = "的距离" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3F -"
Ctext(1) = "- 秤的数据卷动 3F -"
Ctext(2) = "支点到第四个称重托辊"
Ctext(3) = "的距离" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3G -"
Ctext(1) = "- 秤的数据卷动 3G -"
Ctext(2) = "支点到第五个称重托辊"
Ctext(3) = "的距离" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3H -"
Ctext(1) = "- 秤的数据卷动 3H -"
Ctext(2) = "支点到第六个称重托辊"
Ctext(3) = "的距离" + Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3I -"
Ctext(1) = "- 秤的数据卷动 3I -"
Ctext(2) = "支点到挂码的距离"
Ctext(3) = Mid(str, 61, 10)
Ctext(4) = "输入 +/-"
Case "- DATOS BASCULA 3L -"
Ctext(1) = "- 秤的数据卷动 3L -"
Ctext(2) = "支点到挂码长度："
Ctext(3) = Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3M -"
Ctext(1) = "- 秤的数据卷动 3M -"
Ctext(2) = "支点到秤架高度"
Ctext(3) = Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3N -"
Ctext(1) = "- 秤的数据卷动 3N -"
Ctext(2) = "滚筒到秤架高度"
Ctext(3) = Mid(str, 61, 10)
Ctext(4) = "输入"
Case "- DATOS BASCULA 3O -"
Ctext(1) = "- 秤的数据卷动 3O -"
Ctext(2) = "称重传感器的数量："
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 4 -"
Ctext(1) = "- 秤的数据卷动 4 -"
Ctext(2) = "托辊间距："
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 5 -"
Ctext(1) = "- 秤的数据卷动 5 -"
Ctext(2) = "输送机角度"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入 +/-"
Case "- DATOS BASCULA 6 -"
Ctext(1) = "- 秤的数据卷动 6 -"
Ctext(2) = "称重传感器的容量"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 7 -"
Ctext(1) = "- 秤的数据卷动 7 -"
Ctext(2) = "称重传感器的灵敏度："
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 8A -"
Ctext(1) = "- 秤的数据卷动 8A -"
Ctext(2) = "称重传感器#1阻值"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 8B -"
Ctext(1) = "- 秤的数据卷动 8B -"
Ctext(2) = "称重传感器#2阻值"
Ctext(3) = Mid(str, 51, 20)
Ctext(4) = "输入"
Case "- DATOS BASCULA 8C -"
Ctext(1) = "- 秤的数据卷动 8C -"
Ctext(2) = "称重传感器#3阻值"
Ctext(3) = Mid(str, 51, 20)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -