//鼠标悬停线条

随笔分类 -  自动化 / 上位机

KingScada操作确认框
摘要：画一个按钮，在弹起时复制如下脚本，确认后对变量进行置位操作。 /*int*/ int a = ShowMessageBox("请确认是否启动？", " 二次确认 ", 1, 2); if (a == 1) { \\Test = 1; } 阅读全文
posted @ 2024-12-31 14:12 Hi！JiQun 阅读(235) 评论(0) 推荐(0)
KingView报警查询
摘要：画面存在时语言脚本 //数据库中数据是按格林威治时间存的，比北京时间晚8小时，下面的脚本是将北京时间转换为格林威治时间 long htcover1; long htcover11; long htcover2; long htcover22; htcover1=HTConvertTime(\loca 阅读全文
posted @ 2024-12-31 11:33 Hi！JiQun 阅读(90) 评论(0) 推荐(0)
Kingview报表功能
摘要：控件名：Report1 查询按钮弹起时脚本 //查询功能 float Ayear; float Amonth; float Aday; long x; long y; long Row; long StartTime; string temp; Ayear=ADate.Year; Amonth=AD 阅读全文
posted @ 2024-12-31 11:28 Hi！JiQun 阅读(102) 评论(0) 推荐(0)
SQL实现报表功能
摘要：查询功能： 查询按钮点击事件脚本 Sub OnClick(ByVal Item) Dim conn '定义类对象 Dim SCon '定义数据库连接字符串 Dim oRs1 '定义获取到的数据集 Dim oCom Dim strSQL1 Dim m,i,j,k ' 打开数据库 ' sCon= "Pr 阅读全文
posted @ 2024-12-31 11:21 Hi！JiQun 阅读(101) 评论(0) 推荐(0)
WinCC改变前景色
摘要：Function ForeColor_Trigger(ByVal Item) Dim changer Set changer = ScreenItems("B_PASV01") Dim tag Set tag = HMIRuntime.Tags("离散") If tag.read = 1 Then 阅读全文
posted @ 2024-12-31 11:20 Hi！JiQun 阅读(132) 评论(0) 推荐(0)
WinCC脚本调试方法
摘要：Trace & Printf需要用到“应用程序窗口”（位置：视图→工具栏→标准） 注意：新建项目后先在计算机属性里面找到启动，勾选全局脚本运行系统。否则脚本无法运行 Trace(VBS) 在按钮事件中写入 Sub Onlick(ByVal Item) HMIRuntime.Trace"Hello" 阅读全文
posted @ 2024-12-31 11:19 Hi！JiQun 阅读(933) 评论(1) 推荐(0)
WinCC动态修改画面窗口变量前缀
摘要：include"apdefao.h" void OnLButtonDown(char* lpszPictureName,char* lpszObjectName,char* lpszPropertyName) { setPropBOOL(lps) } 阅读全文
posted @ 2024-12-31 11:04 Hi！JiQun 阅读(874) 评论(0) 推荐(0)
WinCC常用脚本
摘要：1 set/get相关 SetTagPrefix(lpszPictureName, "huamian1","电机1.");//设置变量前缀 SetPictureName(lpszPictureName,"huamian1","BENG");//给画面窗口绑定画面名称 SetVisible(lpszP 阅读全文
posted @ 2024-12-31 10:59 Hi！JiQun 阅读(1498) 评论(0) 推荐(0)
WinCC VBscript常用标准函数总结
摘要：在WinCC软件中使用VBS进行编程的时候常常使用的标准函数整理如下： 数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值 直接表示：&Hxx 最大8位 oct(num): 返回八进 阅读全文
posted @ 2024-12-31 10:57 Hi！JiQun 阅读(703) 评论(0) 推荐(0)
读取变量返回值和质量戳
摘要：`Sub OnClick(Byval Item) Dim plcVariableName, plcVariableValue, plcQualityCode Dim tagObject ' 设置你的PLC变量名 plcVariableName = "aaaaa1" ' 将YourPLCVariabl 阅读全文
posted @ 2024-12-31 10:52 Hi！JiQun 阅读(81) 评论(0) 推荐(0)