//鼠标悬停线条
摘要: 与(AND) 全一为一,有零为零。 或(OR) 全零为零,有一为一。 非(NOT) 一变零,零变一。 异或(XOR) 相异为一,相同为零 同或(XNOR) 相同为一,相异为零。 与非(NAND) 先与后非(全一为零,有零为一)。 或非(NOR) 先或后非(全零为一,有一为零)。 与(AND) 逻辑与 阅读全文
posted @ 2024-12-31 14:25 Hi!JiQun 阅读(3412) 评论(0) 推荐(0)
摘要: REGION changeTime IF #Local_Min_1 <> #TempSetTime THEN #SetTimeChangeEdge := 1; ELSE #SetTimeChangeEdge := 0; END_IF; #TempSetTime := #Local_Min_1; EN 阅读全文
posted @ 2024-12-31 14:20 Hi!JiQun 阅读(37) 评论(0) 推荐(0)
摘要: Local_PositiveEdge := "Clock_1Hz" AND NOT #Local_StatLastStatus; Local_StatLastStatus := "Clock_1Hz"; TempSecondPulse := #Local_PositiveEdge; 阅读全文
posted @ 2024-12-31 14:19 Hi!JiQun 阅读(31) 评论(0) 推荐(0)
摘要: ![](https://img2024.cnblogs.com/blog/3487567/202412/3487567-20241231141644894-459147878.png) 阅读全文
posted @ 2024-12-31 14:17 Hi!JiQun 阅读(25) 评论(0) 推荐(0)
摘要: 画一个按钮,在弹起时复制如下脚本,确认后对变量进行置位操作。 /*int*/ int a = ShowMessageBox("请确认是否启动?", " 二次确认 ", 1, 2); if (a == 1) { \\Test = 1; } 阅读全文
posted @ 2024-12-31 14:12 Hi!JiQun 阅读(190) 评论(0) 推荐(0)
摘要: 画面存在时语言脚本 //数据库中数据是按格林威治时间存的,比北京时间晚8小时,下面的脚本是将北京时间转换为格林威治时间 long htcover1; long htcover11; long htcover2; long htcover22; htcover1=HTConvertTime(\loca 阅读全文
posted @ 2024-12-31 11:33 Hi!JiQun 阅读(71) 评论(0) 推荐(0)
摘要: 控件名: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 阅读(86) 评论(0) 推荐(0)
摘要: 查询功能: 查询按钮点击事件脚本 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 阅读(67) 评论(0) 推荐(0)
摘要: 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 阅读(95) 评论(0) 推荐(0)
摘要: Trace & Printf需要用到“应用程序窗口”(位置:视图→工具栏→标准) 注意:新建项目后先在计算机属性里面找到启动,勾选全局脚本运行系统。否则脚本无法运行 Trace(VBS) 在按钮事件中写入 Sub Onlick(ByVal Item) HMIRuntime.Trace"Hello" 阅读全文
posted @ 2024-12-31 11:19 Hi!JiQun 阅读(747) 评论(1) 推荐(0)
摘要: include"apdefao.h" void OnLButtonDown(char* lpszPictureName,char* lpszObjectName,char* lpszPropertyName) { setPropBOOL(lps) } 阅读全文
posted @ 2024-12-31 11:04 Hi!JiQun 阅读(764) 评论(0) 推荐(0)
摘要: 1 set/get相关 SetTagPrefix(lpszPictureName, "huamian1","电机1.");//设置变量前缀 SetPictureName(lpszPictureName,"huamian1","BENG");//给画面窗口绑定画面名称 SetVisible(lpszP 阅读全文
posted @ 2024-12-31 10:59 Hi!JiQun 阅读(1166) 评论(0) 推荐(0)
摘要: 在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 阅读(522) 评论(0) 推荐(0)
摘要: `Sub OnClick(Byval Item) Dim plcVariableName, plcVariableValue, plcQualityCode Dim tagObject ' 设置你的PLC变量名 plcVariableName = "aaaaa1" ' 将YourPLCVariabl 阅读全文
posted @ 2024-12-31 10:52 Hi!JiQun 阅读(65) 评论(0) 推荐(0)
摘要: 原料 啤酒花,麦芽,酵母,水。 本帖的原料 淡色麦芽3.5KG 焦香麦芽0.5KG 西楚酒花40G S04酵母11.5G水28L 精酿啤酒的做法 第一步 糖化 糖化,顾名思义就是。。。。糖化,把麦芽里的淀粉转化成麦芽糖的过程,麦芽糖是我们酿酒所需要的,糖会由酵母转化成酒精,之所以你会喝醉,那都是麦芽 阅读全文
posted @ 2024-12-31 10:20 Hi!JiQun 阅读(587) 评论(0) 推荐(0)
摘要: 很多自媒体的文章会将精酿定义为“手工”,所谓手工作坊式的啤酒才有叫精酿的基础,Craft beer翻译过来也确实是手工啤酒。又或者美式定义,将产量画条线,不可以有大型啤酒公司控股之类的要求,以求精酿啤酒的独立性。 这就又会产生一个问题,精酿啤酒就不能工业化生产吗?如果是手工酿酒,那么鹅岛、福佳、白熊 阅读全文
posted @ 2024-12-31 10:17 Hi!JiQun 阅读(128) 评论(0) 推荐(0)
摘要: 历史背景:啤酒历史 啤酒的起源与谷物的起源密切相关(埃及),公元前6000年左右(有文献记载),巴比伦人【苏美尔人(南美索不达米亚地区)】用黏土板雕刻的献祭用啤酒制作法。美索不达米亚地区公元前4000年已有用大麦、小麦、蜂蜜制作的16种啤酒。公元前3000年起埃及人开始使用苦味剂制作啤酒。 正式使用 阅读全文
posted @ 2024-12-31 09:52 Hi!JiQun 阅读(1369) 评论(0) 推荐(0)
摘要: MT糖化罐 LT过滤罐 KT煮沸罐 WP旋沉罐 BH糖化缩写,即brew house FV是发酵,即fermentor Vessel缩写,以后还会有CIP RO 等等 GLT:冷媒,即Glycol Tank hot water 热水 HW:hot water CW:cold water tap wa 阅读全文
posted @ 2024-12-31 09:43 Hi!JiQun 阅读(118) 评论(0) 推荐(0)