转换按钮功能不好使

我用VB编一个带有手自动转换的功能按钮,按左键即按一下自动,再按一下手动,再按一下自动,以此类推,用一个变量,自动时为1,手动时为0,正常时好用,但有时突然间自动变手动程序如下Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)   
Dim Tag
Set Tag = HMIRuntime.Tags("变量名")

Tag.Read 
If Tag.Value =1 Then
   Tag.Value=0
   Else
   Tag.Value =1
   End If
   Tag.Write 
   
End Sub

最佳答案

请 参 照 以 下 三 个 方 法 : 
如何在WINCC中制作一个保持型按钮
方法1:
if( GetTagBit("变量名") )
   SetTagBit("变量名",0);
else
   SetTagBit("变量名",1);
方法2:
SetTagBit("变量名",(SHORT)!GetTagBit("变量名"));
求反指令,如果为1点击变为0,
如果为0点击变为1
方法3:
或者做两个按钮,
按钮一:显示,直接连接"变量名",是--不显示,否--显示 。事件,直接连接,源,常数1,"变量名",
按钮二:事件,直接连接,源,常数0,变量"变量名";
用按钮一覆盖按钮二

提问者对于答案的评价:
试了一下,等几天看效果

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc202802.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2017年11月1日 上午12:49
下一篇 2017年11月1日 上午12:49

相关推荐

  • WINCC V7.4 SP1 授权问题

    把授权从U盘上导入电脑后,发现插上硬件狗后,提示无运行授权,缺失一个USB 什么授权,但硬件狗已经插到电脑上了,黄色部分的灯也有亮,不知道为何? 问题补充:计算机上U口都…

    2020年11月1日
  • 通过调用全局脚本或者通过全局动作脚本如何给画面窗口的io域赋值 wincc7.0

    在起始画面有两个子画面窗口A和B,A画面的按钮的脚本是调用项目函数,io域在B画面中,按钮和IO域不在同一个窗口 在A画面上点击按钮弹出画面B小窗口 按钮里是调…

    2017年6月13日
  • WINCC7.2 WEB发布到网页显示字体为问号

    WINCC7.2画面是从7.0移植过来的,之前在家做的同样的操作系统和WINCC7.2移植都可以。现在现场运行的画面也是正常,但是发布到网页显示的画面,一部分中文英文字体显示为问号…

    SIMATIC WinCC 2021年7月5日
  • wincc 报警记录疑问

    其中的类别、类型、优先级、消息变量、消息位、状态变量、状态位都是怎么使用 图片说明:    最佳答案 http://wenku.baidu.com/view/3…

    2021年7月5日
  • wincc 曲线采样时间

    请问:wincc的采样时间是1秒要怎样才能改成250毫秒。 问题补充:电流曲线的采样时间为1秒,有什么方法可以使wincc的采样时间缩短。 最佳答案 1.WinCC是监控软件,不是…

    SIMATIC WinCC 2019年6月11日
  • 安装WINCC时出现以下错误

    我在安装wincc7.2时,出现以下错误请问是怎么回事,系统是window7 旗舰版 32位 图片说明:    最佳答案 在注册表内“HKE…

    2017年10月29日
  • C#访问Wincc变量

    如何通过C#读写WINCC的变量,或者通过OPCServer.WinCC访问PLC变量 最佳答案 参考文档:如何在C#中实现OPC数据访问https://support.indus…

    SIMATIC WinCC 2021年7月5日
  • wincc VB脚本问题

    我想用VB脚本来实现下面几个功能 1、获取鼠标位置 2、设置画面窗口标题 3、设置画面窗口变量前缀 4、设置画面窗口的画面 5、设…

    SIMATIC WinCC 2019年6月11日
  • Microsoft Script Debugger启动

    各位专家: 为什么我用VBS脚本(按钮,项目函数) WINCC运行时弹出"脚本调试器"不能启动,我安装了脚本调试器后,WINCC运行时,脚本调试器自动弹出,是不…

    SIMATIC WinCC 2019年6月11日
  • 请教Wincc怎样读写Excle,做报表用

    我想用wincc对Excle读写,看到别人的代码我拷过去但是不能使用,我用的是这段代码(Dim objExcelApp,oWorkBook  Set&…

    SIMATIC WinCC 2019年6月11日