wincc VBS

Sub OnClick(Byval Item)

Dim fso,folder Dim type1

Dim patch,filename Dim

testposition,testnumber,startdate,printdate,brand,tyremodel,rim,tread,condition,load,speed,pressure,status

Set testposition=HMIRuntime.tags(\Set testnumber=HMIRuntime.tags(\Set startdate=HMIRuntime.tags(\Set printdate=HMIRuntime.tags(\Set brand=HMIRuntime.tags(\Set tyremodel=HMIRuntime.tags(\Set rim=HMIRuntime.tags(\Set tread=HMIRuntime.tags(\

Set condition=HMIRuntime.tags(\Set

变量读写： Write和Read方法的语法： 读 ：

1 Dim objTag Set objTag=HMIRunTime.Tags(\变量名\ objTag.Read

2 HMIRunTime.Tags(\变量名\ 写：

1 Dim objTag Set objTag=HMIRunTime.Tags(\变量名\ objTag.Write 1 '向变量写入数值1 2 HMIRunTime.Tags(\变量名\ 中间变量的值写入 ：Dim objTag,val Set objTag=HMIRunTime.Tags(\变量名\ objTag.Read

val=objTag.Value '中间变量val存放了变量的值 VBS

语言使用方法

概述：

VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言.

我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编

wincc中使用vbs的常用函数

1.函数array() 功能:创建一个数组变量 格式:array(list)

参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子:

<% i = array (“1”,”2”,”3”) %> 结果: i 被赋予为数组 2.函数Cint()

功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression)

参数:expression 是任何有效的表达式/其它类型的变量 例子: <%

f = ”234”

response.write cINT(f) + 2 %> 结果: 236

函数Cint()将字符”234”转换 成整数234.如果表达式为空,3.函数:Creatobject()

功能:创建及返回一个ActiveX对象. 格式:Creatobject(obname) 参数bname 是对象的名称 例子: <%

Set con = Server.CreateObject(“ADODB.Connection”)

WinCC中全局脚本VBS归档到Excel中

用一个变量触发数据归档到Excel中，请高手看看我写的为何不能运行。 Sub procedure1

If Item.OutputValue = \

Dim oVar,oBlendingVar,objExcelApp,oWorkBook,ExcelTableFull,oFileName On Error Resume Next ExcelTableFull=0

Set objExcelApp=CreateObject(\ objExcelApp.Visible=False

Set oWorkBook=objExcelApp.Workbooks.Open(\模板\\Receipt_Table.xls\ Dim iBlankLine

iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find(\ 'MsgBox(\ If iBlankLine<504 Then

objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,2).Value=H

WinCC中全局脚本VBS归档到Excel中

用一个变量触发数据归档到Excel中，请高手看看我写的为何不能运行。 Sub procedure1

If Item.OutputValue = \

Dim oVar,oBlendingVar,objExcelApp,oWorkBook,ExcelTableFull,oFileName On Error Resume Next ExcelTableFull=0

Set objExcelApp=CreateObject(\ objExcelApp.Visible=False

Set oWorkBook=objExcelApp.Workbooks.Open(\模板\\Receipt_Table.xls\ Dim iBlankLine

iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find(\ 'MsgBox(\ If iBlankLine<504 Then

objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,2).Value=H

Wincc V7.3 通过VBS 记录连接PLC的时刻以及断开PLC的时刻的方法

今天看QQ群里面有网友问怎么记下WINCC和PLC连接上和断开的时刻，这个问题有点意思，以前没有留意过，这两个事件也的确重要，于是尝试着做了一下试验成功了。 1. PLC一侧的编程

新建两个BOOL变量，比如说是M14.0和M14.1，梯形图如下：

这样一来，M14.1应该一直为1. 2. WINCC一侧的编程

在wincc一侧，新建四个变量：

status 外部变量，二进制类型地址M14.1 替换值0 断开连接时替换。 注意这个变量不能从AS-OS传输过来，那种传输过来的不能设置替换功能，设置替换值是为了让PLC与上位机断开连接能够改变WINCC变量值。 ConnStatus:内部变量，二进制类型，初始值为0 ConnTime:内部变量日期时间类型,记录连接上的时刻 DisConnTime：内部变量日期时间类型,记录断开的时刻

新建一个VBS全局脚本，触发器设置为周期性1s，这个周期也可以长一点，减少系统负荷。 Option Explicit Function action

Dim ConnStatus,Status,ConnTime,Dis

我们先来看一个简单的 vbs脚本实例 Const aa=\例子\cc=\

语法介绍 VBScript 常数什么是常数？常数是具有一定含义的名称，用于代替数字或字符串，其值从不改变。 VBScript定义了许多固有常数。详细信息，请参阅 VBScript 语言参考。创建常数的方法：您可以使用 Const 语句在 VBScript 中创建用户自定义常数。使用 Const 语句可以创建名称具有一定含义的字符串型或数值型常数，并给它们赋原义值。例如： Const MyString = \这是一个字符串。 \请注意字符串文字包含在两个引号 (\之间。这是区分字符串型常数和数值型常数的最明显的方法。日期文字和时间文字包含在两个井号 (#) 之间。例如：

Const CutoffDate = #6-1-97# 最好采用一个命名方案以区分常数和变量。这样可以避免在运行 Script时对常数重新赋值。例如，可以使用 “vb”或“con”作常数名的前缀，或将常数名的所有字母大写。将常数和变量区分开可以在开发复杂的 Script 时避免混乱。

VBScript 变量什么是变量？变量相当于一个容器，我们可以给这个容器起名叫做 A，那么我们可以向 A杯子内放入任何

VBS学习教程

发现大部分的朋友都不会编程, 这可不是件好事, 所以这次我就写了一个简单的编程教程, 讲一下VB. 主要面向菜鸟, 懂得编程的朋友就不要

浪费时间了, 如果你想接触以下VB也可以, 但既然有编程基础推荐直接去找一些参考书来读, 会比较快. 什么是VB呢? VB的全称是:Microsoft

Visual Basic Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VB的进一步简写)是基于Visual Basic的脚本语言.

我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文

件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了 .

我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad).我不是开玩笑, 其实任何一种文本编辑器都可以用来开

发VBS开发, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因

如何使用函数 \来读多个 WinCC 变量?

说明：

在WinCC全局C脚本中，有默认几个\函数，用于读取多个WinCC变量：

? ?

BOOL GetTagMultiWait(const char* pszFormat, const char* pszTag, void* pvValue, ...) BOOL GetTagMultiStateWait(DWORD* pdwState, const char* pszFormat, const* pszTag, void* pvValue, ...)

? BOOL GetTagMultiStateQCWait(DWORD* pdwState, DWORD* pdwQC, const char* pszFormat, const* pszTag, void* pvValue, ...)

这些函数统称为\函数，也就是直接从PLC读取变量值，而不通过WinCC数据管理器的画面。这些函数参数的数量是变化的；取决于读取变量的个数。 参数：

函数包含以下参数：

? DWORD* pdwState (仅用于GetTagMultiStateWait() and GetTagMultiStateQCW

1. ActivateRightScreen 应用

将画面切换到与激活画面同一层级的右侧的画面。 如果当前画面的右侧没有其它画面，则不发生画面切换。

说明

必须已经在“画面浏览”编辑器中组态了一个浏览结构。 语法

ActivateRightScreen

在脚本中是否可用： 有 (ActivateRightScreen) 参数 --

2. ActivateRootScreen 应用

将画面切换到定义为起始画面的画面。

如果所显示的画面是根画面，则不会发生画面切换。

说明

必须已经在“画面浏览”编辑器中组态了一个浏览结构。 语法

ActivateRootScreen

在脚本中是否可用： 有 (ActivateRootScreen) 参数 --

3. ActivateScreen 应用

将画面切换到指定的画面。

使用“ActivateScreenByNumber”系统函数可以从根画面切换到永久性窗口，反之亦然。 语法

ActivateScreen (Screen name, Object number) 在脚本中是否可用： 有 (ActivateScreen) 参数 Screen name

要切换到的画面的名称。 Object