System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Requirement
● The Graphics Designer is open.
● An archive is created in the Tag Logging Editor.
Inserting and configuring WinCC OnlineTrendControl
1. Create a new process picture in the Graphics Designer.
2. Save the process picture under "OnlineTrend.pdl".
3. Insert a WinCC OnlineTrendControl into the process picture.
4. Select "Configuration dialog..." from the shortcut menu of the control.
The "Properties of WinCC OnlineTrendControl" dialog opens.
5. On the "Trend" tab under "Data connection" connect the trend to an archive tag.
6. On the "Toolbar" tab under "Button functions" create a new user-defined toolbar button with
object ID "1001" for the OnlineTrendControl.
7. Click on "Accept" to save the changes.
8. Click "OK" to close the dialog box.
9. Select "Properties" from the shortcut menu of the control.
The "Object properties" dialog box opens.
10.Enter "Control1" as the object name for the control.
11.In the Object Properties of "Control1" select the "Event" tab.
12.On the "OnToolbarButtonClicked" object event, configure the VB script "Create VBS action
on "OnToolbarButtonClicked" event of user-defined toolbar button (VBS302)".
13.Close the "Object properties" dialog box.
Creating a process picture for the selection dialog
1. Create a new process picture in the Graphics Designer.
2. Save the process picture under "Selectiondialog.pdl".
3. Click the "Properties" button on the shortcut menu of the process picture.
The "Object properties" dialog box opens.
4. Under "Geometry", set value "200" for the "Picture width" and "Picture height" attributes.
5. Close the "Object properties" dialog box.
6. Insert two "Button" objects into the process picture.
7. Enter "Morning" or "Afternoon" as text for the button.
Dynamizing selection dialog button
1. In the Object Properties of the "Morning" button select the "Event" tab.
2. On the "Mouse-click" event, configure the VB script "Create VBS action on "Mouse-click"
event of "Morning" button (VBS303)".
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
751
3. Close the "Object properties" dialog box.
4. In the Object Properties of the "Afternoon" button select the "Event" tab.
5. On the "Mouse-click" event configure the VB script "Create VBS action on "Mouse-click"
event of "Afternoon" button (VBS304)".
6. Close the "Object properties" dialog box.
Inserting and configuring a picture window
1. Insert a "Picture window" object into the "OnlineTrend.pdl" process picture.
2. Select "Properties" from the shortcut menu of the picture window.
The "Object properties" dialog box opens.
3. Enter "PictureWindow1" as the object name for the picture window.
4. Under "Miscellaneous" set the "Display" attribute to "no".
5. Under "Miscellaneous", select the "Selectiondialog.pdl" process picture for the "Picture
name" attribute.
6. Close the "Object properties" dialog box.
Create VBS action on "OnToolbarButtonClicked" event of user-defined toolbar button (VBS302)
'VBS302
'Open selection window if Toolbarbutton with ID 1001 is pressed
If lId = 1001 Then
ScreenItems("PictureWindow1").Visible = True
End If
Create VBS action on "Mouse-click" event of "Morning" button (VBS303)
'VBS303
Dim obj
Set obj = Parent.Parent.ScreenItems("Control1")
'choose time axis, stop update, set begin time and time range
obj.TimeAxisName = "Time axis 1"
obj.TimeAxisActualize = False
obj.TimeAxisBeginTime = CStr(Date & " 4:00:00")
obj.TimeAxisTimeRangeBase = 3600000
obj.TimeAxisTimeRangeFactor = 8
'close the selection window
Parent.Visible = False
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
752
System Manual, 11/2008,
Create VBS action on "Mouse-click" event of "Afternoon" button (VBS304)
'VBS304
Dim obj
Set obj = Parent.Parent.ScreenItems("Control1")
'choose time axis, stop update, set begin time and time range
obj.TimeAxisName = "Time axis 1"
obj.TimeAxisActualize = False
obj.TimeAxisBeginTime = CStr(Date & " 12:00:00 PM")
obj.TimeAxisTimeRangeBase = 3600000
obj.TimeAxisTimeRangeFactor = 8
'close the selection window
Parent.Visible = False
Example: How to add elements to an empty WinCC OnlineTrendControl
Introduction
In the following example you insert the Trend Window, Value Axis, Time Axis and Trends
elements into an empty WinCC OnlineTrendControl.
Requirement
● The Graphics Designer is open.
● An archive is created in the Tag Logging Editor with three archive tags.
Inserting and configuring WinCC OnlineTrendControl
1. Create a new process picture in the Graphics Designer.
2. Insert a WinCC OnlineTrendControl into the process picture.
3. Select "Configuration dialog..." from the shortcut menu of the control.
The "Properties of WinCC OnlineTrendControl" dialog opens.
4. In the "Trends" area of the "Trends" tab delete the default trend window "Trend 1".
5. Click on "Accept" to save the changes.
6. Click "OK" to close the dialog box.
7. Select "Properties" from the shortcut menu of the control.
The "Object properties" dialog box opens.
8. Enter "Control1" as the object name for the control.
9. Close the "Object properties" dialog box.
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
753
Inserting and configuring a button
1. Insert a "Button" object into the process picture.
2. Enter "Paste elements" as text for the button.
3. Select "Properties" from the shortcut menu of the button.
The "Object properties" dialog box opens.
4. In the Object Properties of the button select the "Event" tab.
5. On the "Mouse-click" event configure the VB script "Create VBS action on "Mouse-click"
event of button (VBS305)".
6. Close the "Object properties" dialog box.
Create VBS action on "Mouse-click" event of button (VBS305)
'VBS305
Dim objTrendControl
Dim objTrendWindow
Dim objTimeAxis
Dim objValueAxis
Dim objTrend
'create reference to TrendControl
Set objTrendControl = ScreenItems("Control1")
'create reference to new window, time and value axis
Set objTrendWindow =
objTrendControl.GetTrendWindowCollection.AddItem("myWindow")
Set objTimeAxis =
objTrendControl.GetTimeAxisCollection.AddItem("myTimeAxis")
Set objValueAxis =
objTrendControl.GetValueAxisCollection.AddItem("myValueAxis")
'assign time and value axis to the window
objTimeAxis.TrendWindow = objTrendWindow.Name
objValueAxis.TrendWindow = objTrendWindow.Name
'add new trend and assign properties
Set objTrend = objTrendControl.GetTrendCollection.AddItem("myTrend1")
objTrend.Provider = 1
objTrend.TagName = "TestArchive\ArchivTag1"
objTrend.Color = RGB(255,0,0)
objTrend.TrendWindow = objTrendWindow.Name
objTrend.TimeAxis = objTimeAxis.Name
objTrend.ValueAxis = objValueAxis.Name
'add new trend and assign properties
Set objTrend = objTrendControl.GetTrendCollection.AddItem("myTrend2")
objTrend.Provider = 1
objTrend.TagName = "TestArchive\ArchivTag2"
objTrend.Color = RGB(0,255,0)
objTrend.TrendWindow = objTrendWindow.Name
objTrend.TimeAxis = objTimeAxis.Name
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
754
System Manual, 11/2008,
objTrend.ValueAxis = objValueAxis.Name
'add new trend and assign properties
Set objTrend = objTrendControl.GetTrendCollection.AddItem("myTrend3")
objTrend.Provider = 1
objTrend.TagName = "TestArchive\ArchivTag3"
objTrend.Color = RGB(0,0,255)
objTrend.TrendWindow = objTrendWindow.Name
objTrend.TimeAxis = objTimeAxis.Name
objTrend.ValueAxis = objValueAxis.Name
Note
In the VB script, replace the archive used and the archive tags "Archive\ArchiveTagX" with
the names of the archive and archive tags that have been created.
1.15.3 General Examples
1.15.3.1 General examples for VBScript
Introduction
This section contains examples of the general use of VBScript with regard to the following
topics:
● Program data connection with VBS
● To retrieve methods
● Using the MS Automation Interface
● Starting External Applications
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
755
Note
All objects supplied with the Windows Script Host (WSH) from Microsoft can be integrated in
their
environment using the standard VBS method "CreateObject". However, there is no direct
access to the WSH object itself using VBS from WinCC.
Example 1: "FileSystemObject" object for working with the file system
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Example 2: "WScript.Shell"-Object for working with the Windows environment
See also
Example: Configuring a Database Connection with VBS (Page 756)
Example: Starting an external application (Page 760)
Example: Using the MS Automation interface (Page 758)
Example: Calling Methods of an ActiveX Control (Page 748)
1.15.3.2 Example: Configuring a Database Connection with VBS
Introduction
The following examples describe the configuration of an Access database link via an ODBC
driver.
● Example 1 writes a tag value from WinCC in an Access database.
● Example 2 reads a value from the database and writes it in a WinCC tag.
The examples do not contain any handling faults.
Procedure, Example 1
1. Create the Access database with the WINCC_DATA table and columns (ID, TagValue) with
the ID as the Auto Value.
2. Set up the ODBC data source with the name "SampleDSN", reference to the above Access
database.
3. Programming.
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
756
System Manual, 11/2008,
Example 1
'VBS108
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
lngValue = HMIRuntime.Tags("Tag1").Read
strSQL = "INSERT INTO WINCC_DATA (TagValue) VALUES (" & lngValue & ");"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
Procedure, Example 2
1. Create the WinCC tag with the name dbValue.
2. Create Access database with WINCC_DATA table and ID, TagValue columns: ID, create
TagValue (ID as auto value).
3. Set up the ODBC data source with the name "SampleDSN", reference to the above Access
database.
4. Programming.
Example 2
'VBS108a
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim lngValue
Dim lngCount
strConnectionString = "Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"
strSQL = "select TagValue from WINCC_DATA where ID = 1"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
757
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute
lngCount = objRecordset.Fields.Count
If (lngCount>0) Then
objRecordset.movefirst
lngValue = objRecordset.Fields(0).Value
HMIRuntime.Tags("dbValue").Write lngValue
Else
HMIRuntime.Trace "Selection returned no fields" & vbNewLine
End If
Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
There are several ways in which to define the ConnectionString for the connection depending
on the provider used:
Microsoft OLE DB provider for ODBC
Enables connections to any ODBC data source. The corresponding syntax is:
"[Provider=MSDASQL;]{DSN=name|FileDSN=filename};
[DATABASE=database;]UID=user; PWD=password"
Other Microsoft OLE DB Providers (e.g. MS Jet, MS SQL Server)
It is possible to work without DSN. The corresponding syntax is:
"[Provider=provider;]DRIVER=driver; SERVER=server;
DATABASE=database; UID=user; PWD=password"
See also
General examples for VBScript (Page 755)
1.15.3.3 Example: Using the MS Automation interface
Introduction
The following three examples illustrate how to use the MS Automation interface.
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
758
System Manual, 11/2008,
Example 1: MS Excel
In this example, an output value from an input field is written in an Excel table.
'VBS113
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'
'ExcelExample.xls is to create before executing this procedure.
'Replace <path> with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "<path>\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Example 2: MS Access
This example opens a report from MS Access.
'VBS114
Dim objAccessApp
Set objAccessApp = CreateObject("Access.Application")
objAccessApp.Visible = True
'
'DbSample.mdb and RPT_WINCC_DATA have to create before executing
'this procedure.
'Replace <path> with the real path of the database DbSample.mdb.
objAccessApp.OpenCurrentDatabase "<path>\DbSample.mdb", False
objAccessApp.DoCmd.OpenReport "RPT_WINCC_DATA", 2
objAccessApp.CloseCurrentDatabase
Set objAccessApp = Nothing
Example 3: MS Internet Explorer
This example opens the MS IE.
'VBS115
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.siemens.de"
Do
Loop While objIE.Busy
objIE.Resizable = True
objIE.Width = 500
objIE.Height = 500
objIE.Left = 0
VBS for Creating Procedures and Actions
1.15 Examples of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
759
objIE.Top = 0
objIE.Visible = True
See also
General examples for VBScript (Page 755)
1.15.3.4 Example: Starting an external application
Introduction
The following two examples illustrate how to start an external application.
Example:
'VBS117
Dim objWshShell
Set objWshShell = CreateObject("Wscript.Shell")
objWshShell.Run "Notepad Example.txt", 1
See also
General examples for VBScript (Page 755)
1.16 Basic Principles of VBScript
1.16.1 Basic Principles of VBScript
Introduction
The most important topics of the Microsoft VBScript Reference are provided below:
● VBScript Language Directory
● VBScript Tutorial with the most important basic principles
● Scripting runtime reference
If a full version of the VBScript Reference is required, it is available under
http://msdn2.microsoft.com/en-us/library/t0aew7h6 (http://msdn2.microsoft.com/en-us/library/
t0aew7h6)
VBS for Creating Procedures and Actions
1.16 Basic Principles of VBScript
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
760
System Manual, 11/2008,