By jzgkchina
August 7, 2026
笔者手上正好有一个昆仑通态的项目，但是IO点使用的特别多。于是翻遍了网站论坛似乎没有一家能够讲全的。以至于哥们向供应商求助都被嫌烦了。但是经过哥们不懈努力和查遍大量资料的情况下哥们自己给他做出来了。
实现方法
前期查资料的时候我看到好多文章都是只讲了一半，这次我会把我遇到的所有踩过的坑和解决方法完整的交给大家。
使用的PLC及触摸屏
· 西门子新款1200G2 1214
· 昆仑通态 TPC1051KT
· 软件博图V21 Mcgs.Pro
首先我们打开Mcgs.Pro
01
首先我们在软件内先做好通讯
02
我们在软件中新增两个通道
03
新建两个变量 输出点同理 数据类型要选16位只读
04
添加完成的状态
05
在新的页面添加监控组件
06
这里的排序需要注意
第一个是第8位
第二个是第7位（从上往下的排序）
然后第二列第一个是0位
07
这里需要把标做一下命名增两个通道
方便我们后续的脚本变量对应
08
添加一个标签
这个可以从博图直接复制到exl中细化处理这里不再赘述
09
添加两个按钮来实现翻页功能
附上脚本
IF InputOffset > 1 THEN
InputOffset = InputOffset - 2
ENDIF
下翻页脚本
InputOffset =InputOffset + 2
10
窗口的循环脚本
最后最重要的窗口的循环脚本
Dim ArrioNameStr(1000) AS string
Dim In_Data AS string
Dim Result AS integer
Dim ioNameNum AS integer
In_Data = IO监控.控件62.Text
Result = !SplitString(In_Data,ArrioNameStr,"\n" )
ioNameNum = InputOffset * 8
IO监控.lbl_ioName1.Text =ArrioNameStr[ioNameNum + 1]
IO监控.lbl_ioName2.Text =ArrioNameStr[ioNameNum + 2]
IO监控.lbl_ioName3.Text =ArrioNameStr[ioNameNum + 3]
IO监控.lbl_ioName4.Text =ArrioNameStr[ioNameNum + 4]
IO监控.lbl_ioName5.Text =ArrioNameStr[ioNameNum + 5]
IO监控.lbl_ioName6.Text =ArrioNameStr[ioNameNum + 6]
IO监控.lbl_ioName7.Text =ArrioNameStr[ioNameNum + 7]
IO监控.lbl_ioName8.Text =ArrioNameStr[ioNameNum + 8]
IO监控.lbl_ioName9.Text =ArrioNameStr[ioNameNum + 9]
IO监控.lbl_ioName10.Text =ArrioNameStr[ioNameNum + 10]
IO监控.lbl_ioName11.Text =ArrioNameStr[ioNameNum + 11]
IO监控.lbl_ioName12.Text =ArrioNameStr[ioNameNum + 12]
IO监控.lbl_ioName13.Text =ArrioNameStr[ioNameNum + 13]
IO监控.lbl_ioName14.Text =ArrioNameStr[ioNameNum + 14]
IO监控.lbl_ioName15.Text =ArrioNameStr[ioNameNum + 15]
IO监控.lbl_ioName16.Text =Arrio NameStr[ioNameNum + 16]
控件62就是第8步添加的那个标签 各位做的时候请注意
11
DI监控做好了 DO监控同理
12
现在我们下载运行一下
作者：
阿富，一个快乐的技术阿宅。
2026年8月
Tags