Visual Basic at Wincc

ulkucu_hareket · Dec 1, 2006

dear friends...when we prepare we need visual basic codes...but itsnt same as visual basic 6.0 ...for example i cant define a variable like that...

dim box as integer
dim fener
Set fener=ScreenItems("lorry")
...
for box=1 to 5
Fener.left=Fener.left-10
next
end function
...

but editor says its wrong...

rgua · Dec 1, 2006

Try this:

Dim box
dim fener
Set fener=ScreenItems("lorry")

for box=1 to 5
Fener.left=Fener.left-10
Next

Gerry M · Dec 1, 2006

What is the exact error message and what item is it referring to?

I assume you mean the fener variable is not declared correctly.
You may have to declare it as an "object" for it to work:

Dim fener As Object

Or, it may have to be declared as the exact object you are trying to pass from the collection ScreenItems. If you are trying to pass a label declare it as such. Try it out and see.

HansAndersen · Dec 1, 2006

basbug turkes

ulkucu_hareket · Dec 2, 2006

rgua said:
Try this:

Dim box
dim fener
Set fener=ScreenItems("lorry")

for box=1 to 5
Fener.left=Fener.left-10
Next

thanks...i tried it but lorry doesnt stop after (counter) box>=5

Note: we try do it at VBS editor at Wincc

http://www.resimekle.com/yukle/view/89128

ulkucu_hareket · Dec 5, 2006

Gerry M said:
What is the exact error message and what item is it referring to?

I assume you mean the fener variable is not declared correctly.
You may have to declare it as an "object" for it to work:

Dim fener As Object

Or, it may have to be declared as the exact object you are trying to pass from the collection ScreenItems. If you are trying to pass a label declare it as such. Try it out and see.

its says u cant use Integer...

Itka · Dec 5, 2006

WinCC VB scripts

If I remember correctly all variables are defined as the type "Variant" in WinCC.

That means that you can use it any way you want, at the cost of additional space in memory.

Itka · Dec 5, 2006

Try:

//Disclaimer: I don't have a developer license for WinCC here right now and haven't worked with WinCC or VB for almost a year now.

Dim Box
Box=1
Dim Fener
Set Fener=ScreenItems("lorry")

For Box=1 to 5 step 1
Fener.left=Fener.left-10
Next

//thought all of this should already be implied in the code
// (etc step 1 is the default for For...Next loops)

ulkucu_hareket · Dec 6, 2006

Itka said:
//Disclaimer: I don't have a developer license for WinCC here right now and haven't worked with WinCC or VB for almost a year now.

Dim Box
Box=1
Dim Fener
Set Fener=ScreenItems("lorry")

For Box=1 to 5 step 1
Fener.left=Fener.left-10
Next

//thought all of this should already be implied in the code
// (etc step 1 is the default for For...Next loops)

But with this codes lorry doesnt stop after count=5 ...loory go out the screen

pouch · Dec 29, 2006

If you are still having a problem post on the Siemens forum for winCC

http://www.automation.siemens.com/WW/forum/en/guests/Conference.aspx?ForumID=162

Regards

Pouch

Visual Basic at Wincc

ulkucu_hareket

Member

rgua

Lifetime Supporting Member

Gerry M

Member

HansAndersen

Member

ulkucu_hareket

Member

ulkucu_hareket

Member

Itka

Member

Itka

Member

ulkucu_hareket

Member

pouch

Member

Similar Topics