"command interface" on the Step7 installation DVD, I need working example

\_Manuals\English\Command Interface

On this DVD is one project. I have converted this project from Visual Basic 6.0 to Visual Studio 2008. How can I use this project for example: create new Step7 project or do something easy. I need some working example. Could you tell me, how do it?

Dear Mr smoky

I have one more question about Profinet IO System.

Now I have few function for:

-Create new project in Step7

-Add SIMATIC 300 Station

-Add Rack

-Add CPU 315-2 PN/DP (6ES7 315-2EH14-0AB0) in slot 2 of my Rack

-Add SubNet (S7SubnetType.INDUSTRIAL_ETHERNET)

Now I would like add Profinet IO System beacause I would like add later ET200S (6ES7 151-3AA23-0AB0). I have seen " Example: Inserting a CPU with DP Interface" in manual and it works. I can add DP master system. I can't find any example aboutPROFINET IO system.

Could tell me, how can I add also PROFINET IO system using Command interface?

//------------------------------------------------------------------------------------------------------------------------------------

" Example: Inserting a CPU with DP Interface"

"Now a somewhat more complicated example. The CPU315-2 DP with order number 6ES7 315-2AF82-0AB0 is to be inserted into rack 0, slot 2. This CPU has a DP interface ("submodule") that is to be connected to a DP master system ("subsystem"). If the new CPU is created, the DP interface is also created automatically. However, the DP master system must be created explicitly.

The Modules collection of the CPU has the "submodule" as the only entry for its integrated DP interface. The SubSystem property of the CPU is not set, that is, the interface is not connected to a DP master system yet. For the submodule, however, the property refers to the created DP master system. The created DP master system is inserted into the SubSystems collection of the station (in this case relativity).

So that the execution can be better retraced, the number of DP master systems is determine at the beginning of the example. Because none exists yet, the number will be zero. After that, rack 0 is assigned to the variable Rac. The CPU is created with the Add Modules method and inserted into the rack. Access to the DP interface is made by means of the created CPU and the DP master system is created by calling up AddSubsystem.

Afterward, iteration over all modules of the rack takes place and the appropriate information is output. Now there are three modules in the rack -- the power supply (slot 1), the Send interface (slot 3), and the CPU (slot 2). You can see from the displayed data that the CPU has a "submodule," that is, an interface (number of submodules is greater than 0). For this reason, iteration takes place over all CPU submodules (there is only one) and the data are output. At the end of the program, the number of DP master systems (subsystems) of the station is output again. The number has now increased to one. The data of the DP master system created here are output in the section on subsystems.

Public Sub ExampleModule3()

Dim S As New Simatic

Dim Sta As S7Station

Dim Rac As S7Rack

Dim Modu As S7Module, SubModu As S7Module

Dim dlg As New AttributesDlg

Dim count As Integer

On Error Resume Next

' Determine station "relativity"

count = S.Projects("reptiles").Stations("relativity").Racks.count

If CatchError Or (count = 0) Then

MsgBox "The project 'Reptiles' and the station " _

& "'Relativity' are required. Also, there must be racks."

Exit Sub

End If

Set Sta = S.Projects("reptiles").Stations("relativity")

' Number of subsystems

MsgBox ("There are " & Sta.SubSystems.count & " Subsystems")

' Determine rack 0

Set Rac = Sta.Racks(0)

' Create the CPU now

MsgBox ("The CPU is being created now.")

Set Modu = Rac.Modules.Add("a CPU315-2 DP", "6ES7 315-2AF82-0AB0", "", 2)

If Not CatchError Then

' Create subsystem

Call Modu.Modules(1).AddSubSystem("", 1)

CatchError

End If

' Infos "on all modules of the rack

For Each Modu In Rac.Modules

Call AllModuleData(Modu)

Set dlg.Obj = Modu

dlg.Caption = "Attributes of the module " & Modu.Name

dlg.Show vbModal

Next

' Infos "on the submodule of the CPU

MsgBox ("Information on the submodule of the CPU")

For Each Modu In Rac.Modules(2).Modules

Call AllModuleData(Modu)

Set dlg.Obj = Modu

dlg.Caption = "Attributes of the module " & Modu.Name

dlg.Show vbModal

Next

' Number of subSystems

MsgBox ("Now there are " & Sta.SubSystems.count & " Subsystems")

End Sub"

//--------------------------------------------------------------------------------------------------------------

hello,

use

Call Modu.Modules(x).AddSubSystem("my_pn", 1)

with x = Index of PN Module (like 2)

or see HELP "S7Module3"
===========
New / enhanced properties and methods (S7 modules only)

...
IS7SubSystem* AddSubSystem(...)
...
========

hello,

have you solved your problem?

Itested a lot and I think: something is wrong here...

1.IfCPU400 used (like 6ES7 412-2EK06-0AB0),it works fine...

2.
a. If...AddSubSystem("", 1)used =>inNETPRO is "PROFIBUS(1): Industrial Ethernet" !!! Why PROFIBUS???

b. after ADD_SUBthe attribute "SUBNET_NAME" of SubSystem is "UNKNOWN" and this is the problem... I think...

hello,

itis like you want a car (type Jeep): you can check each car or use thefunction getTypedCar(Jeep)....

‘get S7SourceContainer
Dim oS7SourceContainer As IS7Container
Set oS7SourceContainer = GetTypedContainer(Prg.Next, S7SourceContainer) ‘ or use (for each) etc.
‘import source
oS7SourceContainer.Next.Add("Src", S7Source, "C:\OB1.awl")
'done